Thema Datum  Von Nutzer Rating
Antwort
Rot Script hängt nach jeder Löschung
 28.09.2016 08:55:12 Gast12476
NotSolved
28.09.2016 09:10:41 Crazy Tom
NotSolved
28.09.2016 09:36:13 Gast28039
Solved

Ansicht des Beitrags:
Von:
Gast12476		 Datum:
28.09.2016 08:55:12		 Views:
1162		 Rating:
     
Antwort:
  Ja
Thema:
Script hängt nach jeder Löschung

Hallo,

ich habe ein sheet mit Daten in mehreren Spalten, die zwischendurch durch leere Zellen unterbrochen werden.
Nun löscht das unten angegebene Script wunderbar die leeren Zellen, bleibt aber nach jeder Löschung stehen, so das ich dieses script mehrmals ausführen muss, damit auch alle leeren Zellen gelöscht werden.
Weis jemand wie man es so gestaltet, das es automatisch alle leeren Zellen löscht ohne dabei stehenzubleiben?



Sub InhaltLoeschen()



Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim i As Long

Set wksQ = Worksheets("Monitoring") 'Quellblatt
Set wksZ = Worksheets("Ansicht") 'Zielblatt




For i = 1 To wksZ.Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, 1) = "" Then Cells(i, 1).Resize(1, 4).Delete
If Cells(i, 9) = "" Then Cells(i, 9).Resize(1, 10).Delete
'ClearContents
Next i

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 Script hängt nach jeder Löschung
 28.09.2016 08:55:12 Gast12476
NotSolved
28.09.2016 09:10:41 Crazy Tom
NotSolved
28.09.2016 09:36:13 Gast28039
Solved