Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen löschen per Makro

Zeilen löschen per Makro
23.01.2008 15:40:00
Jörg
Hallo zusammen,
Ich habe folgendes "Problem":
Gegeben: 1 Exelmappe mit 2 Blättern à 2676 Zeilen und 250 Spalten
Nun will ich, dass wenn z.B. Zeile 2 in beiden Blättern(!) leer ist, dass diese in beiden Blättern auch gelöscht wird, so dass Zeile 3 dann zu Zeile 2 wird.
Wie kann ich das per Makro lösen?
Gruß
Jörg

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen per Makro
23.01.2008 16:04:00
fcs
Hallo Jörg,
geht etwa folgendermassen.

Sub LeereLöschen()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim Zelle As Range, Zeile As Long
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
Set Zelle = wks1.Cells.SpecialCells(xlCellTypeLastCell)
Zeile = 1
Do Until Zeile = Zelle.Row
If Application.WorksheetFunction.CountA(wks1.Rows(Zeile)) = 0 And _
Application.WorksheetFunction.CountA(wks2.Rows(Zeile)) = 0 Then
wks2.Rows(Zeile).Delete shift:=xlShiftUp
wks1.Rows(Zeile).Delete shift:=xlShiftUp
Else
Zeile = Zeile + 1
End If
Loop
End Sub

Gruß
Franz
P.S. Bitte erst in Sicherungskopie probieren!!

Anzeige
AW: Zeilen löschen per Makro
23.01.2008 16:14:00
Jörg
1 A...
Hat super funktioniert!!!
Vielen herzlichen Dank!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige