Hallo ihr listigen Helfer,
ich versuche schon den ganzen morgen alle Sheets-Namen einer Arbeitsmappe in ein Array zu schreiben bzw. alle Mappen zusammen zu selektieren. Die Namen der Mappen sind nicht immer gleich( bzw. es sind nicht alle vorhandenen Mappen eingeblendet), aber da auf allen Seiten das gleiche geändert werden muss ist es das schnellste alle zu markieren. Ich habe jetzt eine Schleife geschreiben die über alle Mappen läuft um die Formatierungen zu änderen, doch das dauert bei 6 Mappen fast 1 Minute (Bildschirmanzeige und Berechnen sind ausgeschaltet).
Wie markiere ich also per VBA alle sichtbaren Arbeitsmappen.
Finde da keine gescheite Lösung :-(, Per aufgezeichneten Code macht Excel da ein Array draus und ich wollte die Namen der Mappen also in Array schreiben und dann alles markieren. Ich habe es also schon geschafft die Namen in eine Array zu schreiben.
Dim bereich As Variant
ReDim bereich(1 To Sheets.Count)
For a = 1 To Sheets.Count
bereich(a) = Sheets(a).Name
Next
aber denn weiß ich nicht weiter :-(
Warscheinlich gibt es eine ganz einfache Lösung :-)
Gruß
Michael