Gruppe
Dialog
Problem
In einer 3-spaltigen ComboBox soll ein Wert ausgewählt werden. Dieser soll in eine TextBox übertragen und in Tabelle2 in Spalte 3 gesucht und markiert werden.
StandardModule: basMain
Sub CallForm()
frmSuchen.Show
End Sub
ClassModule: frmSuchen
Private Sub cboSuchen_Change()
txtSuchen.Text = cboSuchen.Value
End Sub
Private Sub cmdAbbrechen_Click()
Unload Me
End Sub
Private Sub cmdSuchen_Click()
Dim rng As Range
If txtSuchen.Text = "" Then
Beep
MsgBox "Sie müssen in der ComboBox einen Suchbegriff auswählen!"
Exit Sub
End If
Set rng = Worksheets("Tabelle2").Columns(3) _
.Find(txtSuchen.Text, lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
Application.Goto rng, Scroll:=True
Else
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
Unload Me
End Sub
Private Sub UserForm_Initialize()
cboSuchen.List = Worksheets("Tabelle1") _
.Range("A1").CurrentRegion.Value
End Sub