ich stehe nun mal wieder vor einem Problemchen. Ich möcht mit meinem Code nur bestimmte Spalten ausdrucken. Die letzte Zeile bestimmt sich aus Spalte B. Ich markiere mit dem Makro also die Spalten die nicht aneinanderliegen und und möchte Sie auf einer Seite zum ausdrucken zusammenführen. Anbei mein Code (leider weiß ich nicht wie ich noch die anderen Spaltenbereiche außer G mitangeben kann.) Die Tabelle besteht aus 2000 Zeilen.
Sub drucken1()
Dim letzteZeile As Long
Dim letzteZelle As Range
letzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Range("G2:G" & letzteZeile).PrintOut Copies:=1, Collate:=True
'Range("G2:G2000,I2:L2000,R2:W2000,AH2:AH2000,AN2:AN2000") Spalten die gedruckt werden sollen _
_
aber immer nur bis zur letzen Zeile aus Spalte B
End Sub
Viele Grüsse ausm Oberland
Maris