in alle gelben Zellen "U" eintragen

Bild

Betrifft: in alle gelben Zellen "U" eintragen
von: peter
Geschrieben am: 08.12.2003 12:45:17

Hallo Excels,
in einer Anwesenheitsliste lasse ich über bedingte Formatierung alle Urlaubstage Gelb einfärben.
Wie erreiche ich es das in allen Gelb eingefärbten zellen ein "U" eingetragen wird.
Hier mein Versuch:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 ActiveSheet.Unprotect ("tt")
    
    If Target.Interior.ColorIndex = 6 Then
       Target.Value = "U"
    End If
  ActiveSheet.Protect ("tt")
End Sub

klappt aber nicht.
Danke schon mal für jede Hilfe
Gruss
Peter
Bild


Betrifft: AW: in alle gelben Zellen "U" eintragen
von: Jörg Gradert
Geschrieben am: 08.12.2003 13:05:13

Hallo Peter,
probier mal so


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Zelle As Range
    For Each Zelle In Range("A1:Z100")
    If Zelle.Interior.ColorIndex = 6 Then
       Zelle.Value = "U"
    End If
Next Zelle
 
End Sub


den Range Bereich musst Du an deine Bedürfnisse anpassen.

Deine Lösung schreibt ein U, wenn in eine gelbe Zlle geklickt wird. Target bedeutet Ziel.

Gruss Jörg


Bild


Betrifft: AW: in alle gelben Zellen "U" eintragen
von: peter
Geschrieben am: 08.12.2003 13:17:23

Hi Jörg,
deine Lösung klappt gut.
Danke Gruss
Peter


Bild


Betrifft: AW: in alle gelben Zellen "U" eintragen
von: PeterW
Geschrieben am: 08.12.2003 13:07:27

Hallo Peter,

du kannst bedingte Formatierungen nicht direkt auslesen. Es bleibt dir nur der Weg, die Prüfung über die Bedingung vorzunehmen.

Gruß
Peter


Bild

Beiträge aus den Excel-Beispielen zum Thema " in alle gelben Zellen "U" eintragen"