04.04.2016, 18:43
Hallo, vor einiger Zeit habe ich das schonmal thematisiert... ... ich habe einen SpezialFilter, der auf verschiedene TabellenBlätter zugreift - je nach Auswahl. Nun "verschwiden hin und wieder in dem Ausgabebereich (Bereich A6:Ln) Zeilen. Ich hatte seiner Zeit Hilfe (ich glaube von André) ..:
Leider funktioniert das nur mit einzelnen Zeilen. Das mit den Bereich auswählen klappt nicht... Wenn man das für jede "verschwundene" Zeile händisch machen muss, kann das ziemlich langwierig sein... ... vielleicht gibt's ja ne Möglichkeit...
Code:
Sub test()
'
' test Makro
Sheets("Auswertung").Range("A6").CurrentRegion.Clear
Range("Listenbereich").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Sheets("Auswertung").Range("A1").CurrentRegion, CopyToRange _
:=Sheets("Auswertung").Range("A5"), Unique:=False
Rows(44).EntireRow.Hidden = False ' Zeile "wiederholen" ;-)
'Range("A6:A100").EntireRow.Hidden = False ' hier den Bereich festlegen, der verlustig ist... (^_-)
End Sub
Leider funktioniert das nur mit einzelnen Zeilen. Das mit den Bereich auswählen klappt nicht... Wenn man das für jede "verschwundene" Zeile händisch machen muss, kann das ziemlich langwierig sein... ... vielleicht gibt's ja ne Möglichkeit...