Wechsel von Dir um Inhalt auszudrucken

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Wechsel von Dir um Inhalt auszudrucken
von: Urs
Geschrieben am: 24.05.2002 - 23:12:40

Hallo zusammen

Ich habe folgendes Makro:

Sub AlleDrucken()
'Druckt immer die ersten 2 Seiten der Datei
Dim WB As Workbook
Dim FName$
ChDrive "c"
ChDir "C:\dokumente und Einstellungen\fujitsu\eigene Dateien\Privat\Blue\Inventarlisten\Herbst-Winter 02\"
FName = Dir("*.xls")
While FName <> ""
Set WB = Workbooks.Open(Filename:=FName)
Worksheets(1).PrintOut
Charts(1).PrintOut
WB.Close
FName = Dir()
Wend
End Sub

Im Verzeichnis Inventarlisten habe ich verschiedene Perioden. Wie kann ich von Verzeichnis zu Verzeichnis springen und jeweils das oben aufgeführte Makro ausführen. Ohne das ich für jede Periode ein neues Makro machen muss.

Vielen Dank für Euer Input

Gruss

Urs

nach oben   nach unten

Re: Wechsel von Dir um Inhalt auszudrucken
von: WernerB.
Geschrieben am: 25.05.2002 - 08:15:59

Hallo Urs,

Was hältst Du von diesem Vorschlag (musst Du natürlich noch auf Deine Perioden abstimmen):


Option Explicit
Sub AlleDrucken()
'Druckt immer die ersten 2 Seiten der Datei
Dim WB As Workbook
Dim Periode$, Verz$, FName$
    Periode = InputBox("Periode eingeben:" & Chr(10) & Chr(10) _
      & "  1 = Frühjahr-Sommer 02" & Chr(10) & "  2 = Herbst-Winter 02" & Chr(10) _
      & "  3 = Frühjahr-Sommer 03" & Chr(10) & "  4 = Herbst-Winter 03" & Chr(10), _
      "Periodenauswahl")
    If Periode = "" Then
      MsgBox "Keine Eingabe - Makroabbruch !", vbExclamation, _
        "Hinweis für " & Application.UserName & ":"
      Exit Sub
    End If
    Select Case Periode
      Case "1"
        Verz = "Frühjahr-Sommer 02"
      Case "2"
        Verz = "Herbst-Winter 02"
      Case "3"
        Verz = "Frühjahr-Sommer 03"
      Case "4"
        Verz = "Herbst-Winter 03"
      Case Else
        MsgBox "Ungültige Periodenauswahl - Makroabbruch !", vbExclamation, _
          "Hinweis für " & Application.UserName & ":"
        Exit Sub
    End Select
    ChDrive "C"
    ChDir "C:\dokumente und Einstellungen\fujitsu\eigene Dateien\Privat\Blue\Inventarlisten\" _
      & Verz & "\"
    FName Dir("*.xls")
    While FName <> ""
      Set WB = Workbooks.Open(FileName:=FName)
      Worksheets(1).PrintOut
      Charts(1).PrintOut
      WB.Close
      FName = Dir()
    Wend
End Sub

Viel Erfolg wünscht
WernerB.
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Wechsel von Dir um Inhalt auszudrucken"