Office: Vba Zeilen vergleich

Hallo

wie vergleiche ich mit VBA die Werte von 2 Zeilen also A1 mit B1 A2 mit B2 usw...

Gruß

 

Hallo!

Meinst du sowas?

For i = 1 To 100
If Cells(i, 1) = Cells(i, 2) Then
'mach was
End If
Next i

 

Hm ne also ich meine es z.b so, vergleiche jede Zelle von 1:1 mit der darunterliegenden Zelle 2:2 wen alle übereinstimmen mach....
Also irgendwie alle zellen von 1:1 in einem Array speichern und dann mit dem Array von Zeile 2 vergleichen

 

Hallo!

Dann vielleicht so?

Code:

Sub Vergleich()
Dim Zeile1, Zeile2, i As Integer, x As Integer
Zeile1 = WorksheetFunction.Transpose(Rows(1))
Zeile2 = WorksheetFunction.Transpose(Rows(2))
For i = 1 To UBound(Zeile1)
If Zeile1(i, 1) = Zeile2(i, 1) Then x = x + 1
Next i
If x = UBound(Zeile1) Then
MsgBox "Alle sind gleich"
Else: MsgBox "Es bestehen Unterschiede"
End If
End Sub

 

Ja genau so!

aber ich check bei dem Code nicht richtig durch

GRuß

 

Hallo!

Zeile1 und Zeile2 sind die Arrays, in denen die Zellinhalte eingelesen werden.
UBound bestimmt die Größe des Arrays (Spaltenanzahl):
16384 in Excel2007
256 in allen anderen Versionen
x ist der Zähler für gleiche Einträge. Ist x gleich UBound(Zeile1), dann sind alle Einträge gleich.
Cleverer wäre vielleicht die umgekehrte Abfrage:

If Zeile1(i, 1) <> Zeile2(i, 1) Then x = x + 1
und
If x = 0 Then...

 

Danke ich denke mal so ungefähr hab ich es verstanden.