Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1220to1224
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
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For each-Schleife von unten anfangen lassen

For each-Schleife von unten anfangen lassen
unten
Hallo,
ich bearbeite mit einer For each-Schleife selektierte Zeilen und möchte sie am Ende löschen lassen.
[code]
For Each rw In Selection.Rows
intRow = rw.Row
...Verarbeitung...
.Range("A" & intRow).EntireRow.Delete
Next rw
[/code]
Leider klappt das nicht so richtig, weil das Löschen die Selektierung verschiebt. Wie kann ich die selektierten Zeilen von unten durchlaufen?
Eine For-Schleife möchte ich ungern nehmen, da ich mehrere tausend Zeilen habe und immer nur ca. 5 markiert werden.
Gruß Uppe

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: For each-Schleife von unten anfangen lassen
14.07.2011 14:53:59
unten
Hallo,
der Ansatz wäre
For I = Range("a65536").End(xlUp).Row To 1 Step -1
...
Next I
Gruß
Frederik
AW: For each-Schleife von unten anfangen lassen
14.07.2011 14:59:34
unten
Hallo Frederik,
das ist mir schon klar, aber so wollte ich es möglichst nicht machen. Zeit ist ja bekanntlich Geld.
Ich habe es im Moment so gelöst, dass ich "vorwärts" ein Feld mit den Zeilennummern fülle, welches ich dann "rückwärts" abarbeite.
i = 0
For Each rw In Selection.Rows
ReDim Preserve arrZeilen(0 To Selection.Rows.Count)
arrZeilen(i) = rw.Row
i = i + 1
Next rw
For i = Selection.Rows.Count To 0 Step -1
intRow = arrZeilen(i)
...Verarbeitung...
.Range("A" & intRow).EntireRow.Delete
Next i
Hat evtl. noch jemand eine bessere Idee?
Gruß Uppe
Anzeige
mal nachgefragt!
14.07.2011 15:01:48
Matthias
Hallo
Warum bearbeitest Du die Zeilen denn erst, wenn Du sie dann sowieso löschst ?
Selection.Rows.Delete
Gruß Matthias
AW: mal nachgefragt!
14.07.2011 15:20:08
Uppe
Hallo Matthias,
ich bearbeite nicht die Zeilen, sondern verwende die Informationen in den Zeilen.
In den Zeilen stehen Dateinamen und Informationen zu den Dateien. Je nach Datei werden unterschiedliche Verarbeitungen angestoßen und wenn diese fertig sind, soll die Zeile gelöscht werden.
Gruß Uppe
und Selection.Rows.Delete ?
14.07.2011 15:42:40
Matthias
Hallo
Selection.Rows einfach erst nach Deiner Verarbeitung löschen, geht nicht?
Gruß Matthias
AW: und Selection.Rows.Delete ?
14.07.2011 19:54:29
Uppe
Hallo Matthias,
das ist natürlich eine Idee! Werde ich Dienstag im Büro testen.
Gruß Uppe
Anzeige
AW: For each-Schleife von unten anfangen lassen
14.07.2011 19:27:55
unten
Hi,
was meinst du zu diesen beiden Möglichkeiten? 

Sub xxyyzz1()
Dim lngS As Long, lngE As Long, lngZ As Long
lngS = Selection.Row                   ' 1. Zeile
lngE = lngS + Selection.Rows.Count - 1 ' letzte Zeile
With ActiveSheet
For lngZ = lngE To lngS Step -1        ' alle rückwärts
' Verarbeitung Daten der Zeile Nr. lngZ
.Rows(lngZ).Delete                  ' lösche
Next lngZ
End With
End Sub
Sub xxyyzz2()
Dim rngR As Range, lngZ As Long, rngDel As Range
With ActiveSheet
For Each rngR In Selection.Rows     ' alle vorwärts
lngZ = rngR.Row
' Verarbeitung Daten der Zeile rngR (Nr. lngZ)
If rngDel Is Nothing Then
Set rngDel = .Rows(lngZ)      ' Löschen vormerken
Else
Set rngDel = Union(rngDel, .Rows(lngZ))
End If
Next rngR
'                                   ' Löschen in 1 Rutsch
If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Schleife und Löschen von Zeilen
14.07.2011 19:53:47
Zeilen
Hi,
die zweite Routine kann man einfacher und kürzer schreiben: 

Sub xxyyzz2n()
Dim rngR As Range, rngDel As Range
With ActiveSheet
For Each rngR In Selection.Rows     ' alle vorwärts
' Verarbeitung Daten der Zeile rngR
If rngDel Is Nothing Then
Set rngDel = rngR             ' Löschen vormerken
Else
Set rngDel = Union(rngDel, rngR)
End If
Next rngR
'                                   ' Löschen in 1 Rutsch
If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: Schleife und Löschen von Zeilen
14.07.2011 19:58:16
Zeilen
Hallo Erich,
ich werde am Dienstag im Büro mal die zweite Variante testen.
Bei der ersten Variante wird ja vorausgesetzt, dass zwischen den selektierten Zeilen keine nichtselektierten sind.
Gruß Uppe
Anzeige

300 Forumthreads zu ähnlichen Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Anzeige
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Brüche mit kleiner Schrift formatieren
Siegfried

Hallo Excelianer,
der Betreff sagt sicher wenig aus. Ich möchte Zeiten, die auf Viertelstunden gerundet sind, als Brüche darstellen - soweit kein Problem. Jetzt hätte ich aber gern die Viertelstunden nicht in der Standardformatierung, also 1 1/4 z. B., sondern mit kleingeschriebenen Ziffern...
25.08.2008 11:32:00
Thread-ID: 1004409
7 Beiträge
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Excel-Daten in ein Excel-Formular übertragen
Martin

Hallo
Ich habe folgende Problemstellung: Ich habe einerseits eine Datenbank mit Adressfeldern (Tabelle "Daten") und ich habe ein Excel-Formular (Tabelle "Protokoll") kreiert. Nun möchte ich eine Art Serienbrief im Excel erstellen, d.h. jede Zeile in der Daten-Tabelle soll ein eigenes Protok...
08.09.2008 17:43:25
Thread-ID: 1008225
7 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 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
3
5
3
4
3
5
6
1
6
3
2
2
1
1
1
3
5
7
3
6
15
3
3
1
14