keinen Wert übergeben
13.08.2004 15:38:39
Alexander
ich möchte eine Spalte mit dem untenstehenden Code Formatiern.
das klappt auch alles bis auf die Zeile mit den ? ich weiß nicht wie ich das machen muss:
Wenn iTP = PPPhase dann soll mit der Nummer 8 zurückgegeben werden und mit der Nummer1 soll nichts zurückgegeben werden die Zelle soll also unverändert bleiben und den Wert beibehalten der vorher drinn stand. Das Bekomm ich nicht hin.
Wenn iTP soll dann bei Nummer1 "OK" zurückgegeben werden.
Gruß und Danke Alexander
Zeile = 2
For Each rw In Workbooks("Mappe1.xls").Worksheets("Process").Rows
Tp = rw.Cells(23)
If Tp = "PPPhase" then
i = rw.Row
i = i + 1
iTp = Workbooks("Mappe1.xls").Worksheets("Process").Cells(i, 23)
If iTp = "PPPhase" Then
Nummer = 8
Nummer1 = ?
Farbe = 45
ElseIf iTp "PPPhase" Then
Nummer = 0
Nummer1 = "OK"
Farbe = 50
End If
Workbooks("Mappe1.xls").Worksheets("Process").Activate
Range("X" & Zeile).Interior.ColorIndex = Farbe
'Range("A" & zeile).Font.ColorIndex = 2
'Range("A" & zeile).Font.Bold = True
Range("A" & Zeile) = Nummer
Range("X" & Zeile) = Nummer1
Zeile = Zeile + 1
Nummer = ""
Tp = ""
End If