Buchstaben farbig formatieren mit makro

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Hajo, es sind große Buchstaben. Das Makro läuft so lange bis eine leere Zelle kommt,
dan erscheint die Meldung (Laufzeitenfehler 1004 "Anwendungs- oder objektdefinierter Fehler"). Wenn ich aber Colorindex = "Xlnone in 1" ersetze, funzt das Makro in einem neuen Tabellenblatt. In der Anwesenheitsliste bleibt das Makro in der markierten Zeile hängen. Schau dir mal das ganze an, vielleicht ist ja irgendwo ein Fehler, weil das ganze nicht funzt.
Option Explicit


Private Sub Worksheet_Calculate()
'   erstellt von Hajo.Ziplies@web.de 19.07.03
' http://home.media-n.de/ziplies/
'   diese Variante kostet natürlich Rechenleistung
'   da bei jeder Eingabe der Bereich Formatiert wird
'   HINTERGRUND
'   für Schrift RaZelle.Font.ColorIndex
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("B4:AF44")
'    ActiveSheet.Unprotect
For Each RaZelle In RaBereich
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
Select Case RaZelle.Value
Case "U"
"Laufzeitfehler1004-RaZelle.Font.ColorIndex = 3-in der Anwesenheitsliste"
Case "F"
RaZelle.Font.ColorIndex = 3
Case "S"
RaZelle.Font.ColorIndex = 3
Case "K"
RaZelle.Font.ColorIndex = 3
Case Else
"Laufzeitfehler1004-RaZelle.Font.ColorIndex = xlNone-in der neuen Tabelle"
End Select
End If
Next RaZelle
'    ActiveSheet.protect
Set RaBereich = Nothing
End Sub

Wenn ich in der Tabelle Werte eintrage bleiben Sie erst mal Schwarz bzw. die Farbe der letzten Formatierung, bis man in den Mokroeditor wechselt und das Makro startet.
Funktioniert allerdings nicht in der Anwesenheitsliste "Laufzeitenfehler".
Der bereich B4:AF44 in der Anw-liste ist formatiert mit "Bedingte Formatierung" für Wochenende und Feiertage.
Tschüß und Danke für Hilfe!!!

Private Sub Worksheet_Calculate() ' erstellt von Hajo.Ziplies@web.de 19.07.03 ' http://home.media-n.de/ziplies/ ' diese Variante kostet natürlich Rechenleistung ' da bei jeder Eingabe der Bereich Formatiert wird ' HINTERGRUND ' für Schrift RaZelle.Font.ColorIndex Dim RaBereich As Range, RaZelle As Range ' Bereich der Wirksamkeit Set RaBereich = Range("B4:AF44") ' ActiveSheet.Unprotect For Each RaZelle In RaBereich If Not Intersect(RaZelle, RaBereich) Is Nothing Then Select Case RaZelle.Value Case "U", "K", "F", "S" RaZelle.Font.ColorIndex = 3 '"Laufzeitfehler1004-RaZelle.Font.ColorIndex = 3-in der Anwesenheitsliste" Case Else RaZelle.Interior.ColorIndex = xlNone '"Laufzeitfehler1004-RaZelle.Font.ColorIndex = xlNone-in der neuen Tabelle" End Select End If Next RaZelle ' ActiveSheet.protect Set RaBereich = Nothing End Sub

Hallo Johann
der Blattschutz hat damit natürlich zu tun. Im Code sind die Zeilen ja auskommentiert.
Michael Kofler schreibt sehr gute Bücher über VBA. Ansonsten schaue mal ins Internet.
VBA Kurs in 21 Tagen
http://www.ti5.tu-harburg.de/manual/vba5/httoc.htm
http://www.excel-center.de/excel/handbuch.htm
Ein Tip von Thomas Ramel
Hier gibt es eine Broschüre im PDF-Format, die VBA recht anschaulich erklärt:
http://www.fernuni-hagen.de/URZ/urzbib/ls_broschueren.html
oder baue einige Beispiele des Forums nach und analysiere sie.
Die Mailbenachrichtigung bei diesem Beitrag geht nicht, also Rückantwort kann schon eine Weile dauern.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro

Beliebteste Forumthreads (12 Monate)

Buchstaben farbig formatieren mit makro

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread