|
Hallo,
Ich möchte gerne Daten die aus einer UserForm kommen (TextBox), in eine Tabelle eintragen.
Dabei sollte er mir die Daten ab inkl. Zeile 7 bis inkl. Zeile 26 in die letzte freie Zeile in Spalte 1 eintragen.
Wenn die Tabelle voll ist, Sprich in Zeile 26 steht etwas drinnen sollte er eine MsgBox ausgeben.
Sub CommandButton3_Click()
Dim loLetzte As Long
With Worksheets("Dokumentation")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If loLetzte <= 7 Then loLetzte = 7
If Not loLetzte.Row >= 27 Then
.Cells(loLetzte, 1).Value = TextBox6
.Cells(loLetzte, 2).Value = TextBox7
.Cells(loLetzte, 3).Value = TextBox8
Else
MsgBox "Eintrag in der Liste nicht möglich, diese Liste ist voll."
End If
End With
End Sub
In Zeile 6 meines Codes steigt er mir aus. Verstehe aber nicht warum.
Könnte mir jemand ein wenig auf die Sprünge helfen?
Mfg
Mike
|