Fehlermeldung bei letzteZeile
23.07.2022 15:22:01
Henry
ich bekomme bei folgendem Code eine Fehlermeldung und zwar bei der Zeile:
"LetzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row"
"Fehlermeldung: Unzulässiger oder nicht ausreichend definierter Verweis."
Kann mir hier jemand helfen?
Private Sub cmb_add_employee_Click()
Dim Zeile As Integer
Dim LetzteZeile As Integer
Dim participant As String
'TextBox1 defnieren
participant = txt_name
'Alle Firmennamen durchsuchen
Zeile = 2
Do While Cells(Zeile, 1).Value ""
'Letzte Zeile ermitteln
LetzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row
'Zeile für neuen Nachname ermitteln
If Cells(Zeile, 1).Value > participant Then
Exit Do
End If
Zeile = Zeile + 1
Loop
'Neue Zeile einfügen, falls notwendig
If Zeile