Frage VBA
24.10.2018 11:59:13
Franky
Ich möchte gern per Makro 2 Tabellen vergleichen und in ein neues einfügen.
Dort soll alles richtig geordnet sein und die Werte übernommen werden.
Jetzt hab ich folgendes Makro, aber hier wird statt den Werten eine Farbe genommen.
Werte sind leider nicht vorhanden.
Und ich möchte gerne die 2 Tabellen anders auswählen, sonst muss ich immer das makro ändern.
Kann mir hier jemand helfen?
Sub ArbeitsmappenVergleichen3()
Dim wkbZiel As Workbook
Dim wkbQuelle As Workbook
Dim wksBlatt As Worksheet
Dim rngZelle As Range
Dim rngVglZelle As Range
Set wkbQuelle = Workbooks.Open(ThisWorkbook.Path & "\111.xlsb")
Set wkbZiel = Workbooks.Open(ThisWorkbook.Path & "\1111.xlsb")
For Each wksBlatt In wkbQuelle.Worksheets
For Each rngZelle In wksBlatt.UsedRange
Set rngVglZelle = wkbZiel.Worksheets(wksBlatt.Name).Range(rngZelle.Address)
If rngZelle.Value rngVglZelle.Value Then
rngVglZelle.Interior.ColorIndex = 3
End If
Next rngZelle
Next wksBlatt
End
Sub
Ich freu mich schon auf eure Hilfe
Lieben Gruss