Thema Datum  Von Nutzer Rating
Antwort
Rot Löschen von Zeilen (Zellen) ohne Wert
12.07.2022 11:50:32 Snoopy
NotSolved
12.07.2022 15:06:10 Gast8497
NotSolved
12.07.2022 15:08:49 Snoopy
NotSolved

Ansicht des Beitrags:
Von:
Snoopy
Datum:
12.07.2022 11:50:32
Views:
121
Rating: Antwort:
  Ja
Thema:
Löschen von Zeilen (Zellen) ohne Wert

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Löschen von Zeilen (Zellen) ohne Wert
12.07.2022 11:50:32 Snoopy
NotSolved
12.07.2022 15:06:10 Gast8497
NotSolved
12.07.2022 15:08:49 Snoopy
NotSolved