Habe den Beitrag schon weiter unten gepostet, aber leider nur eine Antwort erhalten, die auch nicht funktioniert.
Bei der Lösung von Dan öffnet sich die Seitenansicht und dann hängt sich Excel auf und ich muß es mit AltGR+Strg+Entf. beenden.
Nochmal mein Problem.
Habe mir ein UserForm gebastelt auf dem eine Schaltfläche sein soll.
Solbald man draufklickt soll die Spalte a-y mit Inhalt gedruckt werden.
Die leeren Zellen sollen nicht gedruckt werden.
Habe ein Code gefunden, der aber wie immer nicht funzt.
Hat jemand eine Ahnung warum nicht?
Oder weiß jemand nen richtigen Code.
Hier der gefundene Code:
Sub Printlist_Click()
Dim iCol As Integer, iRow As Integer
For iCol = 1 To 4
If Cells(Rows.Count, iCol).End(x1Up).Row > iRow Then
iRow = Cells(Rows.Count, iCol).End(x1Up).Row
End If
Next iCol
ActiveSheet.PageSetup.PrintArea = Range("A1:F" & iRow).Address
ActiveSheet.PrintPreview
End Sub
Vielen Dank
Erik