Ich habe ein Makro geschrieben, dass bestimmte Zellen prüfen und nach der Prüfung entsprechende Bereiche ausdrucken soll. Für den Fall, dass bestimmte Zellen falsch ausgefüllt worden sind, sollen alle möglichen Fehlerquellen farblich (rot) markiert werden. Das ganze hatte auch schon einmal geklappt, funktioniert nur jetzt nicht mehr:
Private Sub CommandButton1_Click()
If Tabelle8.Range("AH27") 0 Then
If Tabelle5.Range("C24") = "OK" And Tabelle8.Range("A32").Value "" And Tabelle8.Range(" _
_
_
_
A15").Value "0" And Tabelle8.Range("B15").Value "0" Then
Tabelle8.Activate
ActiveSheet.Range("A32").Interior.ColorIndex = 0 /hier tritt der Fehler auf
ActiveSheet.Range("A15").Interior.ColorIndex = 0 /hier tritt der Fehler auf
ActiveSheet.Range("B15").Interior.ColorIndex = 0 /hier tritt der Fehler auf
Tabelle5.PageSetup.PrintArea = "A1:AJ23"
Tabelle5.PrintOut Copies:=1
If Tabelle6.Range("AG18") 0 Then
Tabelle6.PageSetup.PrintArea = "A1:AG31"
Tabelle6.PrintOut Copies:=1
End If
If Tabelle7.Range("AG18") 0 Then
Tabelle7.PageSetup.PrintArea = "A1:AG31"
Tabelle7.PrintOut Copies:=1
End If
If Tabelle8.Range("AH27") 0 Then
Tabelle8.PageSetup.PrintArea = "A1:AH39"
Tabelle8.PrintOut Copies:=1
End If
Else
MsgBox "Es sind noch nicht, oder falsch ausgefüllte Felder vorhanden!"
Tabelle8.Activate
ActiveSheet.Range("A32").Interior.ColorIndex = 3 /hier tritt der Fehler auf
ActiveSheet.Range("A15").Interior.ColorIndex = 3 /hier tritt der Fehler auf
ActiveSheet.Range("B15").Interior.ColorIndex = 3 /hier tritt der Fehler auf
End If
Else
If Tabelle5.Range("C24") = "OK" Then
Tabelle5.PageSetup.PrintArea = "A1:AJ23"
Tabelle5.PrintOut Copies:=1
If Tabelle6.Range("AG18") 0 Then
Tabelle6.PageSetup.PrintArea = "A1:AG31"
Tabelle6.PrintOut Copies:=1
End If
If Tabelle7.Range("AG18") 0 Then
Tabelle7.PageSetup.PrintArea = "A1:AG31"
Tabelle7.PrintOut Copies:=1
End If
Else
MsgBox "Es sind noch nicht, oder falsch ausgefüllte Felder vorhanden!"
End If
End If
End Sub
Der Fehler lautet:
Laufzeitfehler '1004'
Anwendungs- oder objektdefinierter Fehler
Wenn ich die Zeilen in denen der Fehler auftritt rausnehme funktioniert alles weitere.
Ich hoffe mir kann da geholfen werden!
Beste Grüße und vielen Dank schonmal im voraus:
Martin