Laufzeitfehler bei übergabe von Daten
26.05.2020 20:02:22
Daten
Und zwar funktioniert mein Übertrag bei allen Tabellen ausser einer. Hat Jemand eine Idee wodran das liegen könnte?
Danke im Voraus..
Ps: Wenn ich debugge kommt immer der Fehler bei der for schleife....
Private Sub EINTRAG_UEBERTRAGEN()
Dim lZeile As Long
Dim i As Integer
Dim Tabelle As String
'lZeile = lCONST_STARTZEILENNUMMER_DER_TABELLE
'Schleife bis eine leere ungebrauchte Zeile gefunden wird
'Do While IST_ZEILE_LEER(lZeile) = False
' lZeile = lZeile + 1 'Nächste Zeile bearbeiten
' Loop
Tabelle = ComboBox1.Value
'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
If ListBox1.ListIndex = -1 Then Exit Sub
'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
lZeile = ListBox1.List(ListBox1.ListIndex, 0)
For i = 1 To iCONST_ANZAHL_EINGABEFELDER
Sheets(Tabelle).Cells(lZeile, i) = Me.Controls("TextBox" & i)
Next i
'Der Benutzer könnte die angezeigten Werte in der Liste geändert haben,
'daher aktualisieren wir den ausgewählten Eintrag entsprechend.
ListBox1.List(ListBox1.ListIndex, 1) = TextBox1
ListBox1.List(ListBox1.ListIndex, 2) = TextBox2
ListBox1.List(ListBox1.ListIndex, 3) = TextBox3
End Sub