Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
784to788
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
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren und Spalten mit best. Begriff löschen

Sortieren und Spalten mit best. Begriff löschen
21.07.2006 11:39:21
Peter
Guten Tag
Ich habe eine Datei mit mehreren Tabellen, in denen ich alle Zeilen, in denen in Spalte AA "löschen" steht, löschen will. Bisher habe ich Zeile für Zeile abgearbeitet, aber das geht relativ lange. Deshalb strebe ich folgende Lösung an:
Damit die bleibenden Zeilen in der gewünschten Reihenfolge bleiben, sind diese in Spalte AF (32 Spalte) durchnummeriert (von 1 an aufwärts).
Nun sortiere die Zeilen ab Zeile 1 bis derjenigen Zeile, in der die letzte Zeile "usedrange" steht.
Nach dem Sortieren habe ich alle Zeilen mit dem Eintrag "löschen" in einem Bereich. Nun möchte ich alle Zeilen, die in diesem Bereich liegen, anwählen und löschen.
Damit sollte meines Erachtens die Laufzeit des Makros wesentlich verkürzt werden.
Kann mir jemand hier auf die Sprünge helfen?
Danke, Peter

Sub Zeilen_loeschen()
Dim x As Integer
Dim ende, iRow As Long
For x = 1 To Sheets.Count
ende = 'letzte Zeilennummer innerhalb usedrange ermitteln
'Zeilen 1:ende nach Spalte 27 (primär) und 32 (sekundär) sortieren
'Bereich mit Zeilen in denen in Spalte 27 "löschen" steht ermitteln
'diesen Bereich löschen
Next x
End Sub

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren und Spalten mit best. Begriff löschen
21.07.2006 12:58:31
Harald
Hallo Peter,
mein Vorschlag mit Autofilter. Ist auch recht schnell.
Dim Lrow As Long
Lrow = Cells(Rows.Count, 27).End(xlUp).Row
Range("AA:AA").AutoFilter Field:=1, Criteria1:="löschen"
Range("AA2:AA" & Lrow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Range("AA:AA").AutoFilter Field:=1
Gruss Harald
AW: Sortieren und Spalten mit best. Begriff löschen
21.07.2006 13:07:17
Peter
Hallo Harald
Vielen Dank für die Nachricht.
Ich arbeite in dieser Tabelle grundsätzlich mit dem Autofilter.
Zuletzt muss ich die Zeilen jedoch löschen, da es sich um eine Druckvorlage handelt und der Drucker unter anderem keine Filterung akzeptiert.
Gruss, Peter
Anzeige
AW: Sortieren und Spalten mit best. Begriff löschen
21.07.2006 13:39:12
Harald
Na dann,
bleib bei der zeilenweisen Abarbeitung, jedoch ohne Usedrange (zählt nicht nur Inhalt sondern auch Formatierung).
Wenn sicher ist, dass die letzte gefüllte Zelle nicht über 32000 hinausgeht, ersetze beide Long durch Integer (dann wird's nahezu doppelt so schnell)
Dim Lrow As Long, i as long
Lrow = Cells(Rows.Count, 27).End(xlUp).Row
for i = Lrow to 2 step -1
if cells(i, 27) = "löschen" then Rows(i).Delete
next i
Gruss Harald
AW: Sortieren und Spalten mit best. Begriff löschen
21.07.2006 14:10:04
Peter
Hallo Harald
Vielen Dank.
Nein, über 32000 Zeilen nutze ich nicht.
Kannst du mir sagen, warum mit nachstehendem Code nur die entsprechenden Zeilen im aktiven Worksheet, nicht aber die übrigen im Workbook gelöscht werden? Muss ich irgend einen Zähler wieder auf Null stellen?
Danke, Peter
Option Explicit

Sub Zeilen_loeschen()
Dim x As Integer
Dim lRow, i As Integer
For x = 1 To Sheets.Count
lRow = Cells(Rows.Count, 27).End(xlUp).Row
For i = lRow To 2 Step -1
If Cells(i, 27) = "löschen" Then Rows(i).Delete
Next i
Next x
End Sub

Anzeige
AW: Sortieren und Spalten mit best. Begriff löschen
21.07.2006 14:21:25
Harald
Hi,
der Code bezieht sich nur auf das gerade aktive Blatt.
Kann man mit ner With-Anweisung lösen.
Der Punkt vor den Range-Angaben ersetzt somit Sheets(x)
Hab's nur händisch korrigiert...ohne test ;-)

Sub Zeilen_loeschen()
Dim x As Integer
Dim lRow, i As Integer
For x = 1 To Sheets.Count
with sheets(x)
lRow = .Cells(Rows.Count, 27).End(xlUp).Row
For i = lRow To 2 Step -1
If .Cells(i, 27) = "löschen" Then .Rows(i).Delete
end with
Next i
Next x
End Sub

Gruss Harald
AW: Sortieren und Spalten mit best. Begriff löschen
21.07.2006 14:44:47
Peter
Hallo Harald
Hatte noch irgendwelche Probleme und habe dann das ganze wie folgt abgeändert:

Sub Zeilen_loeschen()
Dim x As Integer
Dim lRow, i As Integer
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
lRow = Ws.Cells(Rows.Count, 27).End(xlUp).Row
For i = lRow To 2 Step -1
If Ws.Cells(i, 27) = "löschen" Then Ws.Rows(i).Delete
Next i
Next Ws
End Sub

Vielen Dank für deinen Support.
Peter
Anzeige
Hinweis
21.07.2006 15:00:00
Harald
Deine Deklaration macht Schwierigkeiten, wenn Diagramme o.ä. als Sheet eingefügt sind
Bleib bei Sheets oder Dim ws as object würde dann helfen
Schönes WE
Gruss Harald
AW: Hinweis
31.07.2006 08:58:38
Peter
Hallo Harald
Vielen Dank für den Hinweis. Meine Rückmeldung kommt so spät, weil ich ferienhalber abwesend war.
Gruss, Peter

304 Forumthreads zu ähnlichen Themen

Daten nach Kriterien in Spalten umsortieren
hans

Hallo zusammen.
habe mir bereits einige Stunden den Kopf zerbrochen, ohne jedoch weitergekommen zu sein. Mein Problem ist folgendes:
Ich habe eine Tabelle (kleiner Auszug siehe unten), die Daten enthält, die jeweils entweder mit den Buchstaben A, B oder C enden. Ich möchte nun diese Dat...
14.06.2009 02:13:12
Thread-ID: 1081347
6 Beiträge
Anzeige
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
VBA:Mehrere Kriterien in Menu lesen können.
Karen

Hallo Forum,
ich benötige eine Hilfestellung bezgl. folgendem Problem:
Ich möchte per Menue Daten eingeben, ändern und lesen können. Das klappt soweit.
Da die Daten nicht alle in einer Zeile stehen, kann ich bisher nur die erste Zeile in dem Menu lesen. Ich erinnere mich, daß es...
31.08.2010 12:55:22
Thread-ID: 1174980
3 Beiträge
Anzeige
Tabelle nach mehr als 3 Spalten sortieren
manasse

Hallo zusammen,
ich möchte eine große Tabelle nach mehr als drei Spalten sortieren. Standardmäßig geht das ja nur mit maximal drei Spalten. Kennt jemand dazu eine Lösung?
Für jegliche Hilfe bin ich dankbar.
Dank und Gruß
Manasse
04.11.2010 11:49:12
Thread-ID: 1185146
3 Beiträge
Daten nach Datum sortieren (mehrere Kriterien)
mmmagic73@aol.de

Hallo Community,
Habe einen VBA Beispiel aus Internet (s.u.“ FalschSortiert“) nach Datum zu sortieren.
Möchte gern einige Spalten nach bestimmten Kriterien, nach K, J, I und B sortieren.
Sub FalschSortiert() Dim LRow As Integer 'Sortieren der Daten pro Tabellenblatt Dim sh As...
20.11.2010 10:14:33
Thread-ID: 1187870
3 Beiträge
Tabellen zusammenführen nach zwei spalten
Reptil

hallo zusammen
Ich habe gerade folgendes Problem. ich habe zwei tabellen (dateien), in denen personendaten gespeichert sind. in tabelle 1 stehen kontaktdaten, in tabelle 2 "administrative" daten. nun möchte cih die spalte a von tabelle 2 den passenden datensätzen von tabelle 1 anfügen. einz...
29.11.2010 14:25:42
Thread-ID: 1189224
2 Beiträge
Datum in 2 Spalten sortieren
Willy

Hallo zusammen
In Spalte E und G stehen Datum(se), diese sollen in beiden Spalten der Reihe nach der sortiert werden.
Zur Zeit verwende ich diesen Code, diese sortiert aber erst in Spalte G und dann in Spalte E. Private Sub CommandButton1_Click() Range("B5:J24").Select Selection.Sort Ke...
08.12.2010 16:21:13
Thread-ID: 1190523
5 Beiträge
Nach Kriterium über zwei Spalten Filtern
Wolfango

Hallo Experten,
folgendes Makro habe ich vor einiger Zeit mit Hilfe dieses Forums erstellen können:
Sub Filtern_nach_Personen() Dim Kriterium As String Kriterium = InputBox("Filtern nach (enthält)", "Filtereingabe") Selection.AutoFilter Field:=17, Criteria1:="=*" & Kriterium &...
30.12.2010 21:21:32
Thread-ID: 1193365
3 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
5
9
3
2
4
2
2
1
4
2
10
2
7
4
17
6
3
12
7
5
5
6
3
2
10