Schleife für Zellenbereich
31.03.2020 18:32:46
raph.bier
habe mir kürzlich ein kleines VBA-Skript mit Hilfe des Internets zusammengebastelt.
Dieses Skript dient dazu, aus einem Datenblatt gewisse Zeilen zu filtern, die dann in meinem Register "Übersicht" angezeigt werden..
Nun möchte ich eine Schleife erstellen die mir in meinem Register Übersicht die Zeilen aus allen Datenblätter anzeigt. Also hier mein VBA-Script:
Sub kopieren()
Dim variable As String
variable = [A2]
With Sheets(variable).UsedRange
.AutoFilter Field:=19, Criteria1:="ja"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
End With
Sheets("?bersicht").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Sheets(variable).UsedRange.AutoFilter
End Sub
Nun will ich anstatt meiner Variable a2 die auf ein Datenblatt verweist gleich alle Datenblätter durchlaufen und ausgeben lassen. In meinem Fall die Datenblätter im Zellbereich A2:A4
Habe an den Befehl gedacht:
For Each variable In Worksheets(Übersicht).Range("A2:A4")
Next
Aber ich komme mit der Verschachtelung nicht klar. Wie muss ich dann meine Variablen definieren?
Kann mir da bitte wer Helfen?
https://www.herber.de/bbs/user/136304.xlsm
Danke im Voraus.
LG
Anzeige