Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Schriftfarbe vorgeben per Vba
14.10.2004 11:41:10
Kopfeck
Hallo
Wie kann ich per VBA für den bereich D13:AH43
die Farbe für bestimmte Buchstaben vorgeben
A + Y = grün , U = blau K = rot, alles andere schwarz.
Am bessten dunkle Farben.
Bedingte Formatierung ist für den bereich schon ausgeschöpft(zellen Farbe)
und wenn möglich sollte alles automatisch Groß geschrieben werden
hab da schon einiges versucht, habs aber nur für das ganze
blatt hinbekommen für einem bestimmten bereich hatt es nicht geklappt
nur wenn ich die scrollarea weg gelassen habe
Dank im voraus
Kopfeck

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schriftfarbe vorgeben per Vba
AndréL.
Hallo Kopfeck,
die Farben mußt Du noch anpassen,
deswegen habe ich das Makro "farben" zugefügt.
Gruß
AndréL.
Sub einfaerben()
   Dim zelle As Range
    For Each zelle In Range ("E9:E20") ' -----Deinen Bereich anpassen!!!!!
            Select Case zelle.Value
                Case Is  =  A, Y
                    farbe  =  3
                Case Is  = U
                    farbe  =  4
                Case Is  =  K
                    farbe  =  5
                 Case Else
                     farbe  =  1
            End Select
        zelle.Interior.ColorIndex  =  farbe
    Next
End Sub
Sub farben()
    Dim x As Byte
    For x  =  0 To 56
        Cells(x  +  1,  1) =  x
        Cells(x  +  1,  2).Interior.ColorIndex  =  x
    Next
End Sub
Anzeige
AW: Schriftfarbe vorgeben per Vba
14.10.2004 12:27:15
Kopfeck
Hallo André
Danke dir, hab gerade ein Problem mit dem Schichtverlauf festgestellt :-((
wenn der Blattschutz Aktiv ist bekomme ich beim ändern des Schichtverlaufs
immer die Meldung das die Zellen gesperrt sind.
Ich hab aber die zelle C12(Combobox) extra freigegen der Rest wahr ja schon frei
sollte ja uhrsprünglich per Hand geändert werden können.
hab dann auch noch die Tabelle wo die Daten geholt werden freigegeben.
geht aber leider trotzdem nicht
Kopfeck
AW: Schriftfarbe vorgeben per Vba
Bert
Schütze das Blatt mit VBA und der Option UserInterfaceOnly, dann können Makros
trotz Schutz ausgeführt werden.
Bert
Anzeige
AW: Schriftfarbe vorgeben per Vba
14.10.2004 14:00:40
Kopfeck
Hallo
Danke , habs schon gelöst
Ich hab zwar die Zelle C12 über Benutzer dürfen... freigegeben
aber unter Zellen formatieren-Schutz war ein haken bei gesperrt.
Das war der Haken an der Sache :-))
so kann mich jetzt den Schriftfarben wittmen.
Bye Kopfeck
AW: Schriftfarbe vorgeben per Vba
17.10.2004 11:28:29
Kopfeck
Hallo
so ich bin Heute erst dazu gekommen das mit der Schriftfarbe umzusetzen,
es hatte soweit auch geklappt.Aber nach dem Einbau des Codes ist die ganze
Mappe irgendwie extrem langsam geworden.
Bei der Eingabe der Kürzel wird dies nur langsam ausgeführt, teilweise mit 2-3 sec.
Verzögerung .In der Musterdatei ist das nicht so, habe das gleiche Problem
gehabt als ich den Code für "Automatische" Großschrift eingesetzt habe.
Darum werde ich auch darauf verzichten, da ich es wie schon erwähnt nicht so wichtig finde.
Der U-Planer ist jetzt soweit Fertig, jetzt muss ich ihn erstmal „vorführen“ und
Durchsetzen das er auch verwendet wird .
Erst wenn das abgeklärt ist, werde ich event noch Veränderungen vornehmen.
Und zwar sollte das Passwort für den Aufruf eines Blattes geändert werden können,
ohne das man in den VBA Code muss.
Altes Passwort - Neues Passwort – Neues wiederholen.
Und dann möchte ich denn Planer noch „schlanker“ machen, es gibt von jedem Mitarbeiter ein Persönliches Jahres Übersichtsblatt, da möchte ich nur noch eines als „Vorlage“
Verwenden und mit dem Button zum durchblättern sollen die Daten aus der Gesamtübersicht
Für den jeweiligen Mitarbeiter eingetragen werden.
Ich könnte damit 15 Blätter sparen.
Bye bis bald Kopfeck
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige