Zelle mit Farbpalette färben ohne select?
21.08.2017 16:58:10
ralph
ich habe aktuell eine Funktion, die mir eine Zelle nach Farbwunsch aus der Farbpalette einfärbt. _
Hierfür muss ich aber das Arbeitsplatt aktivieren und die Zelle selektieren, das würde ich _ gerne umgehen, weis aber nicht wie.
Public Sub Fahrzeugfarbe_Click()
'Beim Auswählen der Fahrzeugfarbe
Dim rot3 As Long, grün3 As Long, blau3 As Long, wert As Long
Dim X As Long
Application.ScreenUpdating = False
'Sheets("Daten").Visible = True
Worksheets(Projekt_Auswahl & " Fahrzeuge").Activate 'Blatt Fahrzeug wird aktiviert
X = Worksheets(Projekt_Auswahl & " Fahrzeuge").Cells(3, 256).End(xlToLeft).Column _
_
_
_
'Letzte Spalte ermitteln
Worksheets(Projekt_Auswahl & " Fahrzeuge").Cells(2, X + 1).Select 'Neu anzulegendes _
Fahrzeug wird Farbe zugewiesen
Application.Dialogs(xlDialogPatterns).Show
'Farbe an Userform-Auswahlbutton zurück geben
wert = ActiveCell.Interior.Color
Fahrzeugfarbe.BackColor = wert
Application.ScreenUpdating = True
'Sheets("Daten").Visible = False
End Sub
Kann mir jemand helfen?
Gruß
Ralph