das dachte ich mir, sowas wie Select Case wirste wohl kennen
zumindest aber leicht verstehen.
Geprüft wird von oben nach unten.
Trifft das erste zu, ja nein.
Bei ja wird der Case zweig des Zutreffenden ausgeführt, alle
anderen Zweige nicht.
Trifft nix von den Case-Zweigen zu wird Case Else ausgeführt.
Dann ist es vergleichbar mit der If-Else Funktion bei PHP bzw. Alternativ Switch-Case, bei der Stück für Stück abgearbeitet wird und wenn keine Bedingung erfüllt ist, else ausgegeben wird.
Und wenn jetzt die Eingabe in der überwachten Spalte „Müller“
ist wird der Zweig ür Müller ausgeführt.
Und die Codezeile mit dem Colorindex ist sehr zu verstehen mit
Vorwissen *find*
Da stimme ich Dir zu. Die Codezeile ist sehr simpel.
Da wo es zweifarbig werden soll, gehen natürlich auch mehr
Farben pro Wort, so ist das auch leicht zu verstehen.
Ein Wort wie Schmidt hat sieben Buchstaben.
Im Code steht, färbe in dem Wort beginnend beim ersten
Buchstaben 3 Buchstabenbreit blau. dann färbe in dem Wort
beginnend beim vierten Buchstaben 4 Buchstabenbreit rot.
Das habe ich auch so verstanden. Im Endeffekt wird immer mit den Längenangaben gearbeitet, so lässt sich ein Wort beliebig unterteilen. Sehr praktisch 
Es ist gut *find* daß Select case sehr genau unterscheidet
zwischen Müller und müLLER.
Würde es das nicht tun wäre es viel aufwendiger
(=Codeverlangsamung) mit anderem Code diese genaue Prüfung
nachzubauen.
Da stimme ich Dir prinzipiell zu, muss jedoch auch auf das Anwendungsgebiet individuell betrachtet werden. Wenn man ne reltiv kleine, überschaubare Datei hat dürfte die längere Codeausführung im minimalen Bereich liegen. Es gibt ja Anwendungsgebiete, bei denen die korrekte Schreibweise grundlegend egal ist. Muss mal schauen, ob ich den Code entsprechend umstelle… Wenn dann wohl eher als Lerngründen anstatt aus Notwendigkeit. Die korrekte Schreibweise ist eigentlich meist gegeben und deshalb macht die Prüfung eigentlich nix aus… Hat mich nur mal interessiert ob’s auch anders geht
Abhilfe gegen das genaue Prüfen bieten ucase und lcase.
So baust du das ein:
Select Case Ucase(Target.Value)
Case „MüLLER“
Target.Font.ColorIndex = 3
Geht natürlich mit LCase andersrum genauso.
Klasse. Danke
Tipp, wenn du im Editor bist, dann stelle den Curser mitten in
z.B. UCase und drücke F1, dann kriegst du Hilfe zu den
Anweisungen.
Und nochwas, um z.B. das Makro „farbe“ zu starten mußt du
nicht den Editor verlassen um in Excel mit Alt+F8 usw.
Stelle den Curser mitten in den Code von „farbe“ irgendwohin
und drücke entweder F5 dann läuft der Code durch oder F8, dann
wird der Code zeilenweise abgearbeitet , ideal zur
Fehlersuche.
Gracias!
Es kann nur einen geben wie in diesen irischen Schwertfilmen.
Also pro (Tabellenblatt-) Modul darf es nur eine Prozedur
geben die
Worksheet_Change heißt.
Also Codes vereinen.
Das dachte ich mir schon Die Frage ist jetzt für mich nur, wie ich die beiden Codes vereine, da ich noch nicht ganz verstehe was Code-und was Funktionsangabe ist.
Habe jetzt diese beiden Codes:
Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Column 7 Then Exit Sub
If Target.Count \> 7 Then Exit Sub
Worksheets("Tabelle3").Range(Target.Address) = Target.Value
Application.EnableEvents = False
Target.Value = Int(Target.Value \* 100) / 100
Application.EnableEvents = True
End Sub
und
Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Column 3 Then Exit Sub
If Target.Count \> 1 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Value
Case "Breitschneider"
Target.Font.ColorIndex = 0
Case "Häberle"
Target.Font.ColorIndex = 46
Case "Schneider"
Target.Font.ColorIndex = 41
Case "Kiesling"
Target.Font.ColorIndex = 44
Case "Wolf"
Target.Font.ColorIndex = 3
Case "Schmidt"
Target.Font.ColorIndex = 50
Case "Wolf"
Target.Font.ColorIndex = 13
Case "Frank"
Target.Characters(Start:=1, Length:=3).Font.ColorIndex = 3
Target.Characters(Start:=4, Length:=2).Font.ColorIndex = 0
Case "Schulz"
Target.Characters(Start:=1, Length:=3).Font.ColorIndex = 44
Target.Characters(Start:=4, Length:=6).Font.ColorIndex = 3
Case Else
Target.Font.ColorIndex = 0
End Select
Application.EnableEvents = True
End Sub
Ich habe jetzt mal versucht beide Codes entsprechend zu vereinen, nur der zweite Abschnitt mit den Farben wird nicht ausgeführt. Für Dich vermutlich eine Leichtigkeit den Fehler zu erkennen 
Für mich etwas unklar
Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Column 7 Then Exit Sub
If Target.Count \> 7 Then Exit Sub
Worksheets("Tabelle3").Range(Target.Address) = Target.Value
Application.EnableEvents = False
Target.Value = Int(Target.Value \* 100) / 100
Application.EnableEvents = True
If Target.Column 3 Then Exit Sub
If Target.Count \> 1 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Value
Case "Breitschneider"
Target.Font.ColorIndex = 0
Case "Häberle"
Target.Font.ColorIndex = 46
Case "Schneider"
Target.Font.ColorIndex = 41
Case "Kiesling"
Target.Font.ColorIndex = 44
Case "Wolf"
Target.Font.ColorIndex = 3
Case "Schmidt"
Target.Font.ColorIndex = 50
Case "Wolf"
Target.Font.ColorIndex = 13
Case "Frank"
Target.Characters(Start:=1, Length:=3).Font.ColorIndex = 3
Target.Characters(Start:=4, Length:=2).Font.ColorIndex = 0
Case "Schulz"
Target.Characters(Start:=1, Length:=3).Font.ColorIndex = 44
Target.Characters(Start:=4, Length:=6).Font.ColorIndex = 3
Case Else
Target.Font.ColorIndex = 0
End Select
Application.EnableEvents = True
End Sub
Damit du keine Umsetzungsprobleme bekommst, lade mal bitte
eine Beispielmappe hoch.
Paar beispieldaten in G C reichen, andere Spalten
interessieren wohl nicht.
Hochladen mit z.B. http://www.uploadagent.de/
Funktioniert leider nicht. Auf uploadagent bekomm ich ständig die Fehlermeldung, dass es eine ungültige bzw. nicht unterstützte Datei ist, obwohl es ne normale Excel-Datei ist (einmal mit Makros abgespeichert, einmal ohne) :-/ Gehts vllt. auch ohne oder per eMail ?
Das habe ich nur gesagt damit du auch zielsicher das richtige
Modul bekommst.
Diesen Weg benutze ich aber nie. Alt+F11, dann Doppelklick auf
das Modul wo ich hin will oder eines mit Einfügen-Modul
einfügen.
Gewöhn dir das bitte auch an wenn du Vba häufig nutzen willst.
Wird gemacht
Ich hab den Link nicht greifbar, aber auf der Webseite der
Fernuni Hagen gibt es irgendwo unter Broschüren oder so zwei
PDFs zum Runterladen über Vba in Excel.
Sag Bescheid wenn du die nicht findest, dann kram ich mal in
meinem Chaos 
Sehr gut. Danke. Dort werde ich umgehend mal nachschauen
Beste Grüße