Code um 2 Tabellen miteinander zu vergleichen

Liebe Community,
ich möchte euch erst einmal mein Anliegen schildern:
Ich suche einen VBA-Code um 2 Tabellen mit einander zu vergleichen. In der ersten Tabelle im Worksheet Planung sind die SOLL-Zeiten eingetragen, also die Stunden die benötigt werden, um etwas herzustellen. In der zweiten Tabelle im Worksheet Arbeitszeiten sind die IST-Zeiten eingetragen, also die Stunden die zur Verfügung stehen. Der Aufbau der beiden Tabellen ist identisch.
In der ersten Zeile der jeweiligen Tabelle befinden sich Datumsangaben. In den Zeilen darunter die Arbeitsstunden (einmal SOLL und in der anderen Tabelle IST).
Wie müsste der VBA-Code aussehen, wenn ich die SOLL-Zeit-Tabelle mit der IST-Zeit-Tabelle abgleichen möchte, und er mir mit Hilfe einer MsgBox mitteilt, dass die Zeiten stimmen (wenn die SOLL-Zeiten gleich oder unter den IST-Zeiten liegen) bzw. nicht stimmen (wenn die SOLL-Zeiten über den IST-Zeiten liegen)?
Wenn etwas unklar geschrieben wurde von mir dann meldet euch einfach :)
Ich bedanke mich für jede Hilfe!!
LG euer Maik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Vergleichen() Dim TB1, TB2 Dim UZ As Integer, EZ As Integer, LZ As Integer, ES As Integer, LS As Integer Dim I As Integer, J As Integer, GR As String, KL As String Set TB1 = Sheets("Planung") Set TB2 = Sheets("Arbeitszeiten") UZ = 2 ' Zeile mit Datum EZ = 4 ' erste Zeile mit Daten ES = 7 'erste Spalte =G LZ = TB1.Cells(TB1.Rows.Count, ES).End(xlUp).Row 'letzte Zeile der Spalte LS = TB1.Cells(UZ, TB1.Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile For J = ES To LS For I = EZ To LZ With TB1 If .Cells(I, J) - TB2.Cells(I, J).Offset(0, -3) > 0 Then GR = GR & .Cells(I, J).Address & ", " ElseIf .Cells(I, J) - TB2.Cells(I, J).Offset(0, -3) < 0 Then KL = KL & .Cells(I, J).Address & ", " End If End With Next Next If GR <> "" Then MsgBox GR & " sind Größer" If KL <> "" Then MsgBox KL & " sind Kleiner" End Sub

Hallo nochmal
dann so...

Sub Vergleichen()
    Dim TB1, TB2
    Dim UZ As Integer, EZ As Integer, LZ As Integer, ES As Integer, LS As Integer
    Dim I As Integer, J As Integer, GR As String, TMP
    
    Set TB1 = Sheets("Planung")
    Set TB2 = Sheets("Arbeitszeiten")
    UZ = 2 ' Zeile mit Datum 
    EZ = 4 ' erste Zeile mit Daten 
    ES = 7 ' erste Spalte =G 
    
    LZ = TB1.Cells(TB1.Rows.Count, ES).End(xlUp).Row 'letzte Zeile der Spalte 
    LS = TB1.Cells(UZ, TB1.Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile 
    
    For J = ES To LS
        For I = EZ To LZ
            With TB1
                If .Cells(I, J) - TB2.Cells(I, J).Offset(0, -3) > 0 Then
                    If InStr(GR, .Cells(UZ, J) & ", ") = 0 Then 'nur, wenn das Datum noch nicht genannt wurde 
                        GR = GR & .Cells(UZ, J) & ", "
                    End If
                End If
            End With
        Next
    Next
    
    If GR <> "" Then TMP = MsgBox(GR & vbLf & vbLf & "bitte kontrollieren ", vbCritical, "Größer Warnung")
    
End Sub

LG UweD

Beliebteste Forumthreads (12 Monate)

Code um 2 Tabellen miteinander zu vergleichen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code um 2 Tabellen miteinander zu vergleichen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread