Excel makro vba zeilenvergleich und

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe wer-weiss-was-Gemeinde,

ich habe mal wieder ein hoffentlich kleines Excel-Problem, wofür ich eine Lösung brauche.
Folgende Ausgangslage:
Spalte A = laufende Nummer von 1 bis ~ (z.Zt. 1235)
Spalte B = Vergleichswerte (Format Standard). Diese kommen aus einer anderen Datei (Import)

Ich benötige jetzt ein Makro VBA, welches folgende Prüfung vornimmt: alle Zeilenwerte mit Zeilenwert drüber und Zeilenwert drunter vergleichen und bei Ungleichheit ein # vor die laufende Nummer in Spalte A setzen.

Hier ein Beispiel
Spalte A Spalte B
1 11 12311
2 12 12311
3 13 17456

#2

Hallo,

Sub Raute()
 Dim Ze As Range
 For Each Ze In ActiveSheet.UsedRange.Rows
 If Ze.Row \> 1 Then
 If Ze.Cells(2).Offset(-1, 0) = Ze.Cells(2).Offset(1, 0) \_
 And Ze.Cells(2) Ze.Cells(2).Offset(-1, 0) Then
 Ze.Cells(1) = "#" & Ze.Cells(1)
 End If
 End If
 Next Ze
End Sub

in den Makrocode des Tabellenblatts kopieren und laufen lassen.

Gruß
smalbop

#3

Heureka, es klappt.

Ich habe die irgendeine Lösung genommen; hier die Lösung Raute von smalbop. Das Makro geht, so ist es eine schnelle Lösung, was es sein sollte, da ich hoffe, dass meine Techniker das Problem lösen werden und keine Fehlwerte auftreten werden.

Allen sei Dank, die eine Lösung gesucht und gefunden haben. Ich habe bisher nicht alle ausprobiert, aber es sind bestimmt noch andere Lösungen dabei.

Ich werde allen Experten, die per E-Mail geschrieben haben noch antworten, aber z.Zt. habe ich nur ein netbook zur Verfügung, wenn ich wieder daheim bin, kommen die Antworten.

Es grüßt

IchHabeEineLösung