Bereich mit Farbe füllen

Public Sub Bereich_Füllen(ByVal intRow, ByVal intColumn) Dim intI As Integer ' Schleifenzähler Dim wksOne As Worksheet ' aktuelles Arbeitsblatt Dim rngZeile As Range ' aktuelle Zeile Set wksOne = ThisWorkbook.Sheets(strWetter) ' Arbeitsblatt "Wetterlage" With wksOne intLastRow = .Cells(Rows.Count, 1).End(xlUp).Row If Cells(intRow - 1, 1).Interior.Color = RGB(217, 217, 217) Then .Range(wksOne.Cells(intRow, 1), _ wksOne.Cells(intRow, intLastColumn)).Interior.Color = xlNone intOffset = 1 Else intOffset = 0 End If For intI = intRow + intOffset To intLastRow Step 2 .Range(Cells(intI, 1), Cells(intRow, intLastColumn)) _ .Interior.Color = RGB(217, 217, 217) ' Zeile grau färben .Range(Cells(intI + 1, 1), Cells(intRow, intLastColumn)) _ .Interior.Color = RGB(255, 255, 255) ' Zeile weiß färben Next intI End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub Bereich_Füllen(ByVal intRow, ByVal intColumn) Dim intI As Integer ' Schleifenzähler Dim wksOne As Worksheet ' aktuelles Arbeitsblatt Dim rngZeile As Range ' aktuelle Zeile Set wksOne = ThisWorkbook.Sheets(strWetter) ' Arbeitsblatt "Wetterlage" With wksOne intLastRow = .Cells(Rows.Count, 1).End(xlUp).Row If .Cells(intRow - 1, 1).Interior.Color = RGB(217, 217, 217) Then .Range(.Cells(intRow, 1), _ .Cells(intRow, intLastColumn)).Interior.Color = xlNone intOffset = 1 Else intOffset = 0 End If For intI = intRow + intOffset To intLastRow Step 2 .Range(.Cells(intI, 1), .Cells(intRow, intLastColumn)) _ .Interior.Color = RGB(217, 217, 217) ' Zeile grau färben .Range(.Cells(intI + 1, 1), .Cells(intRow, intLastColumn)) _ .Interior.Color = RGB(255, 255, 255) ' Zeile weiß färben Next intI End With End Sub

Hi
was da so grundsätzlich falsch ist:
1. sollten Variablen für Zeilennummern immer als LONG deklariert werden.
Integer reicht nur bis c.a 32.000 und das kann für Zeilennummern zu wenig sein.
Außerdem verarbeitet der Rechner Integer und Long gleich schnell, dh die Verwendung von Integer hat keinen Vorteil (die paar gesparten Bytes sind bei Einzelvariablen irrelevant)
2. beim Range in der For-Schleife fehlt das Sheet vor den Cells innerhalb der Range.
Cells ohne Tabellenblattangabe beziehen sich idR auf das aktive Tabellenblatt und bei Range(Cells(), Cells()) muss man darauf achten, dass sich die beiden Cells auf das gleiche Tabellenblatt beziehen wie die Range, sonst gibt es einen Laufzeitfehler.
3. es ist generell ungünstig, jede 2. Zeile einzufärben. Excel speichert die Formatierungsinformation "Blockweise", und durch das einfärben jeder 2. Zeile entsteht die maximale Anzahl an Blöcken.
Besser wäre hier, die Bedingte Formatierung für alle Zellen einzusetzen mit der Regel: IstGerade(Zeile()), weil hier zwar auch jede 2. Zeile gefärbt wird, aber alle alle Zeilen die die gleiche Formatierung haben und damit einen Block bilden.
Oder man formatiert den ganzen Bereich als Tabelle (Einfügen-Tabellen-Tabelle), dann bekommt man auch eine Zeilenweise wechselnde Formatierung (welche dann auch beim Sortieren, Filtern, Löschen erhalten bleibt)
Gruß Daniel

Hallo Daniel,
vielen Dank für Deine grundsätzlichen Erklärungen. Long benötige ich hierbei zwar nicht, aber ich werde es in Zukunft berücksichtigen.
Die Idee mit der Bedingten Formatierung finde ich prinzipiell gut, aber es hapert bei mir an der Umsetzung. Wie muss ich was formatieren, damit Excel tatsächlich auch bei nachträglich eingefügten Zeilen diese Formatierung vornimmt ? Kann ich das ggfs. auch in VBA realisieren oder wäre der Aufwand dafür zu hoch ?
Ich habe das Ganze jetzt mal etwas zusammengefasst, aber es klappt immer noch nicht :

Public Sub Bereich_Färben(ByVal rngTarget As Range)
Dim intI As Integer        ' Schleifenzähler
Dim intOffset As Integer   ' Offset für Zeile
Dim wksOne As Worksheet    ' aktuelles Arbeitsblatt
Set wksOne = ThisWorkbook.Sheets(strWetter)  ' Arbeitsblatt "Wetterlage"
With wksOne
intLastRow = .Cells(Rows.Count, 1).End(xlUp).Row ' letzte beschriebene Zeile
If Cells(rngTarget.Row - 1, 1).Interior.Color = RGB(217, 217, 217) Then
rngTarget.Interior.Color = xlNone
intOffset = 1
Else
intOffset = 0
End If
For intI = rngTarget.Row + intOffset To intLastRow Step 2
rngTarget.Interior.Color = RGB(217, 217, 217)
rngTarget.Interior.Color = xlnone
Next intI
End With
End Sub

Er bemängelt immer noch die Anweisung

       rngTarget.Interior.Color = xlNone

mit dem Laufzeitfehler 1004.
Ich danke schon mal für die Antworten.
Gruß,
Ulf

Public Sub Bereich_Färben(ByVal rngTarget As Range) Dim intI As Integer ' Schleifenzähler Dim intOffset As Integer ' Offset für Zeile Dim wksOne As Worksheet ' aktuelles Arbeitsblatt Set wksOne = ThisWorkbook.Sheets(strWetter) ' Arbeitsblatt "Wetterlage" With wksOne intLastRow = .Cells(Rows.Count, 1).End(xlUp).Row ' letzte beschriebene Zeile If Cells(rngTarget.Row - 1, 1).Interior.Color = RGB(217, 217, 217) Then rngTarget.Interior.Color = xlNone intOffset = 1 Else intOffset = 0 End If For intI = rngTarget.Row + intOffset To intLastRow Step 2 rngTarget.Interior.Color = RGB(217, 217, 217) rngTarget.Interior.Color = xlnone Next intI End With End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

35 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bereich mit Farbe füllen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

35 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread