Office: Zellen per Mausklick mit unterschiedlichen Farben füllen

Hallo mal wieder,
ich soll fürs Büro einen Monatskalender erstellen. Dort sollen Urlaub, Krankheit, Fortbildung, Überstunden frei u.ä. eingetragen werden.

Mein Chef stellt sich das so vor, dass in Zeile 1 die möglichen Belegungen gelistet werden (Urlaub=rot, Fortbildung=grün usw.)

Besteht nun die Möglichkeit, dass man im Kalender einfach die betreffenden Zellen zu markieren und dann einfach per Klick in Zeile 1 mit der betreffenden Farbe zu markieren???

Hab echt keinen Plan.... :-(( Für Hilfe wär ich dankbar!!

Gruß
Maudell

 

Hallo!

Du kannst dir aus den Steuerelementen mehrere Buttons aufziehen und diesen die entsprechenden Farbcodes zuweisen, z.B.:

Code:

Private Sub CommandButton1_Click()
Selection.Interior.ColorIndex = 3   'rot
End Sub

Eine Übersicht über die ColorIndex findest du hier.

 

Also, ich hab mir jetzt Befehlsschaltflächen geholt und dann den Code eingegeben. Nehm mal an, danach Arbeitsblatt schützen und nur die zu füllenden Bereich freigeben.
Das ganze hat aber nicht funktioniert. Wenn ich meine Zellen markiere und dann auf den passenden Button clicke, passiert gar nichts.

Was mach ich denn da verkehrt??

 

Hallo!

Dann vielleicht so?

Code:

Private Sub CommandButton1_Click()
Dim Erlaubt As Range
Set Erlaubt = Range("A1:A10,C11:D20")                   'hier den erlaubten Bereich anpassen
If Not Intersect(Selection, Erlaubt) Is Nothing Then
    ActiveSheet.Unprotect                               'oder ActiveSheet.Unprotect Password:="test"
    Intersect(Selection, Erlaubt).Interior.ColorIndex = 3
    ActiveSheet.Protect                                 'oder ActiveSheet.Protect Password:="test"
End If
End Sub

 

Danke für die schnelle Antwort!!

Hab jetzt mal unter diesem Link schnell ein Beispiel hochgeladen:

http://www.file-upload.net/download-1747309/Beispiel.xls.html

Und diese farbigen Markierungen bei den Namen hätt ich gern automatisch, wenn ich die betreffenden Felder mit der Maus markiere und dann auf die passende Zelle in Zeile 1 klicke........ und das geht einfach nicht. Hab allerdings mit Steuerelementen null Ahnung! :-(

Gruß
Maudell

 

Hallo Maudell,

wenn Du folgendes Makro in das Modul für das Arbeitsblatt 'Tabelle1' kopierst, bekommst Du mittels Ereignissteuerung, die nur für dieses Arbeitsblatt gilt, eine möglich Lösung - eine Art Farbpalette.

1a) Wenn Du in die 1.Zeile klickst, merkt sich quasi die Maus die Farbe dieser Zelle.
1b) Klickst Du daraufhin in eine Zelle unterhalb Zeile 4 (bzw. rechts von Spalte A), so wird diese Zelle (bzw. diese Zellen) mit dieser Farbe eingefäbt.
1c) Zur Farbumschaltung in die entsprechende Zelle der Zeile 1 klicken.
2) Diese Farbkleckserei kannst Du ausschalten, indem Du in Zelle A1 klickst.
3) Sobald Du in Zelle B1, C1, ... klickst, geht die Kleckserei wieder los.

Code:

Dim Farbe As Long
Dim EinAus As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim Zl&, Sp&
  Zl& = Target.Row: Sp& = Target.Column
  If Zl& = 1 Then
    If Sp& = 1 Then
      EinAus = False
    Else
      EinAus = True
      Farbe = Target.Interior.Color
    End If
  ElseIf Zl& > 4 And Sp& > 1 Then
    If EinAus Then Target.Interior.Color = Farbe
  Else
  End If
End Sub

 

Vielen Dank!!!

So funktioniert das perfekt - damit dürften alle zurecht kommen.

:-)))))