Re: Range(spalte & zeile ) ?
28.05.2002 10:28:00
sven
Hi Timo, wenn es funktionieren würde, dann wäre das genial, aber ich weiss nicht, was ich falsch mache, es geht einfach nicht !!
Ich habe folgenden Quellcode :Sub Vergleich()
'
' vergleich Makro
' Makro am 27.5.2002 von PC-User aufgezeichnet
'
'
Dim wert1, wert2 As String
Dim zelleninhalt
Dim anfangB
Dim anfanga
Dim spalte
spalte = 1
anfanga = 2
Do While Worksheets("Tabelle1").Cells(spalte, anfanga) = 0
anfanga = anfanga + 1
Loop
anfangB = 2
Do While Worksheets("Tabelle2").Cells(spalte, anfangB) = 0
anfangB = anfangB + 1
Loop
For spalte = 1 To 2
a = anfanga
i = anfangB
zelleninhalt = 1 / 10
Do While zelleninhalt > 0
wert1 = Worksheets("Tabelle1").Cells(spalte, a)
wert2 = Worksheets("Tabelle2").Cells(spalte, i)
If wert1 = wert2 Then
MsgBox "richtig"
Else: MsgBox "falsch"
Cells(spalte & i).Interior.ColorIndex = 4
End If
a = a + 1
MsgBox a & " a "
i = i + 1
MsgBox i & " i"
zelleninhalt = Worksheets("Tabelle2").Cells(spalte, i)
Loop
Next
End Sub
Mit diesem möchte ich die beiden Tabellen vergleichen und die unterschiede markieren.
Jedoch bekom ich nun eine Fehlermeldung bei der Do while Bedingung. Ich kann anscheinend bei Cell nicht die 0 so stehn lassen, jedoch ist dies erforderlich. Mit Range geht dies, jedoch kann ich dort nicht die Spalten hochzählen