Hallo zusammen,
vieleicht kann mir jemand helfen?
Folgendes habe ich;-((
Dim BlattListe1 As Variant
Dim Blatt As Variant
Dim BereichListe1() As Variant
dim II as Integer
ReDim BlattListe1(1 To Tabelle1.Range("BlattListe1").Count)
For II = 1 To Tabelle1.Range("BlattListe1").Count
BlattListe1(II) = Tabelle1.Range("BlattListe1")(II)
Next II
For Each Blatt In BlattListe1
ThisWorkbook.Worksheets("Tabelle1").Sheets(Blatt(0)) 'Hier entsteht ein laufzeitfehler???
'.Sheets(CStr("EXPORT-SECAM+G")) wenn ich festen eintrag geben etsteht kein Laufzeitfehler
.....
....
Next Blatt