Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Label
Screenshot zu Label	Label-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema TextBox
Screenshot zu TextBox	TextBox-Seite mit Beispielarbeitsmappe aufrufen

Text aus Label in Tabelle finden

• Text aus Label in Tabelle finden von Thorsten_Z vom 06.11.2014 10:19:36
• AW: Text aus Label in Tabelle finden - von Beverly am 06.11.2014 10:25:39
  • Passt :-)... - von Thorsten_Z am 06.11.2014 10:34:07

Betrifft: Text aus Label in Tabelle finden von: Thorsten_Z
Geschrieben am: 06.11.2014 10:19:36

Moin liebes Forum,

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.-Mappe
https://www.herber.de/bbs/user/93590.xlsm

Besten Gruß
Thorsten

Betrifft: AW: Text aus Label in Tabelle finden von: Beverly
Geschrieben am: 06.11.2014 10:25:39

Hi Thorsten,

Private Sub CommandButton1_Click()
    Dim Suchen As String       ' Suchtext
    Dim suchBereich As Range  ' zu durchsuchende Bereich
    Dim rngZelle As Range
    Suchen = Label1.Caption
    Set suchBereich = Worksheets("Tabelle1").Range("A1:J50")
    Set rngZelle = suchBereich.Find(Suchen, lookat:=xlWhole)
    If Not rngZelle Is Nothing Then rngZelle.Offset(1, 0) = TextBox1.Value
    Set suchBereich = Nothing
    Set rngZelle = Nothing
End Sub

---

Betrifft: Passt :-)... von: Thorsten_Z
Geschrieben am: 06.11.2014 10:34:07

Hallo Karin,

vielen vielen Dank für deine Mühe.
Klappt wie gewünscht!

Schönen Tag noch

Gruß
Thorsten

Beiträge aus den Excel-Beispielen zum Thema "Text aus Label in Tabelle finden"