MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Basic für Windows (alle Versionen bis 6.0)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 27.09.2016, 17:21   #1
surfenhawaii
Neuer Benutzer
Neuer Benutzer
Standard Sonstiges - 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



End Sub
surfenhawaii ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 28.09.2016, 08:34   #2
haklesoft
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,

auch wenn Du schon mal Erfolg hattest bist Du hier mit Deinen Excel-VBA-Fragen falsch, denn in dieser Ecke des Forum besprechen wir Fragen zu traditionellem VB bis zur Version 6.0 und eben nicht zu Office-VBA.

Wende Dich also bitte an die Excel-Ecke.

Davon abgesehen solltest Du beigefügten Code der besseren Lesbarkeit wegen immer in Code-Tags verpacken.

Und dann gibts Du bei dem mehrmaligen Cells(i, ...) keine Workbookreferenz an. Worauf bezieht sich Cells(i, ...)? Das Resize dürfte den Schleifendurchlauf stören.

__________________

Hang loose, haklesoft

Geändert von haklesoft (28.09.2016 um 08:36 Uhr).
haklesoft ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:41 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.