habe Probleme mit folgendem VBA - Code und wäre über schnelle Hilfe sehr sehr dankbar.
CODE:
If TextBox_Schiffsname.Value = "" Or TextBox_Liegeplatz.Value = "" Or TextBox_Festdatum.Value = "" Or TextBox_Festzeit.Value = "" Or TextBox_Losdatum.Value = "" Or TextBox_Loszeit.Value = "" Then
MsgBox "Alle Textboxen müssen ausgefüllt sein!"
Exit Sub
Else:
For i = 1 To Sheets.Count
If Sheets(i).Name = "Schiff#" & Schiffsname Then
Sheets(i).Select
For Z = 9 To Sheets(i).UsedRange.Rows.Count + 1
If IsEmpty(Cells(Z + 1, 2).Value) = True Then
Cells(Z + 1, 2).Value = TextBox_Festdatum.Value
Cells(Z + 1, 3).Value = TextBox_Liegeplatz.Value
Cells(Z + 1, 4).Value = TextBox_Festzeit.Value
Cells(Z + 1, 5).Value = TextBox_Loszeit.Value
Exit Sub
End If
Next Z
End If
Next i
End If
Erklärung: Es soll zunächst nach der ersten Leeren Zeile innerhalb der Tabelle !! gesucht werden und jene soll anschließend mit den Inhalten durch meine Textbox gefüllt werden. Dieses funktioniert bereits , wie auf dem Bild ersichtlich, für die ersten 3 Zeilen der Tabelle. Danach lässt sich kein Eintrag mehr tätigen. Das stellt mich zur Zeit als VBA Anfänger vor ein unlösbares Problem. Über eure Hilfe würde ich mich somit sehr freuen.
Liebe Grüße aus dem hohen Norden
Stibi
Bild: