Löschen wenn zwei Arrays übereinstimmen
18.05.2022 11:29:40
Dieter
Als erstes:
EIN HERZLICHES DANKESCHÖN FÜR ALL DIE HILFE DIE ICH HIER SCHON GEFUNDEN HABE
IHR SEID PHANTASTISCH
Nun habe ich leider für folgendes keine Lösung finden können.
Ich habe bisher nur sehr wenig bis eher keine Erfahrung mit Arrays zu arbeiten, hatte mir aber gedacht, es könnte mir bei folgender Situation helfen:
Ich habe zwei Tabellen, die absolut identisch sind.
Die eine Tabelle behält den Datenstand
Die andere wird im Laufe einer Woche verändert.
Am Ende der Woche hole ich die Daten und muss die Änderungen aus der Tabelle in eine dritte Tabelle übertragen.
Um es einfach zu machen (Tatsächlich sind es 11 Daten pro Array):
Tabelle 1:
Titel, Name, Nummer, Irgendwas
Tabelle 2:
Titel, Name, Nummer, Irgendwas
Tabelle 3
Titel, Name, Nummer, Irgendwas, und noch viel mehr Daten
Ich habe folgenden Code geschrieben:
Sub Test()
Dim i As Long 'Zähler in Tabelle Update
Dim arr1 As Variant 'Array Tabelle 1
Dim arr2 As Variant 'Array Tabelle 2
With shUpdate ' Tabellenblatt auf dem beide Tabellen angelegt sind
i = 3
Do Until .Range("A" & i) = ""
arr1 = .Range("F" & i & ":P" & i)
arr2 = .Range("AF" & i & ":AP" & i)
If arr1 = arr2 Then
.Range(i & ":" & i).Delete xlShiftUp ' Alle Zeilen in denen es keine Änderungen gab sollen gelöscht werden
i = i - 1
End If
i = i + 1
Loop
End With
End Sub
gibt es eine einfache Lösung?