Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausdruck von Dateien mit Laufnummer über Macro

Ausdruck von Dateien mit Laufnummer über Macro
07.01.2005 11:50:45
Dateien
Hallo Forumbenutzer,
ich hätte ff. Problem:
Habe in einem Verzeichnis 256 Dateien des Typs "Blatt1.xls", "Blatt2.xls".....usw. Nun würde ich diese gern ausdrucken können. Sagen Wir Blatt 20 - 50 und das ganze über ein Makro, da ich absoluter Anfänger bei der VBA Programmierung bin bräuchte ich eure Hilfe. Mir ist nämlich nicht klar wie ich den Namen von der Erweiterung trenne und die Erweiterung als Variable laufen lasse um sie dann wieder anzuhängen.
Wenn mir also jemand helfen kann, wäre das toll.
VG Marco

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausdruck von Dateien mit Laufnummer über Macro
Dateien 

Sub drucken()
Dim iVon, iBis, strDat As String, iCnt As Integer
Dim strPath As String, strName As String
strPath = "c:\test\"  'dein Pfad
strName = "Blatt" '"Rumpfdateiname"
iVon = InputBox("von:")
If iVon = "" Then Exit Sub
iBis = InputBox("bis:")
If iBis = "" Then Exit Sub
For iCnt = CInt(iVon) To CInt(iBis)
strDat = strPath & strName & iCnt & ".xls"
Workbooks.Open strDat
ActiveWorkbook.PrintOut
ActiveWorkbook.Close False
Next iCnt
End Sub

AW: Ausdruck von Dateien mit Laufnummer über Macro
07.01.2005 13:04:52
Dateien
Der absolute Wahnsinn :-)
funzt einwandfrei, vielen Dank an den edlen Spender. Werde auch mal versuchen das ganze nachzuvollziehen.
VG Marco
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige