mit automatischen Zählern.
Public Sub zaehler()
Sheets("Ausgabe Wartung").Activate
ActiveSheet.Unprotect
If Not Sheets("Ausgabe Wartung").Range("C9").Value = "" Then
Sheets("Ausgabe Wartung").Range("B9").Value = "1"
Sheets("Ausgabe Wartung").Range("B10").Value = "2"
Range("B9:B10").Select
Selection.AutoFill Destination:=Range(Cells(9, 2), Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 2)), Type:=xlFillDefault
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Wenn ich nun aber folgendes Makro starte bekomme immer einen Fehler bei Cells.Count:
Public Sub print_ausgabe_vit()
Dim lrow&
Dim Datei As String
Datei = ActiveSheet.name
Application.ScreenUpdating = False
Worksheets("Ausgabe Wartung").Unprotect
Sheets("Ausgabe Wartung").Select
Range("A1").Select
lrow = Cells(Rows.Count, 3).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & lrow
Range("D1").Select
On Error GoTo ErrorHandler
ActiveSheet.Pictures.Insert("c:\eigene dateien\Logos\Vit.jpg").Select
With Selection
.ShapeRange.ScaleWidth 0.8, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 0.8, msoFalse, msoScaleFromTopLeft
.Placement = xlMove
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.Pictures.Delete
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets(Datei).Select
Application.ScreenUpdating = True
Exit Sub
ErrorHandler: MsgBox ("Es befinden sich keine Logos im Verzeichnis " & vbCrLf & "C:\Eigene Dateien")
End Sub
Wo kann hier der Fehler liegen, oder kann ich den Counter auf null setzen.
Danke schon mal für die Hilfe.
Gruss Jörg