Office: Hintergrundfarbe Zählen per VBA

moseswurst · 19. Februar 2017

Hallo VBA Freunde,

wollte eine bestimmte Hintergrundfarbe (46) in verschieden benannten Arbeitsblättern nur in einer bestimmten Spalte, hier in meinem Beispiel Test Datei Spalte B per VBA zählen lassen. Habe auch ein schönen Code das nicht funktioniert.

Kann mir einer sagen wo der Fehler liegt.

Code:

Sub Hintergrundfarbezaehlen()
Dim i As Integer
Dim lngRow As Long
Dim anzahl As Long
anzahl = 0
For i = 2 To 3
With Worksheets(i)
For lngRow = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If .Cells(lngRow, 2).Interior.ColorIndex = 46 Then
anzahl = anzahl + 1
End If
Next
Sheets("Auswertung").Cells(1, 1).Value = anzahl
End With
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß

MW

:)

Oge · 21. Februar 2017

hallo moses,

1) In der With-Klammer muss ein Punkt vor Cells.
2) Für die Suche der letzten Zeile müssen die Zellen Inhalte haben.

zusätzlich:
Wenn du die Einrückungen vernünftig machst ist das Programm leichter zu lesen. zB "FOR i =" und "Next i" auf eine Ebene

moseswurst · 21. Februar 2017

Hallo Oge,

die Zellen wie im Beispiel Datei haben keine Werte. Habe jetzt mit Range ein festen Bereich angegeben. Trotzdem funktioniert es nicht *frown.gif* Code:

Sub Hintergrundfarbezaehlen()
Dim i As Integer
Dim anzahl As Long
Dim Zelle As Range
anzahl = 0
For i = 2 To 3
With Worksheets(i)
For Each Zelle In .Range("B1:B50")
If Zelle.Interior.ColorIndex = 46 Then
anzahl = anzahl + 1
End If
Next
Sheets("Auswertung").Cells(1, 1).Value = anzahl
End With
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oge · 21. Februar 2017

Hallo moses,

hast du auch den Punkt 1) in meiner letzten Notiz gelesen?

Du sprichst die Zellen in den Worksheets nicht mehr mit Cells an, daher verallgemeinere ich meine Ausssage.

Die Methoden oder Parameter, die auf das Objekt der With-Anweisung angewand werden (in jetzigen Fall "Range") müssen mit einem "." beginnen.

In deinem Beispiel untersucht das Programm die Farben des aktiven Arbeitsblattes.

moseswurst · 21. Februar 2017

Hallo Oge,

der Code funktioniert in meinem Test Datei mit dem zwei Arbeitsblättern Gx1 und Gx2 sehr gut. Der Anzahl der Hintergrundfarben wird auch wie gewollt im Arbeitsblatt "Auswertung" in Zelle A1 ausgegeben.
Code:

Sub Hintergrundfarbezaehlen()
Dim i As Integer
Dim anzahl As Long
Dim Zelle As Range
anzahl = 0
For i = 2 To 3
With Worksheets(i)
For Each Zelle In .Range("B1:B50")
If Zelle.Interior.ColorIndex = 46 Then
anzahl = anzahl + 1
End If
Next
Worksheets("Auswertung").Range("A1").Value = anzahl
End With
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Funktioniert alles wunderbar. Danke für deine Hilfe.

Gruß

MW

Office: Hintergrundfarbe Zählen per VBA

Hintergrundfarbe Zählen per VBA

Hintergrundfarbe Zählen per VBA

Hintergrundfarbe Zählen per VBA

Hintergrundfarbe Zählen per VBA - Similar Threads - Hintergrundfarbe Zählen VBA

Hintergrundfarbe kann nicht entfernt werden

Beim horizontalen Verschieben von Tabellenspalten gehen Hintergrundfarben verloren.

Outlook Kalender - Termin Hintergrund

Hintergrundfarbe ActiveX Textfeld

Felder markieren, wenn Eintrag nicht gleich ist

Schriftart/ Hintergrundfarbe Menüband

Makro für Hintergrundfarben