Gruppe
Dialog
Problem
Wie kann ich die Werte aus Spalte A in eine UserForm-ComboBox übernehmen, den ausgewählten Wert in der Tapelle suchen und die Fundstelle in ein zweites Tabellenblatt kopieren?
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
Dim iRow As Integer
Application.ScreenUpdating = False
Set rng = Columns(1).Find( _
what:=txtSuchen.Text, _
lookat:=xlPart, LookIn:=xlValues)
If Not rng Is Nothing Then
With Worksheets("Target")
If IsEmpty(.Range("A1")) Then
iRow = 1
Else
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Rows(rng.Row).Copy .Rows(iRow)
End With
Else
MsgBox "Suchbegriff wurde nicht gefunden!"
End If
Application.CutCopyMode = False
Range("A1").Select
Unload Me
End Sub
Private Sub UserForm_Initialize()
cboSuchen.List = _
Range("A1").CurrentRegion.Columns(1).Value
cboSuchen.ListIndex = 0
End Sub
StandardModule: Modul1
Sub CallForm()
frmSuchen.Show
End Sub