05.12.2018, 10:08
05.12.2018, 10:19
Hallo,
Zeile markieren -> Rechte Maustaste drücken -> "Zeilen löschen" anklicken
SCNR
Zeile markieren -> Rechte Maustaste drücken -> "Zeilen löschen" anklicken
SCNR
05.12.2018, 10:37
Hallo Leo, :19:
Tabellenblattname (CodeName) und Range anpassen.
ENGE = SCNR auf deutsch. :05:
Code:
Tabelle1.Range("A:E").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Tabellenblattname (CodeName) und Range anpassen.
ENGE = SCNR auf deutsch. :05:
05.12.2018, 11:10
Hi Case,
Dann bekomme ich den Hinweis dass das bei überlappenden Markierungen nicht möglich ist. Nicht ganz sicher was das genau bedeutet, aber ich habe keine Zellen verbunden o.ä
Code:
Sub Test()
Tabelle1.Range("A2:D4000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub
05.12.2018, 11:34
Moin!
Mal ohne VBA:
Schreibe in die erste freie Spalte (als Beispiel E):
in E1: 0
ab E2: =WENN(ANZAHLLEEREZELLEN(A2:D2);Zeile();0)
Markiere Spalte E, kopieren, einfügen Werte
Wende Duplikate entfernen auf Spalte E an, die Du danach entfernen kannst.
Gruß Ralf
Mal ohne VBA:
Schreibe in die erste freie Spalte (als Beispiel E):
in E1: 0
ab E2: =WENN(ANZAHLLEEREZELLEN(A2:D2);Zeile();0)
Markiere Spalte E, kopieren, einfügen Werte
Wende Duplikate entfernen auf Spalte E an, die Du danach entfernen kannst.
Gruß Ralf
05.12.2018, 11:43
Hallo Leo, :19:
wenn du keine verbundenen Zellen (und keinen MAC) hast, solltest Du mal deine Beispieldatei hochladen, denn in meiner geht es - oder den Vorschlag von Ralf nehmen. :21:
wenn du keine verbundenen Zellen (und keinen MAC) hast, solltest Du mal deine Beispieldatei hochladen, denn in meiner geht es - oder den Vorschlag von Ralf nehmen. :21: