Inhalt erst in Zeile 5 schreiben
27.02.2009 12:32:18
Schmidtler
wie bekomme ich es hin, dass erst Werte ab der 4. Zeile eingetragen werden?
Main Eng. Doc.
LEER
LEER
LEER
LEER
25.02.2009
23.02.2009
OK
40002058
16.12.2008
18.12.2008
LATE
40002059
Mein Makro sieht wie folgt aus:
ElseIf Cells(i, 4) = "Issue Main engineering documents" Then
Zähler_IssueMainEng = Zähler_IssueMainEng + 1
Worksheets(1).Cells(Z_ZählerProjekt + (Zähler_IssueMainEng * 4), Sp_IssueMain) = Worksheets(1).Cells(i, 5)
V11 = Worksheets(1).Cells(Z_ZählerProjekt + (Zähler_IssueMainEng * 4), Sp_IssueMain)
Worksheets(1).Cells((Z_ZählerProjekt + 1) + (Zähler_IssueMainEng * 4), Sp_IssueMain) = Worksheets(1).Cells(i, 6)
V12 = Worksheets(1).Cells((Z_ZählerProjekt + 1) + (Zähler_IssueMainEng * 4), Sp_IssueMain)
Worksheets(1).Cells((Z_ZählerProjekt + 3) + (Zähler_IssueMainEng * 4), Sp_IssueMain) = Worksheets(1).Cells(i, 3)
If V12 = "" And V11 < Date Then
Worksheets(1).Cells((Z_ZählerProjekt + 2) + (Zähler_IssueMainEng * 4), Sp_IssueMain) = "LATE"
ElseIf V12 <> "" And V12 <= V11 Then
Worksheets(1).Cells((Z_ZählerProjekt + 2) + (Zähler_IssueMainEng * 4), Sp_IssueMain) = "OK"
ElseIf V11 <> "" And V12 <> "" And V11 < V12 Then
Worksheets(1).Cells((Z_ZählerProjekt + 2) + (Zähler_IssueMainEng * 4), Sp_IssueMain) = "ISSUE"
Else: Worksheets(1).Cells((Z_ZählerProjekt + 2) + (Zähler_IssueMainEng * 4), Sp_IssueMain) = ""
End If
Mahlzeit, Stefan