GerdL und Daniel haben mir bei dem untenstehenden Makro richtig gut geholfen.
Damit werden alle Zeilen ausgeblendet nicht nicht den Bedingungen entsprechen.
In diesem Beispiel wird die Spalte 10 durchsucht.
https://www.herber.de/forum/archiv/1920to1924/1922874_Spalten_ausblenden_zu_langsam.html
Nun würde ich das Makro gern ein wenig erweitern.
Ist es Möglich die gefundenen Werte in der Tabelle 1 in Spalte b untereinander aufzulisten?
Oder besser gesagt > Alle Werte der Spalte 10, ab Zeile 45, welche die Werte Array("EW", "FS", "!?") enthalten sollen in der Tabelle1 in Spalte B zusätzlich aufgelistet werden.
Ist dies Möglich?
habt schon mal rechtvielen dank für euer Interesse.
mfg thomas
Dim lngZeile As Long
Dim lngLetzte As Long
Dim arrSuch As Variant
Dim i As Long,
Dim bAus As Boolean
Dim arrI
'Inhalte, nach denen gefiltert werden soll
arrSuch = Array("EW", "FS", "!?")
'letzte Zeile in Spalte E ermitteln
lngLetzte = Cells(Rows.Count, 10).End(xlUp).Row
'nun alle Zeilen in Spalte E ab Zeile 2 durchlaufen (Zeile 1 enthält Überschrift - ggf. anpassen)
arrI = Cells(1, 10).Resize(lngLetzte, 1).value
For lngZeile = 45 To lngLetzte
'Marker für Ausblenden auf wahr setzen
bAus = True
'Array mit Suchbegriffen durchlaufen
For i = 0 To 2
If InStr(1, arrI(lngZeile, 1), arrSuch(i)) Then
bAus = False
Exit For 'Schleife für Array beenden
End If
Next i
if bAus Then
if rngAus is nothing then
set rngAus = rows(lngZeile)
else
set rngAus = union(rngAus, Rows(lngZeile))
end if
end if
Next lngZeile
if not rngAus is nothing then rngAus.EntireRow.Hidden = True