Microsoft Excel

Herbers Excel/VBA-Archiv

Ausgewählte Sheets in Datenfeld einlesen

Betrifft: Ausgewählte Sheets in Datenfeld einlesen von: Rudi
Geschrieben am: 20.08.2004 12:31:31

Liebe Kollegen

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
  


Betrifft: AW: Ausgewählte Sheets in Datenfeld einlesen von: Dr.
Geschrieben am: 20.08.2004 12:34:21

Was machst´n da?

Ergebnis der Angelegenheit ist doch nur, dass die Variable blatt den Namen des letzten Arbeitsblattes zugewiesen bekommt.

*grübel*


  


Betrifft: AW: Ausgewählte Sheets in Datenfeld einlesen von: Matthias G
Geschrieben am: 20.08.2004 12:41:02

Hallo Rudi,

das ReDim was an der falschen Stelle.
Und Arryas beginnen mit Index 0...
Sub test()
Dim s  As Integer, i As Integer, s0
Dim blatt() As String

s = ActiveWindow.SelectedSheets.Count
ReDim blatt(s)
For i = 1 To s
    blatt(i - 1) = ActiveWindow.SelectedSheets(i).Name
Next i

End Sub

Gruß Matthias


  


Betrifft: AW: Ausgewählte Sheets - Korrektur von: Matthias G
Geschrieben am: 20.08.2004 12:47:10

Hallo Rudi,

es muss heißen
ReDim blatt(s-1)

statt
ReDim blatt(s)

denn das Array geht von 0 bis s-1, hat also s Elemente.

Oder Du schreibst
ReDim blatt(1 To s), dann hat das erste Element den Index 1.

Gruß Matthias


  


Betrifft: AW: Ausgewählte Sheets in Datenfeld einlesen von: Rudi
Geschrieben am: 20.08.2004 13:30:34

Vielen Dank!


 

Beiträge aus den Excel-Beispielen zum Thema "Ausgewählte Sheets in Datenfeld einlesen"