Re: verschiedene Schriftfarben in einer Zelle
01.07.2002 16:11:46
Antje
Hallo Hajo ... bitte nicht verwzeifeln!Also
hier mein Code
Sub offene_Punkte()
Dim Zeilen As Object
Dim tabellenname As String
Dim Anzahl As String
Dim i#, j#, z#
For i = 6 To 17
If (Cells(i, 2) <> "" And Cells(i, 2) <> "...") Then
tabellenname = Cells(i, 2).Value
Worksheets(tabellenname).Activate
Set Zeilen = ActiveCell.CurrentRegion
z = 0
X = Zeilen.Rows.Count
For j = 2 To Zeilen.Rows.Count
If Cells(j, 6) = "" Then
z = z + 1
End If
Next j
Worksheets("menü").Activate
Cells(i, 3).Font.ColorIndex = 5
Anzahl = X - 1 & "(" & z & ")"
Cells(i, 3).Value = Anzahl
End If
Next i
End Sub
Hiermit schreibe ich mir beim Öffenen meiner Tabelle in eine Spalte auf dem ersten Blatt "Menue" immer die X- Anzahl laufender Projekte (tabellenblättern) und dahinter in Klammern die Z-Anzahl der "leeren Zellen" von diesem Tabellenblatt!
Jetzt möchte ich diese Anzahl der "leeren Zellen" auf dem ersten Blatt in rot markieren! Wobei meine Variable (string) Anzahl sich aus X und Z zusammensetzt!
Ich habe es jetzt mit deinem Code ausprobiert, aber es wird immer noch alles in blau geschrieben!
Gruß
Antje