ich bitte mal wieder um eine kleine erkläreung.
habe einen Code der mir 2 tabellen miteinander vergleicht.
Aber ich verstehe noch nicht alles in diesem Source. Hier erst einmal der Coder:
Sub Vergleich()
Dim wks As Worksheet
Dim rngChange As Range, rngTest As Range
Dim rngSource As Range, rngTarget As Range
Dim intCounter As Integer
Set rngSource = Worksheets("Daten").UsedRange
Set wks = Worksheets("Dummy")
For Each rngTest In rngSource.Cells
If rngTest.Value <> wks.Range(rngTest.Address).Value Then
If rngChange Is Nothing Then
Set rngChange = rngTest
Else
Set rngChange = Union(rngChange, rngTest)
End If
End If
Next rngTest
If rngChange Is Nothing Then
MsgBox "Keine Veränderungen!"
Else
rngChange.Select
End If
End Sub
Wasich z.b erklärt bekommen möchte ist
warum rngChange.Select mehere zellen Markiert also wo er sich die einzelnen Zellen merkt.
Dann auch noch was dieser Befehl genau macht
Set rngChange = Union(rngChange, rngTest)
Also allgemein damit ich das ganze besser verstehe.
Nur wenn jemand etwas Zeit hat.Das ganze ist nicht "lebensnotwendig"
Würde mich aber freuen !
Vielen dank an alle Mithelfer hier !
Super Forum danke !!!!
grüße Christian