Supportnet / Forum / Skripte(PHP,ASP,Perl...)

Hallo zusammen, ich habe eine xls-Tabelle in einer xls-Tabelle eine Vorlage erstellt. Über ein Makro kopiere ich bei Bedarf dieses Tabellenblatt und benenne es um, indem ich das aktuelle Datum an den Namen Anhänge. Beispiel: Die Vorlage heißt beispielsweise "Messwerte". Nach dem Kopieren benenne ich das neue Blatt um in "Messwerte_20071221". D.h. in der Datei tauchen mehrere Blätter mit dem Namen "Messwerte_JJJJMMTT" auf. [b]Meine Frage:[/b] Wie kann ich nacheinander alle Messblätter, deren Name die Zeichenfolge "Messwerte" enthält öffnen (um anschließend jeweils bestimmte Werte auszulesen und weiterzuverarbeiten)? Für Eure Mühe im voraus vielen Dank! Jürgen

Public Function fktBlaetterNamen()

Dim Zahl_Blätter As Integer
    Dim y()

Zahl_Blätter = 0
        
    For Each WB_Blatt In ActiveWorkbook.Worksheets
        Zahl_Blätter = Zahl_Blätter + 1
        ReDim Preserve y(1 To Zahl_Blätter)
        y(Zahl_Blätter) = WB_Blatt.Name
        MsgBox y(Zahl_Blätter)
    Next WB_Blatt

End Function

Hier

Gruß Marie

Upps, sorry, wer lesen kann is klar im Vorteil:

Public Function fktBlaetterNamen()

Dim Zahl_Blätter As Integer
Dim y()

Zahl_Blätter = 0
        
    For Each WB_Blatt In ActiveWorkbook.Worksheets
        Zahl_Blätter = Zahl_Blätter + 1
        ReDim Preserve y(1 To Zahl_Blätter)
        y(Zahl_Blätter) = WB_Blatt.Name
        If InStr(y(Zahl_Blätter), "Tabelle") Then
            ' tue was Du tun willst
            MsgBox y(Zahl_Blätter)
        End If
    Next WB_Blatt

End Function

Statt "Tabelle" setzt Du natürlich "Messwerte" ein, schon wieder zu schnell abgedrückt :-(

Gruß marie

Hallo Marie,

vielen Dank für die schnelle Hilfe!
Die Anpassung kriege ich schom hin :-)

Gruß
Jürgen

• Excel VBA: Berechnung ausschalten?
• Excel Tabellenblätter zusammenführen
• vba in Code-Zeile "springen"
• Schnellreferenz Excel VBA
• VBA-Excel