Thema Datum  Von Nutzer Rating
Antwort
22.10.2009 23:48:34 Ali
NotSolved
26.10.2009 13:30:20 Holger
NotSolved
03.11.2009 00:08:04 Ali
NotSolved
Blau Aw:Aw:Aw:VBA und Excelliste
 07.11.2009 13:06:38 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
07.11.2009 13:06:38		 Views:
920		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:VBA und Excelliste
Hallo Ali,
da solltest aber auch selbst drauf kommen können:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fertig
If Not Intersect(Target, Range("e1:i4")) Is Nothing Then
Set r = Range(Cells(Target.Row, 1), Cells(Target.Row, 9))
If LCase(Target) = "x" Then
Select Case Target.Column
Case 5 '=E
r.Interior.ColorIndex = 4
Case 6 '=F
r.Interior.ColorIndex = 6
Case 7 '=G
'noch zu programmieren
Case Else
'noch zu programmieren
End Select

else 'einfügen
r.Interior.ColorIndex = xlnone 'einfügen

End If
End If
fertig:
End Sub

Gruß
Holger





Ali schrieb am 03.11.2009 00:08:04:

Hallo Holger, Super Danke für die Hilfe hat super geklappt nur noch eine Frage. Wenn ich ein X eintrage ändert sich die Farbe, wenn ich aber das x wieder lösche bleibt die Farbe so stehen. wie kriege ich es hin das die Farbe wieder gelöscht wird sobald das X Gelöscht wird.





Holger schrieb am 26.10.2009 13:30:20:

Hallo Ali,
versuche im Codeteil des Tabellenblattes, nicht in einem Modul:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fertig
If Not Intersect(Target, Range("e1:i4")) Is Nothing Then
Set r = Range(Cells(Target.Row, 1), Cells(Target.Row, 9))
If LCase(Target) = "x" Then
Select Case Target.Column
Case 5 '=E
r.Interior.ColorIndex = 4
Case 6 '=F
r.Interior.ColorIndex = 6
Case 7 '=G
'noch zu programmieren
Case Else
'noch zu programmieren
End Select
End If
End If
fertig:
End Sub

Gruß
Holger


Ali schrieb am 22.10.2009 23:48:34:

Hi hab mal eine frage, vielleicht kann mir jemand helfen, hoffe ich kann es richtig erklären.

Also habe Excel 97 im Büro, da man mit der Bedingten Formatierung nicht weit kommt, da es nur auf 3 begrenzt ist, will ich es mit VBA versuchen. Aber leichter gesagt als getan.

folgend sieht meine Liste aus als Beispiel.

Zeile
A b C D E F G H I
1
2
3
4

Nnn soll folgendes passieren // Wenn ich bei E1 ein x eintrage soll die ganze Zeile 1 gelb sein ( also von A1 - I1 ) // wenn ich bei F1 ein x eintrage soll die ganze Zeile 1 grün sein und so weiter, für jedes X von E - I eine ander Farbe und das ganze soll dann für alle Zeilen nach unten gelten also von 1 - 4.

Was mache ich und wie mache ich es? ? ?

Kann diese Liste gerna auch per Email schicken.

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
22.10.2009 23:48:34 Ali
NotSolved
26.10.2009 13:30:20 Holger
NotSolved
03.11.2009 00:08:04 Ali
NotSolved
Blau Aw:Aw:Aw:VBA und Excelliste
 07.11.2009 13:06:38 Holger
NotSolved