Druck mit letzter Seite beginnen

• Druck mit letzter Seite beginnen von Bernd_12 vom 01.11.2003 05:54:43
  • AW: Druck mit letzter Seite beginnen - von Monika Weber am 01.11.2003 09:17:03
    • AW: Druck mit letzter Seite beginnen - von Bernd_12 am 01.11.2003 13:42:13

Betrifft: Druck mit letzter Seite beginnen
von: Bernd_12
Geschrieben am: 01.11.2003 05:54:43
Hallo, ich habe ein riesiges Problem:
Eine Arbeitsmappe mit 160 Blättern (Kunden, die alphabetisch geordnet sind) kann ich nicht so ausdrucken, dass das Arbeitsblatt, das einen Kundennamen mit "W" als Anfangsbuchstabe enthält, als erstes ausgedruckt wird. Nach Druckende muss ich die 160 Blätter also einzeln sortieren (das Häkchen "Druck mit letzter Seite beginnen" im Druckertreiber habe ich gesetzt).
Schon im voraus herzlichen dank für eure Hilfe
Bernd

Betrifft: AW: Druck mit letzter Seite beginnen
von: Monika Weber
Geschrieben am: 01.11.2003 09:17:03
Hallo Bernd,

Du könntest eine VBA-Prozedur verwenden, die die Reihenfolge der Blätter umdreht, so dass jenes, welches jetzt am Ende steht nach dem Ausführen des Codes am Anfang steht und umgekehrt.

Erstelle sicherheitshalber eine Kopie Deiner Mappe, bevor Du damit beginnst.

Öffne die Kopie der Mappe und wechsle in die VBA-Umgebung (Alt + F11)
Füge ein Modul ein (Menü: "Einfügen/Modul")
Kopiere den nachfolgenden Code in dieses Modul.
Drücke 1x die Taste F5.
Verlasse die VBA-Umgebung (Alt + F4).

Die Blätter sollten nun umsortiert sein (Z-A). Dies natürlich nur vorausgesetzt, dass sie zuvor auch wirklich alphabetisch sortiert waren. Um die Blätter wieder zurückzusortieren, führe die selbe Prozedur noch einmal aus.

Sub Test()
Dim i As Integer
For i = Worksheets.Count To 1 Step -1
Worksheets(i).Move After:=Worksheets(Worksheets.Count)
Next i
End Sub

Es liebs Grüessli
Monika





Betrifft: AW: Druck mit letzter Seite beginnen
von: Bernd_12
Geschrieben am: 01.11.2003 13:42:13
Hallo Monika,
ganz ganz herzlichen Dank für deine nicht nur schnelle, sondern auch erfolgreiche Hilfe:
habe es sofort umgesetzt, und: ES KLAPPT!
Nochmals Danke und einen schönen Sonntag.
Beste Grüße
Bernd

Excel-Beispiele zum Thema " Druck mit letzter Seite beginnen"
Letzter Wert in Zeile	Letzter Wert aus einem Bereich
Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen	Zeile mit letzter Fundstelle an letzte Position der Liste
Ersten mit einem neuen Buchstaben beginnenden Namen fett schreiben