For Schleife lässt letzten gefundenen Datensatz aus

Liebe Mitglieder,

ich komme bei der Datei einfach nicht weiter, obwohl es wahrscheinlich nur eine Kleinigkeit ist.
https://www.herber.de/bbs/user/166161.xlsm

Im Blatt TransferSheet_to_TicketsysGDK werden anhand von 2 Kritierien ZELLE Q2 + R2 Datensätze im Blatt "AUSTRITTE" identifiziert, um diese dann weiterzuverarbeiten.
Das funktioniert, aber das Makro soll im Tabellenblatt AUSTRITTE gleich die identifizierten Datensätze in SPALTE Q, R , S kennzeichnen. (erledigt, nicht notwendig).
Und hier gibt es das Problem:
Im Beispiel sind nur insgesamt 6 Datensätze (3 Mitarbeitergruppen) aufgeführt, aber immer wird der letzte Datensatz nicht gekennzeichen (unabhängig ob ich hier 2 oder 48 Datensätze habe), also in der Beispielsdatei ist dann nur der erste gefundene Datensatz gekennzeichnet, der zweite nicht.
Einfach mal ausprobieren: Im Blatt TransferSheet_to_TicketsysGDK die Schaltfläche zu löschende Accounts Anzeigen und dann ins Blatt Austritte wechseln um es zu überprüfen.

Vielen Dank für die Tipps Gruß Georg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Die Tabelle in Austritte beginnt in Zeile 7 und deine for Schleife fängt bei 8 an.
Tabelle1.Activate kannst du weglassen. VBA muß die Tabelle nicht sehen. Da du die Ranges per with klammer schon einem Tabellenblatt zugewiesen hast ,ist die Adressierung gegeben.

Wenn du "Dim blnKombi As Boolean" innerhalb einer for-Schleife schreibst, dann wird die Variable jedesmal neu erstellt.
Da die Prüfung aber erst nach der For-Schleife stattfindet , prüfst du nur das Ergebnis des letzten Schleifendurchlaufes. So gesehen ist das also nicht sinnvoll.
Besser wäre wahrscheinlich eine einfache Zählvariable zu nutzen und deren Wert auf größer 0 zu prüfen und ihn in der Messagebox noch mit auszugeben.

For i = 8 To T1LastR For j = 7 To T3LastR Txt = Tabelle3.Range("H" & j).Value If Tabelle1.Range("C" & i).Value = Tabelle3.Range("C" & j).Value Then If Txt = "MFA" Or Txt = "SC-Agent" Or Txt = "SC-SL" Or Txt = "SC-PL" Then Tabelle3.Range("R" & j).Value = "nicht notwendig" Tabelle3.Range("S" & j).Value = "nicht notwendig" End If End If Next j Next i

Beliebteste Forumthreads (12 Monate)

For Schleife lässt letzten gefundenen Datensatz aus

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

For Schleife lässt letzten gefundenen Datensatz aus

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread