Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes

Gruppe

TextBox

Problem

Ein Suchbegriff soll abgefragt und in der Tabelle gesucht werden. Die Daten der Fundzeile sind in UserForm-TextBoxes einzlesen und anzuzeigen.

Lösung
Den nachfolgenden Code in die benannten Module einfügen.

ClassModule: frmTexte

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   Dim rng As Range
   Dim iCounter As Integer
   Dim sSearch As String
   sSearch = InputBox("Suchbegriff:", , "Zeile 5 - Spalte 3")
   If sSearch = "" Then Exit Sub
   Set rng = Cells.Find( _
      what:=sSearch, lookat:=xlWhole, LookIn:=xlValues)
   If rng Is Nothing Then
      Beep
      MsgBox "Suchbegriff wurde nicht gefunden!"
      Exit Sub
   End If
   For iCounter = 1 To 6
      frmTexte.Controls("TextBox" & iCounter).Text = _
         Cells(rng.Row, iCounter)
   Next iCounter
   frmTexte.Show
End Sub