Hallo Walter
schau mal paar Beiträge weiter unten
https://www.herber.de/forum/messages/113178.html
und ff
Gruß Hajo
Hallo Hajo,
erst mal herzlichen dank.
Habe leider nur Fehlermeldungen!
Meine MSGBox funktioniert, bei 2 zellen mit Rot zeigt sie mir die meldung in an.
Gibt es hier die value eigenschaft ??
gruss walter
Hallo Walter
irgendwie habe ich was verpast. Ging es nicht um Bedingte Foramtierung???
mit MsgBox weiß ich jetzt nichts anzufangen. Ich lese immer nur den letzten Beitrag (ich bin in meheren Foren und da verliert man leicht den Überblick), wenn was neues dazu kommt bitte den kompletten Sachverhalt darstellen.
Gruß Hajo
Hallo Hajo,
entschuldigung hier noch mal mein makro:
Sub A_Rote_ZeilenZählen()
zz = 1
Do While Cells(zz, 1) <> ""
zz = zz + 1
If Cells(zz, 1).Font.ColorIndex = 3 Then
MsgBox ("Schriftfarbe in Rot ist da !!!")
MsgBox zz 'zeigt 12 und 15 jeweils richtig an,
'soll auch die summe angezeigt werden und in
'zelle c10 geschrieben werden.
End If
Loop ' Wendepunkt für Schleife
Range("A3").Select
End Sub
gruss walter
MsgBox zz
End If
Loop ' Wendepunkt für Schleife
Range("A3").Select
End Sub
Hallo Walter
ich habe nu noch mal alles gelesen, wo ist das Problem ode was möchtest Du die Zeilen werden doch angezeigt. Ich dachte Du willst die Summe bilden.
Gruß Hajo
Hallo Hajo,
ich möchte das in c10 die summe der gezählten zellen mit roter schrift,
stehen.
gruss walter
habe es zu spät gelesen
Hallo Hajo,
ich möchte das in c10 die summe der gezählten zellen mit roter schrift,
stehen.
gruss walter
siehe letzter Beitrag
Hallo Hajo,
herzlichen dank für deine hilfe.
Das was du gemachst hast ist natürlich i.o.
Da ich mich FALSCH ausgedrückt habe, hier mein wunsch:
ich brauch die Anzahl also wie oft rot vorkommt !!!
Ich bitte noch einmal um hilfe danke im voraus
gruss walter
Einsicht ist der erste Weg zur Besserung
Einsicht ist der erste Weg zur Besserung
Hallo Hajo,
bin super glücklich.
Danke........................
Gruss Walter
P.S. wenn du mal was von mercedes brauchst oder info
sprich mich an !!!
Sub A_Rote_ZeilenZählen()
zz = 1
Do While Cells(zz, 1) <> ""
zz = zz + 1
If Cells(zz, 1).Font.ColorIndex = 3 Then
MsgBox ("Schriftfarbe in Rot ist da !!!")
'hier müßte doch die das zählen rein ???
End If
Loop
Range("A3").Select
End Sub
Herzlichen dank im voraus
Gruss Walter