Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Text aus Label in Tabelle finden

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

GrußformelBeverly's Excel - Inn


  

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"