Habe mir eine Userform (für ein einfaches Haushaltsbuch) mit zwei Textboxen und zwei Kombiboxen gebastelt. Mit der ersten Kombibox soll das Datum erfasst werden, mit der zweiten der Verwendungszweck/Kostenstelle.
Das ganze hat erst bestens funktioniert und nach dem erneuten aufrufen der Tabelle und Eingabe von Daten bekam ich dann plötzlich die o.g. Meldung, obwohl ich am Code nichts verändert hatte.
Hier der Code:
Option Explicit
Private Sub speichern_Click()
Dim erste_freie_Zeile As Integer
erste_freie_Zeile = Sheets("Übersicht").Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("Übersicht").Cells(erste_freie_Zeile, 1) = CDate(ComboBox_Datum.Value)
Sheets("Übersicht").Cells(erste_freie_Zeile, 2) = CDbl(TextBox1_Betrag.Value)
Sheets("Übersicht").Cells(erste_freie_Zeile, 3) = (ComboBox_Kostenstelle.Text)
Sheets("Übersicht").Cells(erste_freie_Zeile, 4) = (TextBox_Bemerkungen.Text)
End Sub
Private Sub UserForm_Initialize()
Dim Wiederholungen As Integer
For Wiederholungen = 2 To Sheets("Hilfstab").Range("A65536").End(xlUp).Row
ComboBox_Kostenstelle.AddItem Sheets("Hilfstab").Cells(Wiederholungen, 1)
Next
For Wiederholungen = 2 To Sheets("Hilfstab").Range("C65536").End(xlUp).Row
ComboBox_Datum.AddItem Sheets("Hilfstab").Cells(Wiederholungen, 3)
Next
End Sub
Kann mir da bitte jemand weiterhelfen? Wo liegt der Fehler?