Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: mit VBA jede 6 Zeile - Rahmenlinie einfügen

mit VBA jede 6 Zeile - Rahmenlinie einfügen
02.04.2015 16:27:36
Dominic
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

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit VBA jede 6 Zeile - Rahmenlinie einfügen
02.04.2015 17:20:24
Klexy

Sub Zeilen_mit_bla_formatieren()
Dim Prüfspalte As Range, Schlüsselwort As String, Schlüsselzeile As Range
Set Prüfspalte = Range("A10:A1999")
Schlüsselwort = "bla"
For Each cell In Prüfspalte
cell.Select
MsgBox cell.Value & " " & Schlüsselwort & " " & InStr(cell.Value, Schlüsselwort)
If InStr(cell.Value, Schlüsselwort) > 0 Then
Set Schlüsselzeile = Range(cell, cell.Offset(0, 7))
Schlüsselzeile.RowHeight = 4.5
With Schlüsselzeile.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
End If
Next
End Sub
Die Groß/Kleinschreibung beim Schlüsselwort wird berücksichtigt, also "Bla" ist kein Treffer.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige