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

Ansicht des Beitrags:
Von:
Sheik		 Datum:
11.11.2009 07:46:36		 Views:
766		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Bedingte Farbänderung mit Code
If LCase(Target) <> "x" Then
oder
If LCase(Target) = "" Then


Ali schrieb am 06.11.2009 01:12:43:

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