Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.11.2015 15:56:44 |
Walter5 |
|
|
hintergrundfarbe in der jeweils aktuellen zeile ändern |
20.11.2015 15:54:12 |
Gast515 |
|
|
|
20.11.2015 16:03:29 |
Gast515 |
|
|
Von:
Gast515 |
Datum:
20.11.2015 15:54:12 |
Views:
1195 |
Rating:
|
Antwort:
|
Thema:
hintergrundfarbe in der jeweils aktuellen zeile ändern |
Hallo,
probier's mal hiermit, dazu vielleicht noch einige Stichwörter (clickIt); nicht nur für höhere Excel-Versionen empfiehlt sich übrigens die Verwendung der Color -Eigenschaft:
Option Explicit
Selektieren
Variablendeklaration
ungar. Notation
Option Explicit
Public Sub ColourSwitch()
'**************************************************************************************
'** wechselt die Hintergrund-Farbe der aktuellen Zeile (aus best. Abschnittsbereich)
'** in der Zeile, in der sich der Cursor befindet
'** Farben koennen beliebig angepasst werden
'** dynamische Anpassung des Script V0.2
'**************************************************************************************
Dim lngAkt_Zeile As Long, lngAkt_Spalte As Long
Dim strStartSpalte As String, strEndeSpalte As String '// Abschnittsbereich
Dim strBereich As String
Dim lngRot As Long, lngTuerkis As Long, lngGelb As Long
Dim lngHellgruen As Long, lngRosa As Long, lngDefault As Long
'*******************************
'** Vom User anpassbar
'*******************************
strStartSpalte = "A"
strEndeSpalte = "Z"
lngRot = &HFF&
lngTuerkis = &HFFFF00
lngGelb = &HFFFF&
lngHellgruen = &HFF00&
lngRosa = &HFF00FF
lngDefault = xlPatternNone '// -4142
'********************************
lngAkt_Zeile = ActiveCell.Row
lngAkt_Spalte = ActiveCell.Column
strBereich = strStartSpalte & lngAkt_Zeile & ":" & strEndeSpalte & lngAkt_Zeile
With Range(strBereich).Interior
' MsgBox .Color & " " '// auskommentieren und man bekommt den Wert der aktuellen Hintergrundfarbe ausgegeben
Select Case .Color
Case Is = lngDefault: .Color = lngTuerkis '// wenn default >>> auf tuerkis
Case Is = lngTuerkis: .Color = lngRot '// wenn tuerkis >>> auf rot
Case Is = lngRot: .Color = lngGelb '// wenn rot >>> auf gelb
Case Is = lngGelb: .Color = lngHellgruen '// wenn gelb >>> auf hellgruen
Case Is = lngHellgruen: .Color = lngRosa '// wenn hellgruen >>> auf Rosa
Case Else: .Color = lngTuerkis '// sonst auf tuerkis
End Select
.Pattern = xlSolid ' Rahmenart
End With
End Sub
Gruß,
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
19.11.2015 15:56:44 |
Walter5 |
|
|
hintergrundfarbe in der jeweils aktuellen zeile ändern |
20.11.2015 15:54:12 |
Gast515 |
|
|
|
20.11.2015 16:03:29 |
Gast515 |
|
|