Thema Datum  Von Nutzer Rating
Antwort
02.11.2010 11:59:01 Marie
NotSolved
02.11.2010 15:14:56 Dominik
NotSolved
Rot Aw:Aw:Farbe zählen
 02.11.2010 18:07:43 Marie
NotSolved
02.11.2010 19:44:37 Dominik
NotSolved

Ansicht des Beitrags:
Von:
Marie		 Datum:
02.11.2010 18:07:43		 Views:
868		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Farbe zählen
Hi Dominik,

Vielen Dank, das hilft mir schon mal weiter. Allerdings versteh ich noch nicht, warum es Interior.Color=255 heisst.
Sollte es nicht Fond.color heissen? Die Zahl ist rot, hintergrund ist weiss. Wenn ich das probier, dann klappt das nicht. Und 255?

Vielen dank und Grüsse Marie

Dominik schrieb am 02.11.2010 15:14:56:

Hallo Marie,

Probiers mal so:

Sub Font_red()

Dim lcell As String
Dim rlcell As String
Dim i As Integer
Dim count As Integer
Dim farbe As Long


lcell = "$E$76"
rlcell = ""
i = 39


With Application.ActiveWorkbook.Worksheets("Tabelle1")

.Activate

Do Until rlcell = lcell

If .Cells(i, 5).Interior.Color = 255 Then

count = count + 1

End If

i = i + 1
rlcell = "$E$" & i

Loop

MsgBox "Die Farbe Rot wurde " & count & " mal gezählt"

End With

End Sub

Es gibt natürlich 1000.... verschiedene Lösungen aber die hier Funktioniert auch :)

Greeeezz

Dominik

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.11.2010 11:59:01 Marie
NotSolved
02.11.2010 15:14:56 Dominik
NotSolved
Rot Aw:Aw:Farbe zählen
 02.11.2010 18:07:43 Marie
NotSolved
02.11.2010 19:44:37 Dominik
NotSolved