|
Hallo liebe Community!
Ich habe eine Frage in Bezug auf Routinen.
Ich habe in eine Tabelle über 30 Buttons mit Nummern. Wenn ich z.B. auf den Button mit der Nummer 15 klicke, dann wird die Nummer 15 in der Tabelle eingetragen. In dem Fall haben alle Buttons die gleiche Routine und ändert sich im Code nur die Zahl, die eingetragen wird.
Erste Routine geschrieben, dann 30 Mal kopiert und bei jeden einzelnen Abschnitt die Zahl geändert.
Funktioniert natürlich, ist aber mühsam alle Zahlen einzeln zu ändern und bei jeder Änderung beim Button, wieder 30 Mal alles ändern.
Gibt es eine einfache Methode?
Beispiel:
Sub Nummer1()
Dim last As Integer
last = Cells(Rows.Count, 2).End(xlUp).Row + 1
If last > 43 Then
Nummer1_2
Else
Cells(last, 2).Value = "1"
Cells(last, 2).Select
End If
End Sub
Sub Nummer1_2()
Dim last As Integer
last = Cells(Rows.Count, 4).End(xlUp).Row + 1
If last > 43 Then
Exit Sub
Else
Cells(last, 4).Value = "1"
Cells(last, 4).Select
End If
End Sub
usw. bis 30
Vielen Dank im Vorraus!
|