Ich möchte aus einer UF heraus den die Caption von "Label1" in Tabelle1 finden.
Ist dieser Text gefunden, soll der Inhalt aus TextBox1 der gleichen UF unter der Fundstelle in der Tabelle einfügen.
Ist Caption von Label1 also "Name", soll "Name" in Tabelle1 gefunden werden und Inhalt aus Textbox1 unter "Name" eingefügt werden.
Hier mein letzter Ansatz: (Mit Fehlermeldung Typen unverträglich)
Private Sub CommandButton1_Click()
Dim Suchen As String ' Suchtext
Dim suchBereich As Range ' zu durchsuchende Bereich
Suchen = Label1.Caption
Set suchBereich = Worksheets("Tabelle1").Range("A1:J50")
If suchBereich = Suchen Then 'HIER FEHLERMELDUNG Typen unverträglich
suchBereich.Offset(1, 0) = TextBox1.Value
End If
End Sub
anbei auch eine Bsp.-Mappehttps://www.herber.de/bbs/user/93590.xlsm
Besten Gruß
Thorsten