Office Schaltfläche duplizieren möglich?

Computer: Software & Programmierung Office Software
1

Tach zusammen!

gibt es eine Möglichkeit die Füllfarbe Schaltfläche in Word/Excel zu duplizieren? Für mehrer Farben also, damit man nicht immer umschalten muss.

Danke für eure Hilfe!

2

gibt es eine Möglichkeit die Füllfarbe Schaltfläche in
Word/Excel zu duplizieren?

Hallo Nomista,

nein.

Du kannst dir aber eine eigene Symbolleiste und Symbole basteln.

Nachfolgend ein Beispiel für Excel (bis Version 2003, 2007 tickt anders).
Alt+F11, Einfügen—Modul, den Code reinkopieren, VB-Editor schließen.
In Excel dann Alt+F8 und „KnopfErzeugen“ ausführen lassen…
Ggfs. dann „Knopfloeschen“.

Im Beispiel wurde Farbnummer 34 benutzt, mit Makro „Farbnummern“ erhälst du ein Blatt mit den Farben pro Nummer.

Option Explicit
'
Sub KnopfErzeugen()
Dim Knopf
With Application.CommandBars("Worksheet Menu Bar")
 Set Knopf = .Controls.Add(msoControlButton)
 With Knopf
 .Caption = "Farbe34"
 .OnAction = "Farbe34"
 .FaceId = 568
 End With
End With
End Sub
'
Sub Farbe34()
On Error Resume Next
Selection.Interior.ColorIndex = 34
End Sub
'
Sub Knopflöschen()
On Error Resume Next
With Application.CommandBars("Worksheet Menu Bar")
 .Controls("Farbe34").Delete
End With
End Sub
'
Sub Farbnummern()
Dim N As Integer
Worksheets.Add after:=Worksheets(Worksheets.Count)
For N = 1 To 56
 Cells(N + 28 \* (N \> 28), 1 - 3 \* (N \> 28)) = N
 Cells(N + 28 \* (N \> 28), 2 - 3 \* (N \> 28)).Interior.ColorIndex = N
Next N
End Sub

Gruß
Reinhard

3

ui vielen Dank für diese ausführliche und interessante Lösung :wink: !!

Die Farbpalette hab ich schonmal.

Wie baue ich jetzt zwei Buttons, einen für rot einen für grün(=Farbe 3 und 4) der das JEWEILS MARKIERTE füllen soll?
Wenn ich auf „knopferzeugen“ gehe passiert leider nichts.

mfG Nomista

4

Hallo Nomista,

Wenn ich auf „knopferzeugen“ gehe passiert leider nichts.

du irrst, oben neben dem Fragezeichen ist ein Symbol entstanden. Oder hast du Excel 2007?

Wie baue ich jetzt zwei Buttons, einen für rot einen für
grün(=Farbe 3 und 4) der das JEWEILS MARKIERTE füllen soll?

Sub KnoepfeErzeugen()
Dim Knopf
With Application.CommandBars("Worksheet Menu Bar")

 Set Knopf = .Controls.Add(msoControlButton)
 With Knopf
 .Caption = "Farbe3"
 .OnAction = "Farbe3"
 .FaceId = 568
 End With

 Set Knopf = .Controls.Add(msoControlButton)
 With Knopf
 .Caption = "Farbe4"
 .OnAction = "Farbe4"
 .FaceId = 345
 End With

End With
End Sub

Gruß
Reinhard

5

Danke nochmals Reinhard. Du bist ja echt fit auf dem Gebiet :wink: