Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Wenn Zelle leer, zeile löschen

Wenn Zelle leer, zeile löschen
06.11.2018 09:30:38
Anna
Hallo,
ich habe hier ein Code gefunden von Daniel aus diesem Forum:
Sub Makro3()
Columns(1).Insert
With Range("A1:A" & Cells(Rows.Count, 2).End(xlUp).Row)
.Formula = "=IF(RC[1]="""",true,Row())"
.Formula = .Value
.CurrentRegion.Sort key1:=Cells(1, 1), Order1:=xlAscending, header:=xlNo
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
End With
Columns(1).Delete
End Sub
Ich will dies aber auf die Spalte C übertragen, nur geligt es mir nicht so ganz. Jemandf der mir helfen kann bitte?
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Zelle leer, zeile löschen
06.11.2018 09:47:33
Rainer
Hallo Anna,
erkläre doch einfach, was du wirklich machen willst. Am besten mit Beipieldatei.
Ich vermute, alle Zeilen löschen die in SPalte C keinen Eintrag haben.
Da ist aber auch wichtig zu wissen, ob es dort Formeln gibt, die als Ergebniss leere Zellen liefern?
Gruß,
Rainer
Anzeige
AW: Wenn Zelle leer, zeile löschen
06.11.2018 09:48:36
Anna
Hi,
hast recht. Im grunde will ich alle leeren Zellen finden und davon die Zeile löschen. In den Zellen sind auch keine Formeln.
AW: Wenn Zelle leer, zeile löschen
06.11.2018 09:56:14
Rainer
Machst du so:
Sub Zeilen_loeschen()
LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = LetzteZeile To 1 Step -1
If Cells(i, 3) = "" Then Rows(i).Delete
Next i
End Sub

Anzeige
AW: Wenn Zelle leer, zeile löschen
06.11.2018 10:03:30
Anna
Vielen Dank es klappt!!!
AW: Wenn Zelle leer, zeile löschen
06.11.2018 10:10:40
Rainer
Viel Spaß damit!
Wenn du es für andere Spalten benutzen möchtest, die Spalte ist als Nummer (C = 3) zu finden bei:
If Cells(i, 3) = ""
Gruß,
Rainer
AW: Wenn Zelle leer, zeile löschen
06.11.2018 10:22:40
Daniel
das ist dann aber schon sehr alt.
1. wenn du die Formel in R1C1-Format in die Zellen schreibst, musst du das auch angeben.
2. Spalte C hat die Spaltennummer 3, also dies einfach angeben:
FormulaR1C1 = "=IF(RC3="""",true,Row())"
gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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