zellen vergleichen mit makro
26.07.2021 14:44:30
tilman
ich bin gerade am Konsolidieren einer Liste und so nach 200 händischen Vergleichen von Zellinhalten mithilfe der Filterfunktion wollte ich nach nem Makro suchen um dass ganze zu automatisieren, da ich nicht direkt was gefunden habe frage ich hier um hilfe.
hier die Datei mit teils gelöschten Inhalten https://www.herber.de/bbs/user/147315.xlsm
Ich hatte 2015 mal n VBA Kurs und seit dem lang nix mehr damit zu tun, hier wie ich das Makro aufbauen würde:
Sub vergleich()
'variablen definieren
'varLauf - Laufvariable die das Loopende bestimmt und die Zeilennummer des Vergleichswerts enthält
'varVergl - Vergleichsvariable die den Zelleninhalt enthält der verglichen werden soll
'varTreff - Treffervariable die die Zeilennummer enthält wo Vergleichswert und Suchwert übereinstimmen
'maximale Zeilenzahl feststellen um Loopende zu setzen
'Loopbeginn
'setze varLauf auf Zeilennummer 1
'VerVergl = Zelleninhalt(varLauf;10 (Spalte J))
'beginne mit vergleich von varVergl mit allen gefüllten Zellen in Spalte J:
'if varVergl=varLauf+1
'THEN
'set varTreff auf aktuelle Zeilenzahl von varLauf+1
'copy Zelleninhalt von varVergl; Spalte G
'paste in varTreff; Spalte G
'copy Zelleninhalt von varVergl; Spalte L
'paste in varTreff; Spalte L
'copy Zelleninhalt von varVergl; Spalte R
'paste in varTreff; Spalte R
'markiere jede Zelle in varVergl in Rot
'set varVergl auf Zelleninhalt(varLauf+1;10 (spalteJ)) (verlasse if schleife)
'ELSE
'varLauf= Zeilennummer2 (n+1)
'wenn varLauf = max Zeilenzahl verlasse If Schleife
'nächster Loop - beginne mit vergleich der nächsten Zelle mit allen gefüllten Zellen in Spalte J
'Loopende: wenn varVergl = max. Zeilenzahl
End Sub
Dann hörts aber schon auf... bin mir da ziemlich unsicher und bräuchte hilfe