Live-Forum - Die aktuellen Beiträge
Datum
Titel
30.09.2025 21:34:46
VBA - Sharepoint den Pfad der lokalen Synchronisation ermitt
30.09.2025 18:32:19
Summewenn nach Anzahl der Vorkomnisse
30.09.2025 14:57:32
Werte aus einem Vergleich von zwei spalten in dritte Spalte
30.09.2025 13:37:26
als Text gespeicherte Zahlen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen - Makro anpassen

Forumthread: Zeilen löschen - Makro anpassen

Zeilen löschen - Makro anpassen
09.04.2008 18:12:16
Wrobel
Hallo Forumteilnehmer,
habe leider nicht so viel Ahnung von VBA. Den u.g. Code kann man den so anpassen das nur der Bereich A1:J1000 angesprochen wird?
Bin dankbar für jede Hilfe!!!
Hier der Code:

Sub Leerzeilen_löschen()
Dim LoI As Long, RaZeile As Range
Const Passwort As String = "pw" 'Passwort für Blattschutz
'alle Leerzeilen löschen
For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Rows(LoI).SpecialCells(xlCellTypeBlanks).Count = ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeLastCell).Column Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(LoI)
Else
Set RaZeile = Union(RaZeile, Rows(LoI))
End If
End If
Next LoI
RaZeile.Delete
Set RaZeile = Nothing
End Sub


Gruß
André aus SH

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen - Makro anpassen
09.04.2008 18:25:41
Beverly
Hi André,

Sub Leerzeilen_löschen()
Dim LoI As Long, RaZeile As Range
For LoI = 1 To 1000
If Application.CountA(Range(Cells(LoI, 1), Cells(LoI, 10))) = 0 Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(LoI)
Else
Set RaZeile = Union(RaZeile, Rows(LoI))
End If
End If
Next LoI
If Not RaZeile Is Nothing Then RaZeile.Delete
Set RaZeile = Nothing
End Sub



Anzeige
AW: Zeilen löschen - Makro anpassen
10.04.2008 10:26:31
Wrobel
Hallo Karin,
vielen Dank für den Code, nur funktioniert er nicht wirklich. Denn in den Spalten K, L usw. werden trotzdem die Inhalte gelöscht.
Oder ist es nicht möglich die Leerzeilen in einem festem Bereich von A1:J1000 zu löschen bzw. anzusprechen?
Gruß
André

AW: Zeilen löschen - Makro anpassen
10.04.2008 11:18:00
Beverly
Hi André,
in dem von dir geposteten Code werden alle Zeilen gelöscht, in denen von Spalte A bis zur letzten Spalte des benutzten Bereichs alle Zellen leer sind. Mit meinem Code werden alle die Zeilen gelöscht, in denen alle Zellen der Spalten A:J leer sind. Wenn also in K, L usw. Werte drin stehen, in A:J aber nicht, dann werden sie trotzdem gelöscht. Das hatte ich so deiner Frage entnommen.

Anzeige
AW: Zeilen löschen - Makro anpassen
10.04.2008 13:29:29
matthias
alles klar, sorry habs überlesen. Wie mache ich esjetzt, dass er dies auf die zeilen 20-30 und 50-60 macht? ranges vorher definieren?
Danke und Gruss

AW: Zeilen löschen - Makro anpassen
10.04.2008 15:53:00
Beverly
Hi Matthias,
nein, kann man auch im Code selbst steuern

Sub Leerzeilen_löschen()
Dim LoI As Long, RaZeile As Range
For LoI = 20 To 60
If Application.CountA(Range(Cells(LoI, 1), Cells(LoI, 10))) = 0 Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(LoI)
Else
Set RaZeile = Union(RaZeile, Rows(LoI))
End If
End If
If LoI = 30 Then LoI = 49
Next LoI
If Not RaZeile Is Nothing Then RaZeile.Delete
Set RaZeile = Nothing
End Sub



Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige