For Next Schleife
06.01.2016 14:38:43
BergLegende
kann mir BITTE jemand eine Schleife schreiben, ich bekomm es selber nicht hin.
Und zwar möchte ich, dass der Wert einer Zeile in Spalte 4 mit dem Wert der darunter liegenden Zeile ebenfalls in Spalte 4 miteinander verglichen wird. Sind beide Werte identisch wird unterhalb der Zeile von B bis Y ein Rahmenunterstrich gesetzt (Rahmen-Lösung habe selber per Makrorecorder aufgenommmen).
Es soll in Zeile 11 beginnen.
Ohne Schleife habe ich es selber hinbekommen aber wenn die Liste 400 Positionen lang ist, ist ein Schleife unumgänglich.
Ohne Schleife sieht mein Makro folgendermaßen aus (ein Bsp. für 3 Positionen)
Sub VBARahmensetzen()
If Tabelle1.Cells(11, 4).Value = Tabelle1.Cells(12, 4).Value Then
Range("B12:Y12").Select
' mein Recordermaktro
Else
Range("B12:Y12").Select
' mein Recordermaktro
If Tabelle1.Cells(12, 4).Value = Tabelle1.Cells(13, 4).Value Then
Range("B13:Y13").Select
' mein Recordermaktro
Else
Range("B13:Y13").Select
' mein Recordermaktro
If Tabelle1.Cells(13, 4).Value = Tabelle1.Cells(14, 4).Value Then
Range("B14:Y14").Select
' mein Recordermaktro
Else
Range("B14:Y14").Select
' mein Recordermaktro
Wie spreche ich obere & untere Zeile dynamisch an und vor allem wie bestimme ich den jeweiligen Range dynamisch? Kann mir bitte jemand helfen?
Vorab vielen Dank!
Beste Grüße