Hallo zusammen,
ich benötige ein Skript, das mir in jede 6 Zeile eine Rahmenlinie von Spalte A bis H einfügt. (Rahmenlinie oben. )
Nun kann es aber sein, dass die zugrunde liegenden Daten nicht korrekt sortiert sind, und es mal die 7 mal die 6 Zeile ist.
Wie kann ich das folgende Skript also ändern, dass nach einem Schlüsselwort z. B. in Spalte A gesucht wird, und dann die Rahmenlinie oben in der Zeile gesetzt wird, in der das Schlüsselwort auftaucht?
Dim Ze As Long
For Ze = 10 To 1999 Step 6
Rows(Ze).RowHeight = 4.5 'Das habe ich mal für ein anderes Skript verwendet, wie passe ich das auf den jeweiligen Bereich von A bis H an, statt die ganze Zeile zu verwenden und dann wie folgt zu formatieren..
Range("A6:H6").Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With