Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1416to1420
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
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Vergleich von Werten mit Rückgabe

VBA-Vergleich von Werten mit Rückgabe
09.04.2015 12:52:29
Werten
Hallo liebe Leute,
ich habe folgende Fragestellung mit meiner in Worte gefassten Logik:
- Schleife für Spalte D: Suche ob Wert der Zeile i mehrfach vorhanden ist. Wenn ja, dann selektiere alle vorhandenen Zeilen inklusive aller Nachbareinträge von A bis K.
- Schleife für selektierte Zeilen: Suche in den selektierten Beiträgen ob einer der Werte in Spalte K anders ist, als die anderen. Wenn Ja, schreibe in Spalte L "Achtung". Wenn Nein, gehe zur Schleife für Spalte D zurück und mache weiter mit Zeile i.
Kann mir jemand helfen?
Mein Code:
Dim i as Long
For i=1 to 1000
If Cell(i,4) = Range("D") Then
Nun ist mein Latein am Ende...
Danke für eure Hilfe.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Vergleich von Werten mit Rückgabe
09.04.2015 15:02:08
Werten
Hi Nino
Mag sein, dass mein Lösungsvorschlag nicht sehr elegant ist, aber da sich scheinbar niemand an deine Aufgabe getraut... :)
Sub t()
Dim i As Long, ii As Long
Dim x As Variant
Columns(12).ClearContents
For i = 1 To Range("D65536").End(xlUp).Row
x = Cells(i, 11)
For ii = 1 To Range("D65536").End(xlUp).Row
If Cells(i, 4) = Cells(ii, 4) And Cells(ii, 11)  x Then _
Cells(ii, 12) = "Achtung"
Next ii
Next i
End Sub
cu
Chris

AW: VBA-Vergleich von Werten mit Rückgabe
15.04.2015 13:18:59
Werten
Danke dir, es klappt wunderbar
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige