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!