Gruppe
Dialog
Problem
Ein Suchbegriff soll abgefragt und in der Tabelle gesucht werden. Die Daten der Fundzeile sind in UserForm-TextBoxes einzlesen und anzuzeigen.
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