die letzte Codezeile funktioniert nicht. Der gewünschte Bereich wird nicht ausgewählt.
Was ist an der Zeile falsch?
Ziel der gesamten Aktion:
Der Bereich von A1 bis letzte Zeile und davon die neunte Spalte rechts markieren und in DIN A 3 in eine PDF drucken.
Herzlichen Dank für die Hilfe.
VG Eisi :-)
Sub Drucken_Button()
Dim last As Integer
Dim x As String
Dim y As String
last = Cells(Rows.Count, 4).End(xlUp).Row
'suche in Spalte 4 die letzte befuellte Zelle
y = ActiveCell.Address
' speicher die Adresse der letzten aktiven _
Zelle
x = "A1"
'lege fuer die Zelle A1 eine Variable x an
Cells(last, 4).Offset(0, 9).Activate
' aktiviere in der letzten Zelle der Spalte 4 die Zelle in der 9. Spalte rechts davon
Range(x, y).Activate
' markieren den Bereich von A1 bis letzte aktive Zelle
End Sub