Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.04.2024 22:36:13
Marko automatisch ausführen
22.04.2024 21:15:10
PQ - Wenn der Jahrgang fehlt, dann...
22.04.2024 16:32:43
Excelformel für Arbeitszeitberechnung 08-16:30 Uhr
22.04.2024 16:03:42
Alle Blätter einer Datei wählen und Druckbereich festlegen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1532to1536
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
1532to1536
1532to1536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen ab Spalte D bis U

Zeilen löschen ab Spalte D bis U
06.01.2017 13:19:11
Marv
Hallo Zusammen,
Ich möchte gerne eine bestimmte Anzahl an Zeilen am Ende einer Tabelle löschen lassen, aber nur von D bis einschließlich U.
Die Einträge in den Spalten A bis C sowie ab V sollen erhalten bleiben...
Wie müsste ich den Code anpassen:
Loletzte = Cells(Rows.Count, 2).End(xlUp).Row
letztezeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
letztezeile2 = letztezeile + 1
Sheets("Tabelle2").Range(letztezeile2 & ":" & letztezeile2 + Loletzte).Delete
In der Beispieldatei habe ich im Tab "Beispiel" die zu löschenden Daten gelb markiert. Aktuell löscht das Makro einfach die gesamten Zeilen.
https://www.herber.de/bbs/user/110368.xlsm
Danke euch.
Grüße
Marv

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen ab Spalte D bis U
06.01.2017 13:25:53
Hajo_Zi
Sheets("Tabelle2").Range("D" &letztezeile2 & ":U" & letztezeile2 + Loletzte).Delete

AW: Zeilen löschen ab Spalte D bis U
06.01.2017 13:31:52
Marv
Mit der Antwort bin ich sehr zufrieden :-)
Danke dir
Schönes Wochenende
AW: Zeilen löschen ab Spalte D bis U
06.01.2017 13:37:18
fcs
Hallo Marv,
z.B. so: 
Sub Neue_Daten_auswählen2()
Sheets("Tabelle1").Select
Dim Loletzte As Long
Loletzte = Cells(Rows.Count, 2).End(xlUp).Row
Range("A2:U" & Cells(Rows.Count, 2).End(xlUp).Row).Copy
Sheets("Tabelle2").Select
letztezeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
letztezeile2 = letztezeile + 1
Cells(letztezeile2, 1).Select
ActiveSheet.Paste
With Sheets("Tabelle2")
.Range(.Cells(letztezeile2, 4), .Cells(letztezeile2 + Loletzte, 21)).ClearContents
End With
End Sub

LG
Franz
Anzeige
AW: Zeilen löschen ab Spalte D bis U
06.01.2017 14:00:22
Daniel
Hi
hier die einfachste Methode, den gewünschten Zellbereich anzusprechen:
Sheets("Tabelle2").Cells(letztezeile2, 4).Resize(Loletzte + 1, 18).Clear
Gruß Daniel
AW: Warum neuer Beitrag?
06.01.2017 14:18:24
Werner
Hallo Marv,
und warum machst du zum gleichen Thema einen neuen Beitrag auf?
https://www.herber.de/forum/messages/1533425.html
Im Eingangsbeitrag von dir (obiger Link) Kopierbereich beginnt auf Blatt1 bei A4, im Beispiel plötzlich ab A2.
Jetzt sind auf Blatt2 nach der Spalte U plötzlich noch Daten vorhanden, davon war vorher aber nicht die Rede. Auch in der Beispieldatei ist davon nichts zu sehen.
Anscheinend ist dir meine Hilfe nicht gut genug. Oder willst du mich verarschen, das kann ich alleine.
Ich bin dann raus.
Gruß Werner
Anzeige
AW: Warum neuer Beitrag?
06.01.2017 14:26:28
Werner
Hallo Marv,
übrigens lässt du auch hier wieder die Helfer im Trüben fischen, weil du mit keinem Wort erwähnst, dass bevor der Bereich A-U im Blatt2 (der vorher kopierten Zellen) "gelöscht werden soll" ein weiteres Makro noch irgendwelche "Zellanpassungen" durchführen soll.
mein Makro kopiert Zeilen von Tabelle1 an das untere Ende der Tabelle2.
Danach führt ein anderes Makro verschiedene Zellanpassungen in Tabelle2 durch.
Ich würde ganz gerne abschließend aus den Zeilen die anfangs kopiert wurden die Zellen von D bis U wieder löschen lassen.
Gruß Werner

252 Forumthreads zu ähnlichen Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
Alle komplett leeren ZEILEN löschen
Tobias

Hallo allesamt,
ich würde gerne alle Zeilen Löschen, wenn nichts in den zellen steht
habs hiermit versucht:
Sub LeereZeilenLöschen() Dim tmp Dim x Application.ScreenUpdating = False ActiveSheet.Unprotect Password:=passw tmp = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row For...
14.03.2009 00:09:37
Thread-ID: 1060081
8 Beiträge
Automatische Gruppierung Nichtleerer Zeilen
Knusperfisch

Halli Hallo Zusammen,
ich möchte die Benutzerfreundlichkeit meiner Tabelle ein wenig erhöhen und die Gruppierung von Excel verwenden. Das Ganze eben als VBA. Ab der Zelle BO 17 sollen alle Zeilen gruppiert werden die leer sind, bzw. umgekehrt, es sollen nur die Zeilen angezeigt werden die...
04.05.2009 11:20:04
Thread-ID: 1072683
5 Beiträge
Anzeige
Daten ab erster leeren Zeile löschen
Kai

Hallo ,
ich habe in Excel einen Datenbestand und möchte mit einem Makro folgendes erreichen:
- ich suche in den Daten bis zur ersten leeren Zeile, so:
lngRow = Cells.Find("*", , xlValues, 2, 1, 2, False, False).Row
Sobald die erste leere Zeile (in meinem Fall gehts aber erst ab...
22.07.2009 08:10:56
Thread-ID: 1090378
9 Beiträge
Makro doppelte Zeilen löschen
Christian

Hallo allerseits,
ich habe folgendes Makro, welches Zeilen ahand von doppelten Einträgen in einer spalte löscht.
Allerdings wird immer die zweite Zeile (von oben gesehen) gelöscht, ist es auch möglich die erste zeile zu löschen und die zweite zu behalten?
hier das makro: Sub supp_d...
22.07.2009 10:44:51
Thread-ID: 1090433
5 Beiträge
Leerzeilen löschen
Frank

Hallo zusammen,
ich habe eine Exceltabelle mit Datensätzen (Spalten A und B) in der ich Leerzeilen (die in Spalte A vorkommen) KOMPLETT löschen möchte, aber nur wenn in Spalte B nicht auch noch Datensätze stehen.
Kann mir da jm. bitte weiterhelfen?
Vielen Dank!
Gruß
Frank
06.08.2009 09:29:15
Thread-ID: 1093917
3 Beiträge
Makro gezielte Zeilen löschen / kopieren
walter

Hallo und guten Abend,
bzgl. einer Optimierungsgeschichte bräuchte ich bitte mal wieder Hilfe:
Datentabelle mit variabler Länge
a) unvollständige Sätze kopieren und in neues Blatt einkopieren, dann diese unvollständigen Sätze löschen (würde ich evtl. mit viel Schweiß selbst noch geb...
23.08.2009 00:48:36
Thread-ID: 1097980
8 Beiträge
Leerzeilen löschen
Lemmi

Hallo und guten morgen zusammen,
ich führe regelmäßig einen Datenbank import aus.
Die Datenzeilen sind hier aus verschiedenen Gründen nur lückenhaft gelistet.
z. B
Zeile 5 -10 hat Daten
Zeile 11-20 hat keine Daten
Zeile 21-30 hat Daten
Zeile 31 -35 hat keine Daten
13.09.2009 08:49:27
Thread-ID: 1102342
5 Beiträge
Anzeige

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
4
3
7
4
5
8
4
2
7
4
6
5
5
7
3
2
4
8
4
4
6
7
2
2
2