Zelle
10.02.2009 20:19:00
Ralf
Habe da mal eine Frage betreff Zelle . Schreibe mit Hilfe dieses Makro
Daten in eine Zelle , wenn zwei Daten anliegen unterteile ich die Zelle.
Nun meine Frage , kann mann die zwei Daten unterschiedlich einfärben
zB. in blau und rot
Sub TerminEingeben()
Dim termf(100) As Date
Dim feiert(100) As String
On Error Resume Next
Worksheets("Tabelle21").Activate
z = 3
Do While Cells(z, 18) ""
termf(z) = Left(Cells(z, 18), 6) + _
Right(Cells(1, 1), 2)
feiert(z) = Cells(z, 19)
z = z + 1
Loop
For e = 3 To z
For T = 3 To Cells(Rows.Count, 1).End(xlUp).Row
m = 1
If feiert(e) = "Tag der dt. Einheit" _
And Cells(1, 1) "" Then
Cells(T, m + 1).RowHeight = 25
Cells(T, m + 1) = Cells(T, m + 1) _
& Chr(10) & feiert(e)
End If
Next T
Next e
End Sub
Gruss
Ralf