Ich sollte von einem Worksheet mit vba Spalte für Spalte je auf einer Seite ausdrucken, wobei die Spalten 1 immer mitgedruckt werden soll. Mit meinen bald 70 Jahren wieder einmal ein Excel-Problem lösen! No Problem ... Ich habe hier https://www.herber.de/forum/archiv/1168to1172/1168719_Zeile_pro_Zeile_ausdrucken.html#1168731
eine Lösung gefunden mit dem gleichen Problem, aber Zeile für Zeile. Ist doch ganz einfach, dachte ich:
lngLC = Cells(Columns.Count, 1).End(xlUp).Columns 'Letzte Spalte der Zeile 1 ermitteln
If MsgBox("Sollen jetzt alle Spalten EINZELN gedruckt werden ?", _
vbYesNo + vbQuestion) = vbYes Then
For lngC = 3 To lngLC 'Alle Spalten ab Spalte 3
Columns("c:" & lngLC).Hidden = True 'Zuerst ALLE Spalten ab Spalte 3 ausblenden
Columns(lngC).Hidden = False 'nur aktuelle Spalte einblenden
ActiveSheet.PrintOut 'Aktuelles Blatt ausdrucken
Next
End If
Columns("4:" & lngLC).Hidden = False 'ALLE Zeilen ab Spalte 4 wieder einblenden
LEIDER komme ich bei
Columns("c:" & lngLC).Hidden = True
nicht weiter, weil die Spalten natürlich mit Buchstaben beschriftet sind. Wer weiss mir da weiter. Vielen Dank!