Werte vergleichen und bei Änderung unterstreichen
18.07.2013 21:34:06
Tim
als VBA-Anfänger habe ich mir ein großes Projekt vorgenommen.
Ich mit euren zahlreichen Beiträgen weit gekommen.
Nun habe ich jedoch eine Frage, die ich mir leider nicht mit bestehenden Threads beantworten kann.
Ich habe eine Tabelle ("A:K") mit beliebig vielen Zeilen.
Die Spalten "H" und "J" sind leere Spalten und sollten auch leer bleiben.
In Spalte A befinden sich Leitungsbezeichnungen.
Diese sind in 100er-Schritten fortlaufend, beginnen bei 0100 und enden irgendwo im 4000er-Bereich nach. Prinzip folgend dargestellt:
0100
0100
0100
0200
0300
0300
0400
0500...
Zur besseren Übersicht soll ich jedes Mal, wenn sich die Leitungsbezeichnung ändert,
einen dicken Trennstrich zwischen den unterschiedlichen Werten und in der ganzen Zeile (A:K) einfügen.
Jedoch soll in den Spalten H und J kein Trennstrich sein, diese sollen leer bleiben.
Ich hoffe, dass ich mein Problem präzise genug geschildert habe.
Mein Versuch baut auf einem ähnlichen Forenbeitrag auf, scheitert aber meiner Meinung nach in der "Fragezeichenzeile" (siehe unten).
Wäre echt super, wenn mir jemand helfen mag.
Bis dahin: euch allen einen schönen Abend!!!
Tim
Sub Aenderung_Leitungsnummer()
Dim Zeile1 As Long 'Erste Verhgleichszeile
Dim Zeile As Long 'Zweite Vergleichszeile
Dim ZeileL As Long 'Letzte Datenzeile
Const Spalte = 1 'Spalte A, in der die Leitungsnummern bei Änderung durch dicke Linie _
getrennt werden sollen
With ActiveSheet
ZeileL = .Cells(.Rows.Count, Spalte).End(xlUp).Row 'Letzte Datenzeile Spalte A
Zeile1 = Zeile 'Startzeile für 1. Wert merken.
Do Until Zeile > ZeileL
Zeile = Zeile + 1
If Zeile - Zeile1 > 1 Then 'mehrere identische Zeilen
'do nothing
Else
.Cells(Zeile, Spalte).Value = .Cells(Zeile - 1, Spalte).Value Then
End If
'Startzeile für nächsten Wert merken
Zeile1 = Zeile
End If
Loop
End With
End Sub
