wenn ich den nachstehenden Code laufen lasse, kommt eine Fehlermeldung:
1004 Kann Teil einer verbunden Zelle nicht ändern
Im angegebenen Bereich der Tabelle IntHauskalkulation sind aber keine verbundenen Zellen? Stehen bleibt der Code in der Zeile:
Range(Cells(lngR, 2), Cells(lngR, 6)).ClearContents
Sub SortierKalk()
Application.ScreenUpdating = False
Sheets("IntHauskalkulation").Activate
Application.ScreenUpdating = True
Dim lngLetzte As Long
Dim lngR As Long
lngLetzte = IIf(IsEmpty(Range("B63")), Range("B63").End(xlUp).Row + 1, 63)
For lngR = lngLetzte To 1 Step -1
If Cells(lngR, 2) = "" Then
Range(Cells(lngR, 2), Cells(lngR, 6)).ClearContents
End If
Next
Range("B10:G63").Sort Key1:=Range("B10"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("Bearbeitung").Activate
Application.ScreenUpdating = True
End Sub
Vielen Dank für Hilfe
Peter S