26.11.2019, 13:18
Hallo Zusammen,
bei meiner Tabelle mit UserForm habe ich folgende Probleme:
In Tabelle „Aufträge“ werden alle gespeicherten Aufträge aufgelistet. In der Spalte A, ab der Zelle „A2“, wird für jeden Auftrag einen laufende Nummer vergeben. Die Nummer hat das Format „000“. In der Zelle „AO1“ wird die letzte laufende Nummer ermittelt, die brauche ich, um im Tabellenblatt „Aufträge drucken“ die Auftragsnummer zu vergeben. Aktuell mach ich das mit der Formel „=INDEX(A:A;ANZAHL2(A:A))“. Die letzte laufende Nummer wird auch in der Zelle „AO1“ im Format „000“ angezeigt, wenn ich die aber über die Formel „=2019&"/"&Aufträge!AO1&"/BI508"“ in das Tabellenblatt „Aufträge drucken“ eintrage zeigt es die laufende Nummer nur im Format „0“ an, kann man das irgendwie ändern?
Dann möchte ich gerne die Tabellenblätter schützen, aber wenn ich den Blattschutz für alle Zellen Eingebe, funktioniert das Speichern über die Userform nicht mehr.
Weiterhin habe ich mir überlegt, dass ich jeden Auftrag als PDF abspeichern möchte. Dazu habe ich folgenden Code verwendet:
Dim Dateiname As String
Dateiname = Worksheets("Aufträge").Range("AQ1") & Worksheets("Aufträge").Range("AP1") & ".pdf"
Worksheets("Aufträge drucken").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:=XLQualityStandart, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Der Speicherort der Dateien soll im Ordner C:\Users\Documents\Aufträge 2020 abgelegt werden. Den Pfad gebe ich in der Zelle „AQ“ an. Als Dateiname soll „Auftrag 2019_“lfd.Nr.“ verwendet werden. Den Dateinamen gebe ich in der Zelle „AP3“ vor.
Jetzt habe ich wieder das Problem mit der laufenden Nummer! Die speichert es wieder nur im Format „0“ und nicht „000“ Wie kann ich das Problem lösen?
Ich hoffe ihr könnt mir helfen. Vielen Dank schonmal im voraus.
Viele Grüße
Robbie1985
bei meiner Tabelle mit UserForm habe ich folgende Probleme:
In Tabelle „Aufträge“ werden alle gespeicherten Aufträge aufgelistet. In der Spalte A, ab der Zelle „A2“, wird für jeden Auftrag einen laufende Nummer vergeben. Die Nummer hat das Format „000“. In der Zelle „AO1“ wird die letzte laufende Nummer ermittelt, die brauche ich, um im Tabellenblatt „Aufträge drucken“ die Auftragsnummer zu vergeben. Aktuell mach ich das mit der Formel „=INDEX(A:A;ANZAHL2(A:A))“. Die letzte laufende Nummer wird auch in der Zelle „AO1“ im Format „000“ angezeigt, wenn ich die aber über die Formel „=2019&"/"&Aufträge!AO1&"/BI508"“ in das Tabellenblatt „Aufträge drucken“ eintrage zeigt es die laufende Nummer nur im Format „0“ an, kann man das irgendwie ändern?
Dann möchte ich gerne die Tabellenblätter schützen, aber wenn ich den Blattschutz für alle Zellen Eingebe, funktioniert das Speichern über die Userform nicht mehr.
Weiterhin habe ich mir überlegt, dass ich jeden Auftrag als PDF abspeichern möchte. Dazu habe ich folgenden Code verwendet:
Dim Dateiname As String
Dateiname = Worksheets("Aufträge").Range("AQ1") & Worksheets("Aufträge").Range("AP1") & ".pdf"
Worksheets("Aufträge drucken").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, Quality:=XLQualityStandart, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Der Speicherort der Dateien soll im Ordner C:\Users\Documents\Aufträge 2020 abgelegt werden. Den Pfad gebe ich in der Zelle „AQ“ an. Als Dateiname soll „Auftrag 2019_“lfd.Nr.“ verwendet werden. Den Dateinamen gebe ich in der Zelle „AP3“ vor.
Jetzt habe ich wieder das Problem mit der laufenden Nummer! Die speichert es wieder nur im Format „0“ und nicht „000“ Wie kann ich das Problem lösen?
Ich hoffe ihr könnt mir helfen. Vielen Dank schonmal im voraus.
Viele Grüße
Robbie1985