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 .-)