ich übernehme mit dem folgenden Makro bestimmte Zeilen in eine neue Tabelle.
Das klappt auch.
Ich muss aber nach verschiedenen Suchbegriffen die neuen Daten zusammenstellen.
Was muss ich ändern, damit ich den Suchbegriff nicht in den Makro, sondern in eine Zelle, z.B. A1, schreiben kann.
Option Explicit
Dim i As Integer
Dim WsQuelle As Worksheet
Dim WsQuelleLastR As Integer
Dim WsQuelleLastC As Integer
Dim Ws1 As Worksheet
Dim Ws1Last As Integer
Private Sub Datensuch()
Set WsQuelle = Worksheets("Quelle")
WsQuelleLastR = WsQuelle.Cells(Rows.Count, 8).End(xlUp).Row
WsQuelleLastC = WsQuelle.UsedRange.Columns.Count
Set Ws1 = Worksheets("Tabelle2")
Ws1Last = Ws1.Cells(Rows.Count, 8).End(xlUp).Row + 1
Application.ScreenUpdating = False
For i = 2 To WsQuelleLastR
Select Case (WsQuelle.Cells(i, 8))
Case Is = 20 'Wert in Spalte H >>DIESER WERT SOLLTE AUS EINER ZELLE KOMMEN<<<
Ws1.Range(Ws1.Cells(Ws1Last, 1), Ws1.Cells(Ws1Last, WsQuelleLastC)).Value = WsQuelle.Range(WsQuelle.Cells(i, 1), WsQuelle.Cells(i, WsQuelleLastC)).Value
Ws1Last = Ws1Last + 1
End Select
Next
Application.ScreenUpdating = True
End Sub
Vielen Dank für jede und auch die bisherige Hilfe
Grüße
Gisela