ich möchte verschiedene Eintragungen in ein selbst erstelltes Kassenbuch automatisieren.
Ich habe für jeden Monat eine Tabelle angelegt. (jeweils unter dem Monatsnamen)
In meiner UserForm wähle ich über eine ComboBox (CBMonat) das jeweilige Tabellenblatt (Worksheet) an.
Code:
Private Sub UserForm_initialize()
For i = 1 To Worksheets.Count
CBMonat.AddItem (Worksheets(i).Name)
Next i
End Sub
Private Sub CommandButton_Eintragen_Click()
Dim NameZelle As Range
Dim spalte As Variant, Zeile As Variant, CBMonat As Variant
Worksheets(CBMonat).Activate ' Monat selektieren
...
End Sub
Leider bekomme ich immer eine Fehlermeldung.
Was mache ich falsch?
Vielen Dank im Voraus
Gruß
Udo