Sub Vergleichen1
11.06.2009 19:07:50
Sprekelmeyer
der Code funktioniert nicht, wo liegt der Fehler?
Sub Vergleichen1()
If Windows("Mappe1.xls").Sheets("Tabelle1").Range("A1") = Windows("Mappe2.xls").Sheets(" _
Tabelle2").Range("A1") Then
MsgBox "Alles Ok!", vbInformation
Else
MsgBox "Bitte nocheinmal überprüfen!", vbInformation
End If
End Sub
MfG
Stephan