Kopfzeile die Xte - ohne gefundene Antwort

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hier haben wir zwei Probleme

1)
> Wie kann ich in meinem Code angeben, das nur Seite 1 bis 1 gedruckt werden soll
Ich weiss nicht was HaJo darunter verstanden hat, aber ich kapiere es nicht. Wenn man in Excel auf Datei/Drucken geht, kann ma wählen, wie viele Seiten gedruckt werden. Wenn man nur auf STRG-P haut, dann werden alle Seiten gedruckt. Du kannst nicht sagen "das nur Seite 1 bis 1 gedruckt werden soll"
Vielleicht meinst DU, dass Du die Seite einrichten willst, damit sie auf eine Seite gedruckt wird. Nutz mal den Makro Recorder um dieses aufzuzeichnen - dann siehst Du den Befehl

2) Ich möchte die Dateien ja nicht im eigentlichen Sinne öffnen.
Eigentlich soll der Code sie zwar öffnen, das Marko drüber laufen lassen und dann wieder schließen. Hiernach soll erst die nächste Datei geöffnet werden.
Du willst in allen 390 Dateien, etwas einstellen, damit beim nächsten Mal, dass die Datei eröffnet wird diese Einstellung vorhanden ist. Das kann nur gehen, wenn die
- die Datei aufmachst
- etwas machst
- die Datei speicherst
- die Datei zumachst.

In der Recherche hast du gesehn, wie man alle Dateien der Reihe nach in einem Verzeichnis aufmahcen kannst.
Nach dem die Datei offen ist, lass Dein Makro laufen, speicher und schliesse die Datei

Zu 1)
Wie HaJo richtigerweise es sagt:
Das was gedruckt wird, ist dass was mit Seite Einrichtung eingerichtet wurde. Falls die böse MA anderes Zeug nicht drucken sollten, dann kann man nur dieses verhindern, in dem man die Seiten Einrichtung entsprechend setzt
(Ja es gäbe andere Weg einzugreifen, aber das führt zu weit)

Zu 2)
In der von mir genannten Recherche hast Du gefunden
Sub Öffne_alle()
On Error GoTo err_ÖffneAlle
einPfad = "K:\Daten\excel\"
ChDir (einPfad)
einDokument = Dir("*.xls")
While einDokument <> ""
Workbooks.Open(einPfad & einDokument)
einDokument = Dir()
Wend
Exit Sub
err_ÖffneAlle:
MsgBox Err.Description
End Sub

Wie wärst, wenn du diese wie folgt ergänzen würdest
Sub Öffne_alle()
On Error GoTo err_ÖffneAlle
einPfad = "K:\Daten\excel\"
ChDir (einPfad)
einDokument = Dir("*.xls")
While einDokument <> ""
Workbooks.Open(einPfad & einDokument)
********************HIER DEIN MAKRO AUFRUFEN
********************HIER DIE DATEI SPEICHERN
********************HIER DIE DATEI ZUMACHEN
einDokument = Dir()
Wend
Exit Sub
err_ÖffneAlle:
MsgBox Err.Description
End Sub

Dann wird dieses Makro alle Dateien nacheinander aufmachen, Dein Makro durchführen, speichern und schliessen. Dat ist wat du willst

Beliebteste Forumthreads (12 Monate)

Kopfzeile die Xte - ohne gefundene Antwort

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread