ich hatte gestern schon einmal die frage gestellt und auch mehrere antworten bekommen, die zwar funktionieren aber nicht nach meinen vorstellungen.
unter beispielen habe ich dann auch eine anweisung gefunden die meinen wünschen entspricht.
Private Sub CommandButton1_Click()
Dim intRow As Integer
intRow = 1
Do Until Cells(intRow, 1) = 0
intRow = intRow + 1
Loop
Worksheets("Tabelle8").PageSetup.PrintArea = _
ActiveSheet.Name & "!" & Range(Cells(1, 7), Cells(intRow - 1, 8)).Address
End Sub
die anweisung habe ich dann etwas abgeändert und zwar:
der druckbereich soll von spalte "a" bis spalte "h" gehen und in spalte "g" bis zum ersten nullwert.
wenn ich nun den druckbereich festlegen möchte, kommt folgender laufzeitfehler 1004 "anwendungs- oder objektdefinierter fehler".
was mache ich falsch?
für hilfe wäre ich dankbar.
gruß
martin