Hallo zusammen,
Ich habe eine Tabelle aus der ich nachdem Sie kopiert wurde, Zeilen lösche welche in Spalte A keinen Wert haben.
Das funktioniert soweit auch, solange da nicht die Zellverknüpfung drin steht.
='Components list'!A135
Wie kann ich das umgehen, lösen?
Hier mein Code dazu:
Sub DelUnsed()
Dim Zelle As Range
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=sKey
On Error Resume Next
For Each Zelle In Range("A:A")
If Zelle.Value = "0" Or Zelle.Text=" " Then Zelle.ClearContents
Next Zelle
On Error GoTo 0
Cells(Rows.Count, 1).End(xlUp).Offset(2, 0).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Interior.ColorIndex = 2
Selection.Delete Shift:=xlUp
ActiveSheet.Protect Password:=sKey
Application.ScreenUpdating = True
ActiveWindow.ScrollRow = 1
End Sub
Danke schon mal .-)
|