Excel: For Each (Sheet-Array)

Computer: Software & Programmierung Office Software
1

Hallo,

ich möchte ein VBA-Script auf mehrere bestimmte (Work)sheets anwenden, die ich in einem Array hinterlegen möchte. Also in völlig laienhaftem Vertmutungs-VBA etwa

Sub Soundso()

Dim BBB As Worksheet
Dim BlattX As String
BlattX = Array("Anton-Blatt", "Berta-Blatt", "Gustav-Blatt")

For Each BBB In ThisWorkbook.Worksheets = BlattX
 Machwas
End Sub

Wie lautet der richtige Code?

Vielen Dank
JK

2

ich möchte ein VBA-Script auf mehrere bestimmte (Work)sheets
anwenden, die ich in einem Array hinterlegen möchte. Also in
völlig laienhaftem Vertmutungs-VBA etwa
Wie lautet der richtige Code?

Hallo Jens,

ein Weg wäre z.B. so:

Option Explicit

Sub Soundso()
Dim Blaetter As Variant, B As Integer
Blaetter = Array("Tabelle1", "Tabelle2", "Tabelle3")
For B = LBound(Blaetter) To UBound(Blaetter)
 With ThisWorkbook.Worksheets(Blaetter(B))
 'dein Code
 End With
Next B
End Sub

Gruß
Reinhard