Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 18:33:31
Excel Fenster fixieren
28.04.2024 18:25:12
Excel Aufbauende Summe
28.04.2024 14:18:05
Einfügen ohne Select
28.04.2024 14:00:34
Formel fehler in der Berechnung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1848to1852
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
1848to1852
1848to1852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For-Schleife immer um 1 erhöhen

For-Schleife immer um 1 erhöhen
29.09.2021 10:40:32
Ro
Hallo zusammen,
ich hätte ein Grundsatzfrage zur "For"-Schleife und zwar würde ich gerne alle im Autofilter ausgeblendeten Zeilen löschen, nur leider hört die FOR-Schleife auf zu zählen bevor die ausgeblendeten Zeilen gelöscht wurden:

Dim letzteZeileX  as Integer
letzteZeileX = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For d = letzteZeileX To (letzteZeileY + 1)
If Rows(d).EntireRow.Hidden = True Then
Rows(d).EntireRow.Hidden = False
Rows(d).ClearContents
letzteZeileY = letzteZeileY + 1
Else
Exit For
End If
Next d
Wie kann ich die Schleife anpassen, damit sie wirklich bis zum Ende der ausgeblendeten Zeilen durchläuft?
Besten Dank vorab.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: For-Schleife immer um 1 erhöhen
29.09.2021 11:01:25
UweD
Hallo
schon im Ersten Durchlauf ist
letzteZeileX sicher schon größer als 1 (letzteZeileY =0; plus 1 =1)
Da wird die Schleife sofort beendet
Warum drehst du den Filter nicht einfach um und löschst dann Alles auf einen Schlag?
Alternative
Do until
....
...
Loop
LG UweD
AW: For-Schleife immer um 1 erhöhen
29.09.2021 16:07:51
Ro
Hallo Uwe,
danke für den Tipp, hab nun eine Do-While Schleife verwendet.
lg Robert
AW: For-Schleife immer um 1 erhöhen
29.09.2021 16:16:27
Ro 

'Finde letzte gefilterte Zeile
Dim letzteZeileX As Integer
letzteZeileX = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
'Alle Zeilen löschen die NACH dem Filter kommen
X = letzteZeileX + 1
Do While (Rows(X).EntireRow.Hidden) = True
Rows(X).EntireRow.Hidden = False
Rows(X).ClearContents
Rows(X).Interior.ColorIndex = 0
X = X + 1
Loop
lg Robert
Anzeige
AW: For-Schleife immer um 1 erhöhen
29.09.2021 11:04:58
Nepumuk
Hallo,
versuch es mal so:

Dim letzteZeileX  As Long
letzteZeileX = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For d = letzteZeileX To 1 Step -1
If Rows(d).Hidden Then
Rows(d).Hidden = False
Rows(d).ClearContents
End If
Next d
Gruß
Nepumuk
AW: For-Schleife immer um 1 erhöhen
29.09.2021 16:12:00
Ro
Hallo Nepumuk,
vielen Dank für die Antwort, ich habe jetzt eine Do-While Schleife verwendet.

'Finde letzte gefilterte Zeile
Dim letzteZeileX As Integer
letzteZeileX = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
'Alle Zeilen löschen die NACH dem Filter kommen
X = letzteZeileX + 1
Do While (Rows(X).EntireRow.Hidden) = True
Rows(X).EntireRow.Hidden = False
Rows(X).ClearContents
Rows(X).Interior.ColorIndex = 0
X = X + 1
Loop
lg Robert
Anzeige
AW: For-Schleife immer um 1 erhöhen
29.09.2021 11:12:58
GerdL
Moin Ro!

Dim d As Long, ez As Long, lz As Long
ez = ActiveSheet.AutoFilter.Range.Row + 1
lz = ActiveSheet.AutoFilter.Range.Row + ActiveSheet.AutoFilter.Range.Rows.Count - 1
For d = ez To lz
If ActiveSheet.Rows(d).Hidden = True Then
End If
Next
Du könntest auch das Filterkriterium umdrehen u. die Inhalte der sichtbaren Zellen am Stück entfernen.
Gruß Gerd
AW: For-Schleife immer um 1 erhöhen
29.09.2021 16:13:39
Ro
Hallo Gerd,
vielen Dank für die Antwort, ich habe jetzt eine Do-While Schleife verwendet.

'Finde letzte gefilterte Zeile
Dim letzteZeileX As Integer
letzteZeileX = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
'Alle Zeilen löschen die NACH dem Filter kommen
X = letzteZeileX + 1
Do While (Rows(X).EntireRow.Hidden) = True
Rows(X).EntireRow.Hidden = False
Rows(X).ClearContents
Rows(X).Interior.ColorIndex = 0
X = X + 1
Loop
lg Robert
Anzeige
AW: For-Schleife immer um 1 erhöhen
29.09.2021 16:17:53
Ro
Hallo Gerd,
vielen Dank für die Antwort, ich habe jetzt eine Do-While Schleife verwendet.

'Finde letzte gefilterte Zeile
Dim letzteZeileX As Integer
letzteZeileX = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
'Alle Zeilen löschen die NACH dem Filter kommen
X = letzteZeileX + 1
Do While (Rows(X).EntireRow.Hidden) = True
Rows(X).EntireRow.Hidden = False
Rows(X).ClearContents
Rows(X).Interior.ColorIndex = 0
X = X + 1
Loop
lg Robert
AW: For-Schleife immer um 1 erhöhen
29.09.2021 12:27:08
Daniel
Hi
Kannst du die Filterlogik umdrehen und im Filter alles ausblenden was stehen bleiben muss?
Dann könntest du alle Zeilen außer der Überschrift leeren, weil Excel in gefilterten Tabellen nur die sichtbaren Zeilen bearbeitet, dh die ausgeblendeten Zeilen werden nicht gelöscht
Wenn das mit der Umkehr der Filterlogik nicht klappt, dann folgender Workaround:

With ActiveSheet.Usedrange
With .Columns(.Columns.Count + 1)
.Specialcells(xlcelltypevisible).value = "x"
ActiveSheet.ShowAllData
.SpecialCells(xlcelltypeblanks).entirerow.clearcontents
.ClearContents
End With
End With
Gruß Daniel
Anzeige
AW: For-Schleife immer um 1 erhöhen
29.09.2021 16:15:30
Ro
Hallo Daniel,
vielen Dank für die Antwort, ich habe jetzt eine Do-While Schleife verwendet.

'Finde letzte gefilterte Zeile
Dim letzteZeileX As Integer
letzteZeileX = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
'Alle Zeilen löschen die NACH dem Filter kommen
X = letzteZeileX + 1
Do While (Rows(X).EntireRow.Hidden) = True
Rows(X).EntireRow.Hidden = False
Rows(X).ClearContents
Rows(X).Interior.ColorIndex = 0
X = X + 1
Loop
lg Robert

311 Forumthreads zu ähnlichen Themen

@ 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
Anzeige
Zeile einfügen und dann die Formeln eintragen?
Selma

Hallo Leute,
wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
Beispiel für die Formeln der aktive Zeile 40:
D40 =...
16.09.2008 22:51:11
Thread-ID: 1010207
6 Beiträge
Formel in nächste Zeile ziehen
Michael

Hallo zusammen hab mal wieder ein Problem
Möchte eine Formel in die nächste Zeile ziehen.
C:\----\Spiels\[001.xls]BL-Tabelle'!$B$4;"")
In der nächsten Zeile sollte dann aus 001.xls ein 002.xls erscheinen dies sollte so sein bis Zeile 200
Kann mir hierbei jemand helfen schon jetz...
24.09.2008 11:02:28
Thread-ID: 1011987
4 Beiträge
Anzeige
Schleife nächste Zelle +1
Michael

Hallo!
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins() Dim zeile As Integer Dim zeileMax As Integer Dim WertZeile As Long With Sheets("...
02.02.2009 09:39:26
Thread-ID: 1046079
7 Beiträge
Objekt in Formel verwenden
Michael

Schönen Sonntagmorgen,
ich möchte mit der Bedingung, dass ein Objekt angezeigt wird oder eben nicht (innerhalb eines If-Tests) eine Berechnung durchführen.
Weiß jemand, wie ich das in die If-Formel einbaue? Die "Shapes"-Eigenschaft wie im VBA ist es offensichtlich nicht...
Wäre supe...
15.02.2009 10:45:00
Thread-ID: 1050847
5 Beiträge
AutoFill zieht Formel auch in ausgeblendete Zeilen
Andreas

Hallo Herber Fans,
hat jemand folgendes Phänomen vielleicht selbst schon einmal erfahren.
1. Manuell: Ich habe eine Formel, die nicht auf alle Zeilen ausgeweitet werden soll. Setzte also einen Filter und ziehe die Formel herunter. Nur die sichtbaren Zellen bekommen die Formel, die die v...
16.03.2009 19:33:58
Thread-ID: 1060902
2 Beiträge
Aktuelles Datum in Formel (mit Inputbox)
StefanS

Hallo zusammen,
habe folgendes Problem:
Mittels der Formel =ZÄHLENWENN(Daten!E:E;" Meine nächste Idee wäre, das Datum mittels Inpubox abzufragen (Eingabe erfolgt durch User).
Sub Auswertung() Dim datum As String datum = InputBox("Datum") Range("B7").Select ActiveCell.FormulaR1C1 =...
21.04.2009 12:49:15
Thread-ID: 1070034
4 Beiträge
OHNE VBA Wert aus Zelle +71
Tom

Hallo zusammen,
kann mir jemand sagen ob es die Möglichkeit gibt über eine Formel beim runter ziehen eines Zellbezugs den Wert des Bezugs um 71 Spaltenb zu verschieben?
Beispiel:
Tabelle1 hat in der A1 Zelle einen Wert, in der A72 Zelle wieder einen und nach weiteren 71 Zeilen wiede...
17.06.2009 00:09:09
Thread-ID: 1082093
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
3
6
5
3
2
6
4
1
3
4
3
6
3
6
12
2
11
2
4
3
10
3
2
5
7