Sub Vergleichen

Forumthread: Sub Vergleichen

Sub Vergleichen

11.06.2009 18:22:06

Sprekelmeyer

Hallo,
habe folgenden Code:


Sub Vergleichen()
If Range("A1") = Range("B1") Then
MsgBox "Alles Ok!", vbInformation
Else
MsgBox "Bitte nocheinmal überprüfen!", vbInformation
End If
End Sub

der auch so funktioniert. Nun das Problem:
A1 ist im Sheet Tabelle1 und B1 ist im Sheet Tabelle2
MfG
Stephan

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sub Vergleichen

11.06.2009 18:27:59

robert
AW: Sub Vergleichen

11.06.2009 18:29:24

Siggi
Referenz auf Tabellenblatt

11.06.2009 18:29:25

Erich
AW: Sub Vergleichen

11.06.2009 18:30:08

Rocky
AW: Sub Vergleichen

11.06.2009 18:39:26

Sprekelmeyer
dann zu-lösung hast du selbst gefunden

11.06.2009 19:26:26

robert
AW: Sub Vergleichen

11.06.2009 20:37:53

Josef

AW: Sub Vergleichen

11.06.2009 18:27:59

robert

hallo,
meinst du so ?
gruß bernd


Sub Vergleichen()
If Sheets("Tabelle1").Range("A1") = Sheets("Tabelle2").Range("B1") Then
MsgBox "Alles Ok!", vbInformation
Else
MsgBox "Bitte nocheinmal überprüfen!", vbInformation
End If
End Sub

AW: Sub Vergleichen

11.06.2009 18:29:24

Siggi

Hi,
einfach Tabellenname davor:
If Tabelle1.Range("A1") = Tabelle2.Range("B1") Then
mfg S.

Referenz auf Tabellenblatt

11.06.2009 18:29:25

Erich

Hi Stephan,
probier mal:
If Sheets("Tabelle1").Range("A1") = Sheets("Tabelle2").Range("B1") Then
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Sub Vergleichen

11.06.2009 18:30:08

Rocky

Hallo Stephan,
mal so:
Sub Vergleichen()
If sheets("Tabelle1").Range("A1") = sheets("Tabelle2").Range("B1") Then
MsgBox "Alles Ok!", vbInformation
Else
MsgBox "Bitte nocheinmal überprüfen!", vbInformation
End If
End Sub


Gruß Rocky

Wenn unter den Blinden der Einäugige König ist, dann findet man hier die Herren der Ringe!

AW: Sub Vergleichen

11.06.2009 18:39:26

Sprekelmeyer

Ja genau so funktioniert es, das wäre schon mal geklärt.


Sub Vergleichen()
If sheets("Tabelle1").Range("A1") = sheets("Tabelle2").Range("B1") Then
MsgBox "Alles Ok!", vbInformation
Else
MsgBox "Bitte nocheinmal überprüfen!", vbInformation
End If
End Sub

Was wäre denn wenn es auch noch zwei unterschiedliche Mappen sind?
z.B. Mappe1 und Mappe2
MfG
Stephan

dann zu-lösung hast du selbst gefunden

11.06.2009 19:26:26

robert

AW: Sub Vergleichen

11.06.2009 20:37:53

Josef

Hallo Stephan,
das geht nach dem selben Schema, nur das du diesmal auch auf die Mappe verweisen musst.


Sub Vergleichen()
If WorkBooks("Mappe1.xls").Sheets("Tabelle1").Range("A1") = WorkBooks("Mappe2.xls").Sheets(" _
Tabelle2").Range("B1") Then
MsgBox "Alles Ok!", vbInformation
Else
MsgBox "Bitte nocheinmal überprüfen!", vbInformation
End If
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Forumthread: Sub Vergleichen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread