Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1388to1392
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1388to1392
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ab leerer Zelle in Spalte A alles unterhalbLöschen

Ab leerer Zelle in Spalte A alles unterhalbLöschen
27.10.2014 09:19:24
Muehli

Guten Morgen zusammen,
ich habe folgendes Anliegen:
Vorliegende Tabelle:
|SpalteA|SpalteB|SpalteC|
|Text1|Text2|Text3|
|Text4|Text5|Text6|
|.....|.....|.....|
|TextX|TextY|TextZ|
sobald in SpalteA nichts mehr steht (leere Zelle) soll alles unterhalb gelöscht werden (in jeder Spalte).
Kann mir jemand dabei helfen?
Freundliche Grüße
Muehli

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

Betreff
Datum
Anwender
Anzeige
AW: Ab leerer Zelle in Spalte A alles unterhalbLöschen
27.10.2014 09:44:30
yummi
Hallo Muehli,
das kannst Du so machen:

Sub loescheZeile()
Dim letzteZeileA As Long
Dim letzteZeile As Long
letzteZeileA = ActiveSheet.Range("A:A").SpecialCells(xlCellTypeBlanks).Row
letzteZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.Rows(letzteZeileA & ":" & letzteZeile).Delete
End Sub
Gruß
yummi

AW: Ab leerer Zelle in Spalte A alles unterhalbLöschen
27.10.2014 09:58:49
Muehli
Hallo Yummi,
funktioniert prima! Danke!
Gruß
Muehli

Anzeige

304 Forumthreads zu ähnlichen Themen

Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
Anzeige
Alles unterhalb Zeile x in Tabelle löschen
Peter

Guten Tag
Mit
ActiveSheet.Cells(rows.count, 1).End(xlUp).Row + 1
ermittle ich die erste Zelle, die in Spalte A leer ist. Angenommen, dies ist A568. Nun möchte ich, dass alle Zeilen ab 568 gelöscht, resp. keinen Inhalt mehr haben (besser ist, was weniger Speicherplatz benötigt).
...
20.05.2011 15:57:40
Thread-ID: 1215382
4 Beiträge
Alle Leere Zeilen In A Spalte Löschen
Leo

Abend zusammen,
ich hab folgendes Problem !?
Ich habe in der A SPALTE eine Namensliste, mit mehreren tausend Namen, doch leider sind mir beim kopieren in Excel ein paar "ZEILEN Lücken" - ich hoffe ihr versteht mein Problem, kann es nicht besser formulieren - aufgestoßen ...
Meine Fr...
28.09.2011 21:43:27
Thread-ID: 1231905
4 Beiträge
Anzeige
Alle Zeilen ohne Zahl löschen
Ralph

Hallo zusammen,
ich habe eine Tabelle die aus einem *.htm File erzeugt wird. In dieser Tabelle (ca. 17000 Zeilen) möchte ich nun per VBA alle Zeilen löschen, die nicht folgenden Kriterien entsprechen:
1. Der Inhalt in Spalte A ist eine numerische Zahl
2. Diese Zahl ist grösser als 9...
29.11.2014 14:10:05
Thread-ID: 1395279
4 Beiträge
Alle Zeilen löschen außer mit dem Wert "xyz"
Michael

Hallo,
mit folgendem Code lösche ich alle Zeilen wo der Wert "xyz" in der Spalte F vorkommt:
With Columns("F")
Do
Set objCell = .Find(What:="xyz", LookIn:=xlValues, _
LookAt:=xlWhole, MatchCase:=True)
If Not...
22.05.2015 15:50:12
Thread-ID: 1427370
5 Beiträge
VBA alle doppelten Zeilen löschen
Mimi

Hallo alle zusammen :)
ich habe folgendes Problem:
Ich habe eine Tabelle mit Vertragsnummern, mit 1000 oder mehr Einträgen. Die Vertragsnummern können aber durch Veränderungen doppelt eingetragen werden.
Ich möchte ein Makro schreiben, dass 1. prüft, ob die Vertragsnummer doppelt v...
06.07.2016 13:00:14
Thread-ID: 1502856
7 Beiträge
Alle Zeilen Löschen wenn Zelle D leer
Max

Hallo Excel Pros,
ich stehe leider etwas auf dem schlauch:
Ich möchte alle Zeilen in einer Tabelle löschen in denen die Zelle der Spalte D leer ist.
For i = 2 To lRow If IsEmpty(Cells(i, 4).Value) Then Next i Else Set rng = Range(Cells(Flag), Cells(i)) Rows(rng).Select Selection...
01.12.2017 12:11:56
Thread-ID: 1594762
5 Beiträge
alle Zeilen ohne Inhalt löschen
Lutz

Hallo,
In dieser Tabelle möchte ich alle Zeilen ohne Inhalt löschen.
Kann mir jemand per VBA weiterhelfen?
https://www.herber.de/bbs/user/118456.xls
Gruß Lutz
20.12.2017 20:59:40
Thread-ID: 1598376
7 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
12
3
3
2
3
4
6
4
6
9
5
6
2
2
11
19
13
2
6
4
4
5
4
2