Text aus Label in Tabelle finden
06.11.2014 10:19:36
Thorsten_Z
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
https://www.herber.de/bbs/user/93590.xlsm
Besten Gruß
Thorsten
Anzeige