|
Fehler scheint etwas mit dem Range Aufbau zu tun zu haben.
Range(Cells(5, 1), Cells(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row, 4)).ClearContents
darum habe ich folgendes probiert:
1. ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row wird gefunden Zeile 22
2. Active Sheet durch worksheets ersetzt, aber immer noch ein Fehler des Range
Sub test()
Dim zeile As String
Dim ws1 As Worksheet
Set ws1 = Worksheets("Kapazitätsabfrage")
zeile = ws1.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox zeile
If ws1.Cells(Rows.Count, 1).End(xlUp).Row > 4 Then
ws1.Range(ws1.Cells(5, 1), ws1.Cells(zeile, 4)).ClearContents
End If
End Sub
|