Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1916to1920
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
1916to1920
1916to1920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle eindeutigen Zeilen durchlaufen

Alle eindeutigen Zeilen durchlaufen
19.01.2023 15:27:42
Thomas
Hallo zusammen,
ich habe eine Tabelle welche rund 2500 Zeilen hat, in Spalte 5 gibt es ca. 40 Werte die Sortiert in unterschiedlicher Anzahl je Wert angezeigt werden.
Jetzt möchte ich in einer Schleife alle Zeilen durchlaufen aber wenn der Wert "Köln" einmal dran war , soll in der Schleife als nächstes dann der "Wert "München" bearbeitet werden und so weiter, so das in der äußeren Schleife jeder Wert in Spalte 5 nur einmal durchlaufen wird, in einer inneren Schleife würden dann alle Zeile der jeweiligen Stadt verarbeitet.
Ich stehe mir aber auf dem Schlauch wie ich die äußere Schleife aufsetzen muss.
Anbei eine kurze Beispiel Datei.
https://www.herber.de/bbs/user/157378.xlsx
Danke
MFG
Thomas

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

Betreff
Datum
Anwender
Anzeige
AW: Alle eindeutigen Zeilen durchlaufen
19.01.2023 15:37:31
ChrisL
Hi Thomas
Ein Beispiel (gem. deiner Beschreibung ist die Liste sortiert):
Sub t()
Dim lngZeile As Long
For lngZeile = 2 To Cells(Rows.Count, 5).End(xlUp).Row
    If Cells(lngZeile - 1, 5) > Cells(lngZeile, 5) Then
        Debug.Print "bearbeite Wert " & Cells(lngZeile, 5) & " in Zeilennummer " & lngZeile
    Else
        Debug.Print "ignoriere Zeilennummer " & lngZeile
    End If
Next lngZeile
End Sub
cu
Chris
AW: Alle eindeutigen Zeilen durchlaufen
19.01.2023 15:43:30
Daniel
Hi
ich mache sowas so, wenn die Daten sortiert sind:
dim Zelle1 as range
dim Zelle2 as range
set Zelle2 = Range("E1") '--- Zelle, die sich direkt vor der ersten Datenzelle befindet
Do
    Set Zelle1 = Zelle2.Offset(1, 0)
if Zelle1.value = "" then Exit do
    Set Zelle2 = Zelle1.EntireColumn.Find(what:=Zelle1.Value, looktat:=xlwhole, lookin:=xlvalues, searchdirection:=xlprevious)
    '--- hier dann der Code zur Bearbeitung, 
    '--- in Zelle1 ist immer die erste Zelle mit einem Wert (Köln Zeile 1) und
    '--- in Zelle2 ist immer die letzte Zelle mit diesem Wert (Köln Zeile 4)
    '--- mit Range(Zelle1, Zelle2).EntireRow kann man dann auch eine Blockweise bearbeitung dieses Bereichs durchführen
Loop
Gruß Daniel
Anzeige
AW: Alle eindeutigen Zeilen durchlaufen
19.01.2023 15:47:41
Piet
Hallo thomas
deine Angaben sind leider etwas unvollstaendig, aber hier ein kleines Makro das funktioniert.
Es zeigt dir alle Werte der Spalte A in einer MsgBox an, aber nur beim 1. Stadtnamen!
Wenn du andere Spalten auswerten willst, must du Range("A2:A") aendern und bei lz1 = Cells( ,1) die Spalte!
mfg Piet
  • Sub Zeilen_durchlaufen()
Dim AC As Range, lz1 As Long
'LastZell in Spalte xxx suchen
lz1 = Cells(Rows.Count, 1).End(xlUp).Row
For Each AC In Range("A2:A" & lz1)
   If Cells(AC.Row, 5) > Cells(AC.Row - 1, 5) Then
      MsgBox AC.Value
   End If
Next AC
End Sub

    • Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige