Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Alle Zellen markieren, außer . . .

Betrifft: Alle Zellen markieren, außer . . . von: Martin
Geschrieben am: 13.09.2004 11:14:12

Hallo liebe Forums-Besucher,

ich habe in einer meiner Excel-Dateien ein Tabellenblatt mit ca. 3500 Zeilen an Daten. Manche der Felder sind farblich hervorgehoben (Hellgrün = ColorIndex 35). Wie könnte ich es per Makro realisieren, dass alle Zellen markiert werden, außer den farblich hervorgehobenen?

Ist so etwas möglich?

Ich bedanke mich für Eure Hilfe.

Mit freundlichen Grüßen

Martin

  


Betrifft: AW: Alle Zellen markieren, außer . . . von: Harald Kapp
Geschrieben am: 13.09.2004 11:24:34

Hallo Martin,
wirklich "Alle"? Das sind eine ganze Menge...

Wenn Du den Bereich der zu prüfenden Zellen vorher per Maus selektierst, dann kannst Du damit vielleicht etwas anfangen:

Sub test()
Dim zelle As Range
For Each zelle In Selection
If zelle.Interior.ColorIndex <> 35 Then
zelle.Interior.ColorIndex = 4
End If
Next zelle
End Sub


Gruß Harald


  


Betrifft: Hab es!!! von: Martin
Geschrieben am: 13.09.2004 11:34:25

Moin Harald,

in der Tat. Alle sind wirklich ein bißchen viel. :-) Dann muss ich den Bereich halt ein wenig eingrenzen. Hab Dank für Deine Hilfe. Es funktioniert nun.

Einen schönen Tag noch und schöne Grüße,

Martin


  


Betrifft: AW: Alle Zellen markieren, außer . . . von: RALF
Geschrieben am: 13.09.2004 11:24:48

Moin,

eine langsame aber funktioierende Möglichkeit ist folgende:
den zu durchsuchenden Bereich markieren bzw. im code
For Each zelle In Selection
durch
For Each zelle In [a1:d200] 'je nach Bereich
ersetzen

Sub tmp_1()
For Each zelle In Selection
    If zelle.Interior.ColorIndex = 35 Then
        ber = ber & "," & zelle.Address
    End If
Next zelle
MsgBox ber
Range(Right(ber, Len(ber) - 1)).Select
End Sub


Gruß RALF


  


Betrifft: AW: Alle Zellen markieren, außer . . . von: RALF
Geschrieben am: 13.09.2004 11:26:23

ups....habe die if-Schleife falsch..

richtig: If zelle.Interior.ColorIndex <> 35 Then

Gruß RALF


  


Betrifft: Funzt von: Martin
Geschrieben am: 13.09.2004 11:32:41

Hallo Ralf,

hab vielen Dank für Deine Hilfe. Funktioniert. Dauert zwar ein wenig, aber dann reduziere ich halt den Bereich ein wenig. ;-)

Einen schönen Tag noch und schöne Grüße,

Martin


 

Beiträge aus den Excel-Beispielen zum Thema "Alle Zellen markieren, außer . . . "