Irgendwie schnall ichs nicht mit den Datenfeldern. Ich möchte die ausgewählten Sheets in ein Datenfeld schreiben, aber irgendwo hats einen Fehler.
Der Code lautet:
Sub test()
Dim s As Integer, i As Integer
Dim blatt() As String
s = ActiveWindow.SelectedSheets.Count
For i = 1 To s
ReDim blatt(s)
blatt(i) = ActiveWindow.SelectedSheets(i).Name
Next i
End Sub
Wo liegt hier der Hund begraben?
Danke für eure Unterstützung!
Gruss Rudi