Wer kann mir helfen??

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Wer kann mir helfen?? von: Markus
Geschrieben am: 07.04.2005 16:33:58

Hallo miteinander,

habe hier eine Prima Routine bekommen, welche mir einen bestimmten Bereich nach Zellen welche eine Rote Schrift haben durchsucht.
Dies funktioniert momentan so das der ganze Bereich durchsucht wird und die gesamte Menge der Zellen welche eine rote Schrift haben angezeigt werden.
Ich bräuchte es allerdings etwas anderst.
Folgendes: Es werden z.b. die Zeilen 160 bis 180 auf der Tabelle1 durchsucht.

Jetzt soll Zeilenweise in der Tabelle2 angegeben werden wie oft eine Zelle die Rote Schrift hatte. z.b. in der Zeile 160 der Tabelle1 waren 3 Zellen mit roter Schrift es soll also in der Tabelle2 in die Zelle A160 ein 3 geschrieben werden. In der Zeile 164 der Tabelle1 waren 5 mit roter Schrift jetzt soll in der Tabelle2 in die Zelle A164 eine 5 geschrieben werden. Ich möchte in der extra Tabelle2 in Spalte A die Anzahl der Zellen welche eine Rote Schrift haben angezeigt bekommen. Ich hoffe man versteht was ich meine und Ihr habt eine Idee. Ich bin langsam echt am Ende mit meinem latein.

Hier die Routine funktion wie beschrieben.


Sub rote_finden()
Dim Zelle As Range
Dim rngSuche As Range
Dim Doppelt As Boolean
Dim colGefunden As New Collection
Dim i As Long, intZähler As Long
Set rngSuche = ActiveSheet.Range("E:K")
For Each Zelle In rngSuche
    If Zelle.Font.ColorIndex = 3 Then
        Doppelt = False
        For i = 1 To colGefunden.Count
            If Zelle.Value = colGefunden(i) Then
                Doppelt = True
            End If
        Next i
        If Doppelt = False Then
            colGefunden.Add Zelle.Value
        End If
    End If
Next Zelle
MsgBox "Anzahl roter Texte: " & colGefunden.Count
End 

Sub 
Danke euch für die Mühe
Gruß Markus
Bild


Betrifft: Antwort ist im alten Thread von: Ceyser Soze
Geschrieben am: 07.04.2005 17:02:57

du musst im code dort E100:K100 durch E160:K180 ersetzen...


 Bild

Beiträge aus den Excel-Beispielen zum Thema "variablen Bereich markiren und Rahmen setzen"