Ausgewählte Sheets in Datenfeld einlesen
20.08.2004 12:31:31
Rudi
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
Anzeige