habe zwei TextBoxe (TextBox1 und TextBox2) wo mit CommandButton1_Click() die Eingaben in die Tabelle3 ab A2 und B2 in die Zelle geschrieben werden.
Nun möchte ich, wenn die TextBox1 in der Tabelle3 vorhanden ist, dann die TextBox2 mit dem zellinhalt füllen lassen.
Private Sub CommandButton1_Click()
Dim i As Long
With Sheets("Tabelle3")
i = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(i, 1) = TextBox1
i = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
.Cells(i, 2) = TextBox2
End With
If TextBox2 = "" Then
MsgBox ("Geben Sie die Daten ein.")
' ComboBox2.SetFocus
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Application.ScreenUpdating = True
Unload Me
End Sub
Vielen Dank für eure Hilfe,
Lieben Gruß
Amina