Excel VBS Datenvergleich
Hallo zusammen,
möchte ein Excel Makro in VB, das mit die Gleichheit von 2 Zellen in einer Meldung ausgibt.
hab da Knoten im Hirn
Beispiel:
Die Abfrage ist eine Schleife,
Sub Gleiche_EAN ()
Dim CompareRange As Variant, x As Variant, y As Variant
Set CompareRange = Range("C1:C5")
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 1) = x
'hier soll die msgbox rein ->
Next y
Next x
End Sub
Gruss
Rocco
möchte ein Excel Makro in VB, das mit die Gleichheit von 2 Zellen in einer Meldung ausgibt.
hab da Knoten im Hirn
Beispiel:
Die Abfrage ist eine Schleife,
Sub Gleiche_EAN ()
Dim CompareRange As Variant, x As Variant, y As Variant
Set CompareRange = Range("C1:C5")
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 1) = x
'hier soll die msgbox rein ->
Next y
Next x
End Sub
Gruss
Rocco
Please also mark the comments that contributed to the solution of the article
Content-Key: 294492
Url: https://administrator.de/contentid/294492
Printed on: April 18, 2024 at 02:04 o'clock