Ich möchte im nachfolgendem Makro den Druckbereich in Abhängigkeit vom Zellinhalt(bis zur ersten leeren Zelle) A bis E festlegen.
Ich habe mir hier in der Recherhe die Befehle zusammengesucht.
Er bringt mir dann aber folgende Fehlermeldung:
printarea-Eigenschaft des pagesetup-Objektes kann nicht festgelegt werden!
Wo liegt denn mein Fehler?
Vielen Dank schonmal!
Brit
If Sheets("Arbeitsdatei").ComboBox1.ListIndex = 2 Then
Dim iRow As Integer
iRow = 1
Do Until Cells(iRow + 1, 1).Value = ""
iRow = iRow + 1
Loop
Worksheets("Arbeitsdatei").PageSetup.PrintArea = Range(Cells(1, 1), cells(iRow, 5)) .Address
Application.Dialogs(xlDialogPrint).Show
Sheets("Arbeitsdatei").ComboBox1.ListIndex = 0
Worksheets("Arbeitsdatei").PageSetup.PrintArea = ""
Application.ScreenUpdating = True
End If