Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1340to1344
1340to1344
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vergleich und MsgBox

Forumthread: Vergleich und MsgBox

Vergleich und MsgBox
07.12.2013 19:09:23
SusHH
Hallo Excelfreunde,
ich bin auf der Suche nach einem Makro, welches die letzte Zeile aus Tab1 mit der letzten Zeile aus Tab2 vergleicht. Bei Übereinstimmung soll eine MsgBox erscheinen das die beiden Zeilen identisch sind.
Die Anzahl der beschriebenen Zeilen variiert von Tag zu Tag in beiden Tabellen.
Für Profis sicher ein Klacks... aber für mich....
Grüße SusanHH

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vergleich und MsgBox
07.12.2013 19:41:32
Hajo_Zi
Hallo Susann, 
Option Explicit
Sub Vergleich()
Dim LoLetzte1 As Long
Dim LoSpalte1 As Long
Dim LoLetzte2 As Long
Dim LoSpalte2 As Long
Dim LoI As Long
Dim BoGleich As Boolean
With Worksheets("Tabelle1")
LoLetzte1 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
LoSpalte1 = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
End With
With Worksheets("Tabelle2")
LoLetzte2 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
LoSpalte2 = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
For LoI = 1 To Application.WorksheetFunction.Max(LoSpalte1, LoSpalte2)
If .Cells(LoLetzte2, LoI)  Worksheets("Tabelle1").Cells(LoLetzte2, LoI) Then
BoGleich = True
Exit For
End If
Next LoI
If BoGleich = False Then MsgBox "Gleich"
End With
End Sub

Anzeige
AW: Vergleich und MsgBox
07.12.2013 19:43:56
Hajo_Zi
Hallo Susann,
war noch ein Fehler. 
Option Explicit
Sub Vergleich()
Dim LoLetzte1 As Long
Dim LoSpalte1 As Long
Dim LoLetzte2 As Long
Dim LoSpalte2 As Long
Dim LoI As Long
Dim BoGleich As Boolean
With Worksheets("Tabelle1")
LoLetzte1 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
LoSpalte1 = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
End With
With Worksheets("Tabelle2")
LoLetzte2 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
LoSpalte2 = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
For LoI = 1 To Application.WorksheetFunction.Max(LoSpalte1, LoSpalte2)
If .Cells(LoLetzte2, LoI)  Worksheets("Tabelle1").Cells(LoLetzte1, LoI) Then
BoGleich = True
Exit For
End If
Next LoI
If BoGleich = False Then MsgBox "Gleich"
End With
End Sub
Gruß Hajo

Anzeige
AW: Vergleich und MsgBox
07.12.2013 21:21:49
SusHH
Hallo Hajo,
ich hatte vergessen zu erwähnen, dass der Vergleich der letzten Zeile auf die Spalten A-C beschränkt sein sollte. Sorry.
Hast du da noch ne Lösung?
Grüße SusanHH

AW: Vergleich und MsgBox
07.12.2013 21:44:29
Hajo_Zi
Hallo Susann,
For LoI = 1 To 3
Gruß Hajo

Anzeige
AW: Vergleich und MsgBox
07.12.2013 22:02:26
SusHH
Hallo Hajo,
irgendwie gehts nicht. Egal ob gleich oder ungleich, ich bekomme immer die MsgBox.
Grüße Susan

AW: Vergleich und MsgBox
07.12.2013 22:05:35
Hajo_Zi
Hallo Susan,
in meiner Datei bekomme ich das richtige Ergebnis, Deine Datei sehe ich nicht.
Gruß Hajo

Anzeige
AW: Vergleich und MsgBox
07.12.2013 22:14:03
SusHH
Ok, dann liegts bestimmt an mir. Ich probiere noch ein wenig. Wenn ich es nicht hinbekomme, melde ich mich nochmal.
Trotzdem erstmal DANKE HAJO
LG Susan

AW: Vergleich und MsgBox
07.12.2013 22:57:36
SusHH
Hallo Hajo,
ich komme nicht zum gewünschten Ergebnis.
Habe eine Bsp-Datei gemacht. Evtl entdeckst du den Fehler.
https://www.herber.de/bbs/user/88423.xlsm
GLG Susan

Anzeige
genau abschreiben-so hats Hajo
08.12.2013 07:32:29
robert
If .Cells(LoLetzte2, LoI) Worksheets("Tabelle1").Cells(LoLetzte1, LoI) Then

..hätt ich mir sparen können....... oW
08.12.2013 15:27:23
robert

AW: Vergleich und MsgBox
08.12.2013 10:54:23
Hajo_Zi
Hallo Susann,
ich sehe es also richtig Du liest meine Beiträge nicht, da ich nicht gerne für den Papierkorb arbeite bin ich raus.
Gruß Hajo

Anzeige
AW: Vergleich und MsgBox
08.12.2013 13:47:30
SusHH
Hallo Hajo,
du hast nicht für den Papierkorb gearbeitet. Es funktionert jetzt. Ich hatte mir den Code ein zweites mal kopiert und dabei den falschen (ersten) Beitrag von dir erwischt. Mein Fehler und ich gelobe Besserung.
Danke für deine Mühe.
Grüße Susan
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige