MultiSelect, Auswahl auf 1 beschränken..?
28.08.2004 00:02:20
Dieter.K
könnt Ihr mir helfen?
Ich benutze folgenden Code um einen Suchbegriff (über eine ComboBox) auszuwählen. Wenn dieser Suchbegriff mehrfach vorkommt (in diesem Fall der Name meines Kunden), werden sämtliche Zeilen mit dem Suchbegriff markiert. Ich möchte jedoch nur die tatsächlich ausgewählte Zeile markieren, da diese dann in ein anderes Tabellenblatt verschoben werden soll.
Sub MultiSelect2()
Dim wks As Worksheet
Dim rngFind As Range, rngRows As Range
Dim sFind As String, sSearch As String
sSearch = ComboBox11
Set rngFind = Cells.Find(sSearch)
If rngRows Is Nothing Then
Set rngRows = rngFind
End If
If Not rngFind Is Nothing Then
sFind = rngFind.Address
Do
Set rngRows = Application.Union(rngRows, rngFind.EntireRow)
Set rngFind = Cells.FindNext(After:=rngFind)
If rngFind.Address = sFind Then Exit Do
Loop
End If
rngRows.Select
End Sub
Beispiel:
Name "Müller" kommt insgesamt 3x vor. Zu jedem Eintrag gehört allerdings ein anderes Angebot. Wenn ich nun über den Namen "Müller" (über eine ComboBox) suche, möchte ich nur die Zeile mit dem Angebot "B" markieren und in ein anderes Tabellenblatt verschieben.
Ich hoffe, ich habe mich einigermaßen verständlich ausgedrückt und Ihr versteht was ich meine.
Danke für Eure Anregungen / Hilfen.
Gruß
Dieter.K