Thema Datum  Von Nutzer Rating
Antwort
Rot Bedingte Farbänderung mit Code
 06.11.2009 01:12:43 Ali
NotSolved
07.11.2009 13:13:34 Holger
NotSolved
11.11.2009 07:46:36 Sheik
NotSolved

Ansicht des Beitrags:
Von:
Ali		 Datum:
06.11.2009 01:12:43		 Views:
1586		 Rating:
     
Antwort:
  Ja
Thema:
Bedingte Farbänderung mit Code
Hi ich muss hier nochmal ne Formel anzeigen die ich hier durch Hilfe erstellet habe, allerdings fehlt mir trotzdem noch was kleines. Der code sieht folgend aus.
__________________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fertig
If Not Intersect(Target, Range("g2:N1000")) Is Nothing Then
Set r = Range(Cells(Target.Row, 1), Cells(Target.Row, 14))
If LCase(Target) = "x" Then
Select Case Target.Column
Case 7 '=G
r.Interior.ColorIndex = 6
Case 8 '=H
r.Interior.ColorIndex = 38
Case 9 '=I
r.Interior.ColorIndex = 12
Case 10 '=J
r.Interior.ColorIndex = 28
Case 11 '=K
r.Interior.ColorIndex = 40
Case 12 '=L
r.Interior.ColorIndex = 3
Case 13 '=M
r.Interior.ColorIndex = 15
Case 14 '=N
r.Interior.ColorIndex = 32
Case Else
'noch zu programmieren
End Select
End If
End If
fertig:
End Sub
__________________________________________________________________
Also wenn ich das x Bei Case 7 EIngebe wird alles von 1 - 14 Gelb. Allerdings soll alles wieder rückgängig gemacht werden wenn ich das x wieder lösche. das heisst bei X gelb kein X wieder neutral weiss und das für alle spalten.

Wie mach ich das? was muss ich noch da einfügen?

Ihre Antwort
  • 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: Name: Email:



  • 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
Rot Bedingte Farbänderung mit Code
 06.11.2009 01:12:43 Ali
NotSolved
07.11.2009 13:13:34 Holger
NotSolved
11.11.2009 07:46:36 Sheik
NotSolved