excel: makro für aktuelle zellfarbe

hans jupp · 05.07.2005

hallo,

ich bin auf der suche nach einem makro, daß mir die farbnummer der ausgewählten zelle anzeigt.

das könnte eventl. so aussehen (funktioniert aber natürlich nicht):

Sub aktuelle_farbe()

Dim v As Integer

zelle.Interior.ColorIndex = v
MsgBox v

End Sub

vielen dank schon mal für eure hilfe

kath.hundefriseursalon

Matjes · 05.07.2005

Code:

Sub aktuelle_farbe()

   ->wenn mehrere Zellen selektiert sind
   ->Selektion auf linke obere Ecke einschränken
    If Selection.Count &lt;> 1 Then
      Cells(Selection.Row, Selection.Column).Select
    End If

    MsgBox Selection.Interior.ColorIndex
    
End Sub

Gruß Matjes

hans jupp · 05.07.2005

hallo matjes,

vielen dank für die schnelle hilfe - sieht ja fast ähnlich aus - aber es funktioniert ;D

noch eine andere frage: ich wollte das ganze optisch noch ein wenig aufbessern

'MsgBox Selection.Interior.ColorIndex, , Farbnummer

Eigentlich sollte er mir->Farbnummer' als title anzeigen. im titelbereich steht aber jetzt gar nichts mehr ...

wie kann ich vor die farbnummer in der msgbox noch ein->nr.:' einfügen?

gruß,
kath.hundefriseursalon

Matjes · 05.07.2005

Code:

Sub aktuelle_farbe()

 ->wenn mehrere Zellen selektiert sind
 ->Selektion auf linke obere Ecke einschränken
  If Selection.Count &lt;> 1 Then
   Cells(Selection.Row, Selection.Column).Select
  End If

  MsgBox Farbnummer: &amp; Selection.Interior.ColorIndex
  
End Sub

Gruß Matjes

hans jupp · 06.07.2005

hallo matjes,

da hätte ich auch selber drauf kommen können :

vielen dank nochmal für deine hilfe !!!

gruß,
kath.hundefriseursalon

excel: makro für aktuelle zellfarbe

hans jupp

Matjes

hans jupp

Matjes

hans jupp

excel: makro für aktuelle zellfarbe

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums