Supportnet / Forum / Tabellenkalkulation
vergleich mit zusammengesetzten primärschlüssel
Frage
hi leute,
ich brauch ein makro, dass mir doppelte namenseinträge in einer extra spalte markiert (zb mit einem "x")
der namen setzt sich aus vor- und nachname zusammen, also keine eindeutige spalte, sondern eben 2 spalten.
leider hab ich keine vb syntax erfahrung, und versuch das heut schon den ganzen tag selbst zu schreiben, komm aber leider net weiter.
Anmerk. daten sind alphabetisch sortiert, daher brauch ich immer nur zeile mit nächster zeile vergleichen.
hoffe meine problembeschreibung ist verständlich
pseudo code:
x = 1
Y= 2
for (X=1; x <= maxzeilen) {
wenn spalteA_zeileX = spalteA_zeileY und
spalteB_zeileX = spalteB_zeileY
dann schreib "x" in spalteC_zeileX
x++
y++
}
Antwort 1 von Saarbauer
Hallo,
handelt es sich um Excel, da du von einem
sprichst, das klingt mehr nach Access.
Gruß
Helmut
handelt es sich um Excel, da du von einem
Zitat:
vergleich mit zusammengesetzten primärschlüssel
vergleich mit zusammengesetzten primärschlüssel
sprichst, das klingt mehr nach Access.
Gruß
Helmut
Antwort 2 von elduderino
es handelt sich definitiv um excel. primärschlüssel kommt eher aus alltag mit db´s :)
Antwort 3 von Event
Hallo
Hier die Syntax:
Gruß
Hier die Syntax:
Private Sub CommandButton1_Click()
Dim x&, y&
Range("A65535").End(xlUp).Select
y = Right(Selection.Address(False, False), _ Len(Selection.Address(False, False)) - 1)
For x = 1 To y
If Cells(x, 1) & Cells(x, 2) = Cells(x + 1, 1) & Cells(x + 1, 2) Then
Cells(x + 1, 3) = "x"
End If
Next
End Sub
Gruß
Antwort 4 von elduderino
hi, thx für die antwort.
leider funkts nicht, syntax fehler in der zeile
y = Right(Selection.Address(False, False), _ Len(Selection.Address(False, False)) - 1)
lg
leider funkts nicht, syntax fehler in der zeile
y = Right(Selection.Address(False, False), _ Len(Selection.Address(False, False)) - 1)
lg
Antwort 5 von elduderino
oh, tipfehler selbst gefunden
thx nochmal für die hilfe
thx nochmal für die hilfe