Visual Basic :  Clever-Forum.eu - nur zum Testen The fastest message board... ever.
VB - der große Bruder von VBA mit dem man eigenständige Programme erstellen kann.
Der Codeaufbau hat starke Ähnlichkeiten mit dem VBA der Officeprogramme. 
Re: VBA Code nur für spezielle Spalte
Posted by: RaBe ()
Date: July 11, 2011 10:03AM

Hallo,

wenn Du hier keine weitere Antwort bekommst, dann könntest Du die Frage auch nochmal im Forum für Excel stellen.

Versuche mal dies, ist das so dargestellt nicht viel übersichtlicher? Ich habe es noch etwas erläutert und erweitert.
Das Wort MatchCase kennt mein Excel nicht. Entweder der Fall "" oder das ELSE ist eigentlich unnötig, aber der Vollständigkeit halber habe ich es eingefügt.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   If Target.Count = 1 And Target.Column = 1 Then           ' nur eine Zelle und nur in Spalte A
   Select Case UCase(Target.Value)
      Case "WAW"                                         'bei Wort "Waw" Hintergrundfarbe grün
         Target.Interior.ColorIndex = 4
      Case "STE"                                         'bei Wort "Ste" Hintergrundfarbe gelb
         Target.Interior.ColorIndex = 6
         MatchCase = False
      Case "LOLO"                                        'bei Wort "Lolo" Hintergrundfarbe rot
         Target.Interior.ColorIndex = 3
      Case "LUM"                                         'bei Wort "Lum" Hintergrundfarbe blau
         Target.Interior.ColorIndex = 5
      Case "ILL"                                         'bei Wort "Ill" Hintergrundfarbe rot
         Target.Interior.ColorIndex = 3
      Case ""                                            'wenn Zellinhalt gelöscht, löschen der Farbe
         Target.Interior.ColorIndex = xlNone
      Else                                               'ansonsten Farben löschen
         Target.Interior.ColorIndex = xlNone
   End Select
   End If
End Sub

<pre style='border:thin solid #000000; padding:12px 24px; margin-left:12px; color:#000000; overflow:auto; '><span style='color:#0000EE'>Private</span> <span style='color:#0000EE'>Sub</span> Worksheet_Change(<span style='color:#0000EE'>ByVal</span> Target <span style='color:#0000EE'>As</span> Excel.Range&#41;&#10; <span style='color:#0000EE'>If</span> Target.Count = <span style='color:#DDAA00'>1</span> <span style='color:#0000EE'>And</span> Target.Column = <span style='color:#DDAA00'>1</span> <span style='color:#0000EE'>Then</span> <span style='color:#008000'>' nur eine Zelle und nur in Spalte A </span>&#10; <span style='color:#0000EE'>Select</span> <span style='color:#0000EE'>Case</span> UCase(Target.Value&#41;&#10; <span style='color:#0000EE'>Case</span> <span style='color:#FF0000'>&#34;WAW&#34;</span> <span style='color:#008000'>'bei Wort &#34;Waw&#34; Hintergrundfarbe grün </span>&#10; Target.Interior.ColorIndex = <span style='color:#DDAA00'>4</span>&#10; <span style='color:#0000EE'>Case</span> <span style='color:#FF0000'>&#34;STE&#34;</span> <span style='color:#008000'>'bei Wort &#34;Ste&#34; Hintergrundfarbe gelb </span>&#10; Target.Interior.ColorIndex = <span style='color:#DDAA00'>6</span>&#10; MatchCase = <span style='color:#0000EE'>False</span>&#10; <span style='color:#0000EE'>Case</span> <span style='color:#FF0000'>&#34;LOLO&#34;</span> <span style='color:#008000'>'bei Wort &#34;Lolo&#34; Hintergrundfarbe rot </span>&#10; Target.Interior.ColorIndex = <span style='color:#DDAA00'>3</span>&#10; <span style='color:#0000EE'>Case</span> <span style='color:#FF0000'>&#34;LUM&#34;</span> <span style='color:#008000'>'bei Wort &#34;Lum&#34; Hintergrundfarbe blau </span>&#10; Target.Interior.ColorIndex = <span style='color:#DDAA00'>5</span>&#10; <span style='color:#0000EE'>Case</span> <span style='color:#FF0000'>&#34;ILL&#34;</span> <span style='color:#008000'>'bei Wort &#34;Ill&#34; Hintergrundfarbe rot </span>&#10; Target.Interior.ColorIndex = <span style='color:#DDAA00'>3</span>&#10; <span style='color:#0000EE'>Case</span> <span style='color:#FF0000'>&#34;&#34;</span> <span style='color:#008000'>'wenn Zellinhalt gelöscht, löschen der Farbe </span>&#10; Target.Interior.ColorIndex = xlNone&#10; <span style='color:#0000EE'>Else</span> <span style='color:#008000'>'ansonsten Farben löschen </span>&#10; Target.Interior.ColorIndex = xlNone&#10; <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>Select</span>&#10; <span style='color:#0000EE'>End</span> <span style='color:#0000EE'>If</span>&#10;<span style='color:#0000EE'>End</span> <span style='color:#0000EE'>Sub</span></pre>Code eingefügt mit VBA in HTML 2.3

Gru? Ralf

<img src=http://belschner.de/bilder/wappen+gruss+logo.jpg width="264" height="50" alt="Gru?">

Die deutsche Rechtschreibung ist Freeware, sprich, du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, d.h. du darfst sie nicht ver?ndern oder in ver?nderter Form ver?ffentlichen.

Navigate: Previous MessageNext Message
Options: ReplyQuote


Subject Views Written By Posted
VBA Code nur für spezielle Spalte 382 Nadine89 07/08/2011 03:29PM
Re: VBA Code nur für spezielle Spalte 666 RaBe 07/11/2011 10:03AM


Your Name: 
Your Email: 
Subject: 
Spam prevention:
Please, enter the code that you see below in the input field. This is for blocking bots that try to post this form automatically. If the code is hard to read, then just try to guess it right. If you enter the wrong code, a new image is created and you get another chance to enter it right.
CAPTCHA
This forum powered by Phorum.