11.10.2019, 16:54
Hallo ,
stehe im Moment vor einem Problem, was ich nicht ganz lösen kann. Ich habe eine Tabelle, die aus mehr als 4000 Zeilen und 24 Spalten besteht.
Die Anzahl der Zeilen kann sich verändern, da ich diese Tabelle immer wieder aktualisieren muss.
Jetzt möchte ich immer zwei ganze Zeilen, die untereinander stehen blau einfärben, die Schrift auf fett ändern und einen Rahmen um die Zeile setzen.
Das Problem dabei ist, dass ich das nur für die Zeilen machen möchte, wo in der Spalte "C" das Wort "Ergebnis" steht. Dazu gehören immer zwei Zeilen. Hier steht in der Spalte "D" immer "Ist" und in der unteren "Vor". Das einfärben und fett habe ich bereits in einem Makro hinbekommen. Mit dem Rahmen habe ich aber noch ein Problem, da in der ersten Zeile soll der Rahmen oben gesetzt werden und in der zweiten Zeile "Vor" unten. Und hier komme ich nicht weiter!!
Könnte mir jemand hier helfen???
Hier mein makro:
stehe im Moment vor einem Problem, was ich nicht ganz lösen kann. Ich habe eine Tabelle, die aus mehr als 4000 Zeilen und 24 Spalten besteht.
Die Anzahl der Zeilen kann sich verändern, da ich diese Tabelle immer wieder aktualisieren muss.
Jetzt möchte ich immer zwei ganze Zeilen, die untereinander stehen blau einfärben, die Schrift auf fett ändern und einen Rahmen um die Zeile setzen.
Das Problem dabei ist, dass ich das nur für die Zeilen machen möchte, wo in der Spalte "C" das Wort "Ergebnis" steht. Dazu gehören immer zwei Zeilen. Hier steht in der Spalte "D" immer "Ist" und in der unteren "Vor". Das einfärben und fett habe ich bereits in einem Makro hinbekommen. Mit dem Rahmen habe ich aber noch ein Problem, da in der ersten Zeile soll der Rahmen oben gesetzt werden und in der zweiten Zeile "Vor" unten. Und hier komme ich nicht weiter!!
Könnte mir jemand hier helfen???
Hier mein makro:
Code:
Sub Einfaerben()
Dim rngZelle As Range
Dim strStart As String
Set rngZelle = Columns("c").Find("Ergebnis", lookat:=xlWhole)
If Not rngZelle Is Nothing Then
strStart = rngZelle.Address
Do
If rngZelle.Row > 1 Then Range(Cells(rngZelle.Row, 1), Cells(rngZelle.Row, 23)).Interior.Color = RGB(189, 215, 238)
If rngZelle.Row > 1 Then Range(Cells(rngZelle.Row, 1), Cells(rngZelle.Row, 23)).Font.Bold = True
If rngZelle.Row > 1 Then Range(Cells(rngZelle.Row, 1), Cells(rngZelle.Row, 23)).Borders(xlEdgeTop).Weight = xlMedium
Set rngZelle = Columns("c").FindNext(rngZelle)
Loop While Not rngZelle Is Nothing And rngZelle.Address <> strStart
End If
Set rngZelle = Nothing
End Sub
Schöne Grüße
Jo