Mehrfachselektion
18.04.2016 13:12:47
Oisse
mir stellt sich folgendes Problem:
In der Artikelliste ist in Spalte x eine Vorgangsnummer.
Nun möchte ich, dass alle Zeilen in denen nach einer bestimmten Vorgangsnummer gesucht wird (per Inputbox) selektiert werden.
Denn aus den selektierten Zeilen werden später Daten ausgelesen.
Folgenden (falschen) Code habe ich bisher.
Könnte mal jemand drüber schauen bitte?
Private Sub OptionButton5_Click()
Dim wsSearch As Worksheet
Dim c As Range
Dim wsTarget As Worksheet
Dim strFind As String
Dim firstAddress As String
Dim arrFiles As Variant
Dim arrSheets As Variant
Dim i As Integer
Dim int_Counter As Integer
Dim int_Column As Integer
strFind = InputBox("Bitte Vorgangsnummer eingeben", "Vorgangsnummer")
Tbl2 = "Artikel" 'Tabellenblatt aus dem die Daten geholt werden sollen
arrFiles = Array(ThisWorkbook.Path & "\Vorlagen\Angebote.xlsm")
'Namen der Sheets in der entsprechenden Reihenfolge der oben angeführten Dateien
arrSheets = Array(Tbl2)
'Screenflicker unterdrücken
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Alle Dateien im Array verarbeiten
For i = 0 To UBound(arrFiles)
'Mappe öffnen
Set wsSearch = ThisWorkbook.Sheets(Tbl2)
'Suche in der Mappe in Spalte B (Wert der Zelle muss in diesem Fall komplett ü _
bereinstimmen, wenn das nicht gewünscht ist LookAt:= auf xlPart ändern)
With wsSearch.Range("X:B")
Set c = .Find(strFind, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Range(c).EntireRow.Select
Do
Union(Selection, Range(c), Range(c).End(xlDown)).Select
'Finde den nächsten passenden Eintrag
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
' schließe die Mappe
'wsSearch.Parent.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Danke