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

Textbox inhalt in Tabelle suchen | Herbers Excel-Forum


Betrifft: Textbox inhalt in Tabelle suchen von: Helge Kuehn
Geschrieben am: 16.01.2010 08:19:13

Guten morgen die Herren,
ich hab ein UF mit mehreren Textboxen. Nun will ich den inhalt von Textbox1 in der Tabelle1, Spalte A suchen und die Textbox2-14 in die daneben liegenden Zellen (Wert in A35 gefunden = andere werte in B35-N35 einfuegen) einfuegen. Falls der Wert aus Textbox1 nicht vorhanden oder "" ist soll er abbrechen. Falls jmd sowas schonmal gemacht hat, waere ich ueber eine Hilfestellung dankbar.

Schoenes Wochenende

  

Betrifft: AW: Textbox inhalt in Tabelle suchen von: Josef Ehrensberger
Geschrieben am: 16.01.2010 08:40:00

Hallo Helge,

ungetestet.

Private Sub CommandButton1_Click()
  Dim vntRet As Variant, lngIndex As Long
  
  If Len(TextBox1) Then
    With Sheets("Tabelle1")
      vntRet = Application.Match(TextBox1, .Columns(1), 0)
      If IsNumeric(vntRet) Then
        For lngIndex = 2 To 14
          If Len(Me.Controls("TextBox" & CStr(lngIndex))) Then
            If IsNumeric(Me.Controls("TextBox" & CStr(lngIndex))) Then
              .Cells(vntRet, lngIndex) = Clng(Me.Controls("TextBox" & CStr(lngIndex)))
            Else
              .Cells(vntRet, lngIndex) = Me.Controls("TextBox" & CStr(lngIndex))
            End If
          End If
        Next
      End If
    End With
  End If
  
End Sub



Gruß Sepp



  

Betrifft: AW: Textbox inhalt in Tabelle suchen von: Helge Kuehn
Geschrieben am: 16.01.2010 08:57:33

Puhhh ich weiss nicht was ich sagen soll. Klapp genau wie ich es will, DANKE SEPP (wie so oft). Ich hab echt schon ein schlechtes Gewissen, wie viele Fragen ich hier schon gestellt hab. Riesen danke fuer eure Hilfe, ich bemuehe mich mein erlangtes wissen an andere weiter zu geben.

Gruss Helge


Beiträge aus den Excel-Beispielen zum Thema "Textbox inhalt in Tabelle suchen"