none
Werte zweier Tabellen in Excel vergleichen RRS feed

  • Allgemeine Diskussion

  • Hallo Miteinander :)

    ich habe ein Problem und zwar vergleiche ich Werte aus zwei Excel Tabelle über ein in VBA programmiertes Makro.

    Die Problemstellung ist folgende:

    Man soll in Tabelle1 Zahlen des aktuellen Monates einfügen

    Man soll in Tabelle2 Zahlen des letzten Monates einfügen.

    Nun sollen die Werte aus Tabelle1 mit den Werten aus Tabelle zwei verglichen werden.

    Wenn es nun einen Treffer gibt sollen die Werte in Tabelle1 grün eingefärbt werden

    Wenn es keinen Treffer gibt sollen diese rot eingefärbt werden.

    Das funktioniert soweit auch.

    Jetzt habe ich nur das Problem das ich in Tabelle1 eine "1" stehen habe und diese grün hinterlegt wird weil es auf die "1000" in Tabelle2 verweist.

    Wie kann man das lösen das nur genaue Werte miteinander verglichen werden?

    Sub prüfen()
    Dim a As String
    Dim e As Integer
    Dim x As Integer
    Dim C As Range
    x = 2
    'Variable enthält aktive Zellen
    a = Worksheets(1).Range("C1").Value
    a = a + 1
        For e = 2 To a
        Set C = Worksheets(2).Range("A2:A3000").Find(Worksheets(1).Range("A" & x))
        
        If Not C Is Nothing Then
        Worksheets(1).Range("A" & x).Interior.ColorIndex = 4 '4 steht für grün
        End If
        
        If C Is Nothing Then
        Worksheets(1).Range("A" & x).Interior.ColorIndex = 3 '4 steht für rot
        End If
        
        x = x + 1
        Next e
        
        
    End Sub

    Dienstag, 4. Dezember 2012 09:35

Alle Antworten