Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

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

Skripte(PHP,ASP,Perl...)

Fragevon snailhouse vom 22.12.2019, 00:11 Options

Excel VBA: Alle Tabellenblätter in einem Workbook mit einer bestimmten Zeichenfolge..

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.

Meine Frage:
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

Antwort schreiben

Antwort 1 von Marie vom 22.12.2019, 02:21 Options

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

Antwort 2 von Marie vom 22.12.2019, 02:29 OptionsLösung

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

Antwort 3 von Marie vom 22.12.2019, 02:30 Options

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

Gruß marie

Antwort 4 von snailhouse vom 22.12.2019, 09:00 Options

Hallo Marie,

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

Gruß
Jürgen

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken