Eintrag wenn Nummer nicht vorhanden
25.05.2020 08:27:37
Michael
Hoffe Ihr könnt mir behilflich sein. Stehe total auf den schlauch und komme einfach nicht mehr weiter.
Ich möchte gerne das wenn in Spalte A die ID vorhanden ist kein Eintrag gemacht wird und wenn die ID noch nicht vorhanden ist sollte es mir die entsprechenden werte eine Zeile weiter unten eintragen.
Ich hoffe Ihr könnt mir dabei helfen.
Dim rngAuswahl As Range
With Worksheets("Tabelle2")
Set rngAuswahl = .Columns(1).Find(Me.TextBox26.Value, LookAt:=xlWhole)
If Not rngAuswahl Is Nothing Then
If .Cells(rngAuswahl.Row, 1) = "" Then
.Cells(rngAuswahl.Row, 1) = Me.TextBox26 'ID
.Cells(rngAuswahl.Row, 2) = Me.ComboBox3 'Name und Vorname
.Cells(rngAuswahl.Row, 3) = Me.TextBox27 'Telefon
Else
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Lastrow = Worksheets("Tabelle2").Range("A").End(xlUp).Row
Worksheets("Tabelle2").Cells(, 1) = Me.TextBox26 'ID
Worksheets("Tabelle2").Cells(, 2) = Me.ComboBox3 'Name und Vorname
Worksheets("Tabelle2").Cells(, 3) = Me.TextBox27 'Telefon
End If
End If
End With
Danke für eure Hilfe und Tipps
Lg Michi