Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sub Vergleichen1

Forumthread: Sub Vergleichen1

Sub Vergleichen1
11.06.2009 19:07:50
Sprekelmeyer
Hallo,
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

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sub Vergleichen1
11.06.2009 19:24:16
Sprekelmeyer
Hab die Lösung gefunden:

Sub Vergleichen1()
If Workbooks("Mappe1.xls").Worksheets("Tabelle1").Range("A1") = _
Workbooks("Mappe2.xls").Worksheets("Tabelle1").Range("A1") Then
MsgBox "Alles Ok!", vbInformation
Else
MsgBox "Bitte nocheinmal überprüfen!", vbInformation
End If
End Sub


Trotzdem Danke super Forum
MfG
Stephan

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige