Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1496to1500
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
1496to1500
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen von bis

Zeilen löschen von bis
11.06.2016 17:28:01
bis
Hallo
Stehe vor folgendem Problem, bei dem ich nicht mehr weiterkomme. Habe zwei Tabellenblätter, bei denen ich ab der Zeile 5 bis Ende des Bereichs1 die Zeilen löschen will. Der Bereich1 ist in den Tabellenblättern unterschiedlich. Makro funktioniert soweit, möchte jedoch den Befehl "Select" nicht benötigen. Kann mir da jemand weiterhelfen?
Gruss
Peter
Userbild
https://www.herber.de/bbs/user/106163.xlsm

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen von bis
11.06.2016 17:32:14
bis
ein Bild ist Klasse, das kann man nicht in Excel übernehmen. 
Sub Bereich1_Loeschen()
Dim lZeile
Set wks_1 = ThisWorkbook.Worksheets("Tabelle1")
Set wks_2 = ThisWorkbook.Worksheets("Tabelle2")
With wks_1
For lr = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If .Cells(lr, 1) = "" Then
.Range(.Rows(5), .Rows(lr - 1)).EntireRow.Delete
Exit For
End If
Next
End With
With wks_2
For lr = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If .Cells(lr, 1) = "" Then
.Range(.Rows(5), .Rows(lr - 1)).EntireRow.Delete
Exit For
End If
Next
End With
End Sub

Anzeige
AW: Zeilen löschen von bis
11.06.2016 18:04:23
bis
Hi
das Selektieren des Tabellenblatts kannst du dir sparen, wenn du vor jedes Cells, Range, Rows und Columns immer das jeweilige Tabellenblatt davor schreibst:
for lr = wks_1.Cells(wks_1.Rows.count, 1).end(xlup).Row + 1
if wks_1.Cells(lr, 1) = "" Then

naja, und so weiter halt
da das viel schreibarbeit werden kann, kann man die WITH-Klammer verwenden, um nicht jedesmal das ganze Tabellenblatt hinschreiben zu müssen.
Wie das geht, hat Hajo ja gezeigt.
du kannst dir aber die Schleife sparen, in dem du das .END(xlDown) auch für die Ermittlung des zu löschenden Zellbereichs verwendest:
With wks_1
If .Cells(6, 1) = "" then
.Rows(5).Delete
Else
.Range(.Cells(5, 1), .Cells(5, 1).end(xldown)).EntireRow.Delete
End IF
end With
mach lieber eine Schleife über die beiden Tabellenblätter, damit du das Löschen nicht doppelt programmieren musst: 
Sub Bereich1_Loeschen()
Dim wks
For Each wks In Array("Tabelle1", "Tabelle2")
With ThisWorkbook.Worksheets(wks)
If .Cells(5, 1)  "" Then
If .Cells(6, 1) = "" Then
.Rows(5).Delete
Else
.Range(.Cells(5, 1), .Cells(5, 1).End(xlDown)).EntireRow.Delete
End If
End If
End With
Next
End Sub
Gruß Daniel

Anzeige
AW: Zeilen löschen von bis
11.06.2016 18:18:30
bis
Hallo zusammen
Vielen Dank für die Antwort, alle Vorschläge führen zum Ziel, herzlichen Dank.
Gruss
Peter

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