xlDown Begrenzung
26.02.2009 16:45:31
tursiops
Ich brauch nochmal etwas Hilfe. Der unten vermerkte Code muss noch etwas verändert werden. Es dürfen nur bis max. Zeile 42 Werte eingeben werden. Das heißt, der Code müsste so begrenzt werden, dass wenn alle Zeilen bis 42 gefüllt sind das Anlegen neuer Datensätze verhindert wird und eine Fehlermeldung erscheint.
Wäre nett wenn mir nochmal jemand helfen könnte.
Private Sub CommandButton1_Click()
Sheets("B").Select
'Neuen Datensatz anlegen
Dim letzte_Zeile As Long
With Worksheets("B")
'Die letzte beschrieben Zeile in Spalte A ermitteln
letzte_Zeile = .Range("A3").End(xlDown).Row + 1
.Cells(letzte_Zeile, 78) = TextBox1.Text 'Nachname
.Cells(letzte_Zeile, 79) = TextBox2.Text 'Vorname
End With
Unload UserForm1
End Sub
Gruß tursiops
Anzeige