ich bin gerade dabei ein VBA Programm zu schreiben, dass mir bei 2 unterschiedlichen Zellen aus 2 Tabellen diese farbig markiert,
jedoch bekomme ich ein Fehlermeldung die auf die Zeile mit der anfanga deklaration(Do While Worksheets("Tabelle1").Range("B" & anfanga) = 0 zutrifft. Jedoch hab ich keine Ahnung warum.
kann mir bitte jemand helfen ?
Sub vergleich()
'
' vergleich Makro
' Makro am 27.5.2002 von PC-User aufgezeichnet
'
'
Dim wert1, wert2 As String
Dim zelleninhalt, anfangB, anfanga As Integer
anfanga = 2
Do While Worksheets("Tabelle1").Range("B" & anfanga) = 0 anfanga = anfanga+1
Loop
anfangB = 2
Do While Worksheets("Tabelle2").Range("B" & anfangB) = 0 anfangB = anfangB + 1
a = anfanga
i = anfangB
zelleninhalt = 1 / 10
Do While zelleninhalt > 0
wert1 = Worksheets("Tabelle1").Range("B" & a)
wert2 = Worksheets("Tabelle2").Range("B" & i)
If wert1 = wert2 Then
MsgBox "richtig"
Else: MsgBox "falsch"
Range("A" & i).Interior.ColorIndex = 4
End If
a = a + 1
MsgBox a & " a "
i = i + 1
MsgBox i & " i"
zelleninhalt = Worksheets("Tabelle2").Range("B" & i)
Loop
End Sub