Sheetname auslesen für Array

Jörg · 2005-01-26T10:24:35+00:00

Hallo, ich möchte gerne alle Namen der sichtbaren mappen auslesen und in einen Array übergeben, wie kann ich sowas anstellen , damit ich nicht immer die Namen schreiben muss(z.b.: Sheets(Array("Tabelle1", "Tabelle2", ....)).select ). Gruß Jörg

Morjn Jörg,
also den Zweck (nur Selektion) erfüllt u_'s Makro schon - bei mir funktioniert's. Alles weitere wirst du dann ja wohl ohnehin manuell machen. Wenn's bei dir nicht läuft, muss es an einem der Blattnamen liegen. Die Methode, eine Zeichenkette (String) aus den Namen (mit trennendem Komma) zu bilden, würde dann nicht richtig funktionieren, wenn einer der Blattnamen ein Komma enthält. Das dürfte aber eigentlich nicht sein, weil wohl das Komma eins der wenigen Zeichen ist, die in Blattnamen verboten sind. Mein Programm würde diesen Zweck auch erfüllen, wenn der Dateiname nicht mit in den Vektor(hier: Datenfeld=array) der zugeordneten Blattnamen aufgenommen wird und diese Variable dann anstelle der split-Konstruktion in die Select-Anweisung aufgenommen wird - "ThisWorkbook.Sheets(s).Select" (aber nur ohne das bisherige Element s(0)!). Das würde auf jedenfall Fehler, die bei split auftreten könnten, vermeiden.
Wenn du dir die Arbeit derart erleichtern willst, kommst du an VBA nicht vorbei. Da solltest du schon mal den Editor aufrufen und dort in der online-Hilfe die Sprachelemente nachschlagen. Sonst wirds so nichts und du musst dir das programmieren lassen.
Gruß Luc

Hallo Jörg,
wenn ich dich richtig verstanden habe, löst Folgendes wahrscheinlich dein Problem.
Bei mir funktionierts! Gruß Luc


Sub TabTitel()
Rem liefert ein Variablenarray (Variant) _
mit Namen aller sichtbaren Blätter (j) _
pro geöffneter Arbeitsmappe (i)
Dim b As Workbook, s As Worksheet, _
t() As Variant, w() As Variant, _
i As Integer, j As Integer, _
m As Integer, n As Integer
m = Workbooks.Count - 1
Rem -1 wenn Index bei 0 beginnt
ReDim w(m)
For Each b In Workbooks
n = b.Sheets.Count
ReDim t(n)
j = 0: t(0) = b.Name
For Each s In b.Sheets
j = j + 1
If s.Visible Then
t(j) = s.Name
End If
Next s
w(i) = t
i = i + 1
Next b
MsgBox w(0)(1) & Chr(10) & w(0)(2), vbOKOnly, w(0)(0)
Rem MsgBox ist nur TestBsp - hier dann zentrale Ausgabe- _
bzw Ablageanweisungen für w(i)(j) einfügen!
End Sub

Forumthread: Sheetname auslesen für Array

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Sheetname auslesen für Array

Forumthread: Sheetname auslesen für Array

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread