Mit Excel VBA Drucken programmieren?
Hallo Zusammen
Ich steh wieder mal an mit VBA.
Also: Ich habe eine Tabelle mit Kundendaten. Wenn ich die Kundennummer anklicke, soll er mir das verlinkte Dokument drucken, bis er keine Kundennummer mehr findet. Also die Tabelle "Kundendaten" sieht z.B. so aus:
Jetzt will ich, dass er die Kundennummern 15-20 druckt und dann aufhört. Dann, wenn ich die Zelle mit "26" anklicke, soll er die Nummern 26-39 drucken. Den Code fürs drucken habe ich geschrieben. Jedoch brauche ich noch etwas, dass er "bis zur nächsten leeren Zelle" alles druckt und dann aufhört. Sozusagen: Wenn der Code eine leere Zelle erreicht, wird der VBA Code unterbrochen. Der Code zum Drucken sieht (vereinfacht) so aus:
ActiveCell.Copy
Workbooks.Open "D:\WKS\2_Aktuelles Jahr\Rapporte\5_Rapport SG, ZH, AI.xlsx"
Range("BQ11:BW11").PasteSpecial
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1
ActiveWorkbook.Close savechanges:=False
ActiveCell.Offset(1, 0).Select
End Sub
Weisst jemand, wie ich das Programmieren kann, dass "eine Leere Zelle" den Code beendet/er nicht unendlich druckt?
Danke im Voraus für eure Antworten!
2 Antworten
Stop oder Exit Sub. (Basic) sonst CEEMOUT 0, AE in Assembler.
...
uups, manno . . .
Ein Range ist ein Bereich der mit zwei Koordinaten im Excel Sheet Universum (Ja es hat eine Grenze) angegeben wird mit "A" (Buchstabe und "1" als Koordinate zur Zelle oder quadratischen Zellbereich.´´
Gruß aus Innsbruck
Eine Schleife, die solange läuft, bis die aktuelle Zelle (oder gar Zeile) leer ist.
Falls dies zutrifft, Exit Sub
Habs geschafft, danke. Falls sich jemand die selbe Frage irgendwann stellt, hier mein Code:
Do
'
If ActiveCell.Offset(0, 0) <> "" Then
'
ActiveCell.Copy
Workbooks.Open "D:\WKS\2_Aktuelles Jahr\Rapporte\5_Rapport SG, ZH, AI.xlsx"
Range("BQ11:BW11").PasteSpecial
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1
ActiveWorkbook.Close savechanges:=False
ActiveCell.Offset(1, 0).Select
'
Else
Exit Sub
'
End If
'
ActiveCell.Offset(1, 0).Select
'
Loop
End Sub
LG Trini