Private Sub CommandButton1_Click()
Dim wks As Worksheet
Dim addnew As Range
Set wks = Tabelle8
Dim LetzteZeile As Integer
' Die erste Zeile des Zielbereichs.
LetzteZeile = 31
'Sobald die erste Zelle der "LetzteZeile" gefüll ist, ...
Do While wks.Cells(LetzteZeile, 1) <> ""
' ... wird die nächste Zeile betrachtet.
LetzteZeile = LetzteZeile + 1
' Wenn das Ende des reservierten Bereichs erreicht ist (Zeile 35), ...
If LetzteZeile = 35 Then
' ... gibt's eine Meldung und der Code wird bei "ende:" weiter ausgeführt.
MsgBox "Der reservierte Bereich ist gefüllt, weitere Eingaben nicht möglich.", _
vbInformation, "Hinweis"
GoTo ende
End If
Loop
' Die Einträge werden nun in der ersten freien Zeile vorgenommen.
Set addnew = wks.Cells(LetzteZeile, 1)
'
addnew.Offset(0, 0).Value = txt_1.Text
addnew.Offset(0, 2).Value = combo_1.Value
addnew.Offset(0, 5).Value = txt_2.Text
' Beende den Code der Schaltfläche.
Set wks = Nothing
Exit Sub
ende:
' Das Formular wird geschlossen, da keine weiteren Eingaben möglich sind.
Unload Me
Set wks = Nothing
End Sub
|