hoffe es kann mir zu so später Stunde noch jemand weiterhelfen. Ich sitz schon länger vor dem Problem und kriegs nicht gebacken. Also hoffe auf eure Hilfe. Ich habe auf einem Tabellenblatt zwei Tabellen mit Einträgen von B bis AE. Beide Tabelen besitzen nur eine Zeile und sind identisch aufgebaut. Jetzt möchte ich beide Tabellenzeilen vergleichen und sobald sich ein Wert einer Zelle aus Tabelle 1 von Tabelle 2 unterscheidet, möchte ich ein anderes Makro starten. Hab schon etliches getestet und probiert. Aber nichts klappt. Mein letzter Versuch sieht so aus:
Sub VergleichSave()
Dim wks1 As Worksheet, wks2 As Worksheet
Dim n As Long
Dim rng As Range
Dim i As Integer
Set wks1 = Sheets("Calc")
'Daten aus Tabelle1 an Array übergeben
arrSC = wks1.Range("B9:AE9")
For n = 1 To UBound(arrSC, 2)
Set rng = wks1.Range().Find(arrSC(n, 2))
'Daten aus Tabelle1 in Tabelle2 suchen
If rng Is Nothing Then
i = MsgBox _
("Do you want to save the changes?", _
1 + vbQuestion, "Save Changes")
If i = 2 Then Exit Sub
Call SAVERECORD
End If
Next
End Sub
DAnke für eure Hilfe. Grüße Sebastian