Mehrere Office Excel Datein in Reihenfolge öffnen, möglich?

Hallo,

wenn ich mehrere Excel Dateien auswähle und dann öffne, öffnen sich diese in zufälliger Reihenfolge, obwohl diese im Ordner dem nach geordnet sind. Genauso ist es, wenn ich diese Dateien markiere und dann drucke. Sie drucken in zufälliger Reihenfolge.

Ist es möglich, dass die Dateien in Reihenfolge öffnen und drucken?

(Bsp: Kunde 1, Kunde 2, Kunde 3, Kunde 4, usw... und nicht Kunde 3, Kunde 1, Kunde 4, Kunde 2, usw...)

Answer 1

[GutenTag2003]

Habe das mal probiert und eine Makrodatei kreiert.

• Makro aufzeichnen
• Dateien der gewünschten Reihenfolge nach öffnen
• Dateien in der gewünschten Reihenfolge als Druckauftrag ausführen
• Makro abschließen.

Danach aus der Makrodatei das Makro ausführen lassen.

Die Dateien

• werden in der gewünschten Reihenfolge geöffnet und gedruckt.

Woher ich das weiß: eigene Erfahrung

Answer 2

[hannes1806]

Habe es gerade getestet, ich finde tatsächlich keine sinnvolle Reihenfolge.
Da muss ein Makro her. Damit bekommst du auf einfache Weise noch ein paar Gimmicks dazu (Dateiliste erstellen, nur markierte drucken, Erledigungsvermerk, usw.). Wonach sind die Dateien normalerweise sortiert?

Woher ich das weiß: eigene Erfahrung – Faulheit >> Neugier >> Wissen

Comments

[BuIIe]

Ich weiß leider nicht was du mit Makro meinst und wie man sowas macht.

Die Dateien sind nach Name sortiert.

[hannes1806]

@BuIIe

Ein Makro ist ein Programm, das innerhalb von Excel ausgeführt wird.
Wahrscheinlich zahlt es sich aus, wenn du dich damit ein bisschen vertraut machst. Am leichtesten ist das mit Youtube Stichwort Excel Makros erste Schritte.

Dieser Code würde deinen Pfad auslesen und alle Dateien, die .xls beinhalten alphabetisch auflisten. Zum Öffnen, Drucken, Druckvermerk schreiben sind es dann nur ein paar kleine Schritte.

Sub Dateien_Auflisten()
   Pfad = Range("A1") 'Zu untersuchenden Pfad aus Zelle A1 lesen
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set F = fs.GetFolder(Pfad)
   Set fc = F.Files
   Range("B1") = F.Files.Count & " Dateien gefunden"
   For Each F1 In fc
       If InStr(F1.Name, ".xls") <> 0 Then
           i = i + 1
           Cells(i + 1, 1) = F1.Name
           DoEvents
       End If
   Next
   'Tabelle sortieren
   ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
   ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("A:A"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Tabelle1").Sort
       .SetRange Range("A:A")
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
End Sub