2 Werte vergleichen

[TobiasTokio]

Hallo,

ich wuerde mit einem Makro gerne zwei Zellen-Werter aus zwei unterschiedlichen Excel Files vergleichen!

habs so versucht aber des klappt irgendwie nich...

'Compare the two Total Values
Dim Total_1 As Double
Dim Total_2 As Double
Total_1 = Worksheets("test.xls").Range("V115").Value
Total_2 = Worksheets("Spiridon_result_transfer_en (4).xls").Range("J115").Value
result = StrComp(Total_1, Total_2, vbTextCompare)
If result = 1 Then
'Outcome Message OK
MsgBox "Data was copied and pasted correctly. Thank You!"
Else
'Outcome Message NOT OK
MsgBox "An ERROR occured please check if all values are correct!"
End If

Danke fuer eure Hilfe

 

[Nirraven]

Total_1 = Worksheets("test.xls").Range("V115").Value
Total_2 = Worksheets("Spiridon_result_transfer_en (4).xls").Range("J115").Value
End If

Worksheets("test.xls").Range("V115").Value

Ich bezweifel einmal, dass deine Tabelle "test.xls" heißt.
Mal abgesehen davon ist
Spiridon_result_transfer_en (4).xls
ein Workbook und kein Worksheet

Workbook = Excel Datei
Worksheet = Tabelle

Nebenbei gesagt, beim ersten verweis brauchst du nix spezielles angeben, da du dein makro ja aus diesem Workbook ausführst und er somit automatisch auf die erste Tabelle zugreift.

aussehen müsste es so:
Sub test()
Dim bla, blub
bla = Range("V115").Value
blub = Workbooks("Spiridon_result_transfer_en (4).xls").Worksheets("Tabelle1").Range("J115")
End Sub

 

[TobiasTokio]

Vielen Dank fuer deine Hilfe!! Jetzt gehts mit diesem Code:

'Compare the two Total Values
Dim Total_1 As String
Dim Total_2 As String

'Windows(CC).Activate
Total_1 = Range("V115").Value

Windows("Spiridon_result_transfer_en (4).xls").Activate
Total_2 = Workbooks("Spiridon_result_transfer_en (4).xls").Worksheets("final").Range("J115")

result = StrComp(Total_1, Total_2, vbTextCompare)
If result = 0 Then
'Outcome Message OK
MsgBox "Total of `Spiridon_result_transfer_en (4).xls` (" & Total_1 & ") and " & "`" & CC & "`" & " (" & Total_2 & ") are identical!"
MsgBox "Data was copied and pasted correctly. Thank You!"
Else
'Outcome Message NOT OK
MsgBox "Total of `Spiridon_result_transfer_en (4).xls` (" & Total_1 & ") and " & "`" & CC & "`" & " (" & Total_2 & ") are NOT identical!"
MsgBox "An ERROR occured please check if all values are correct!"
End If