|
Hallo zusammen,
ich habe eine Aufgabe bekommen und komme leider nicht weiter.
ich habe zwei Excel Tabellen in einem werden im Sharepoint Daten eingetragen z.b. Produkt launch, Datum, Enddatum etc. und in der anderen Tabelle werden die Daten angezeigt.
wenn in der Tabelle7 kein Datum angegeben wird, erscheint in Tabelle13 irgendwelche Zahlen. Ich möchte dass dieses Feld leer ist.
Wie gehe ich vor? Kann mir jemand bitte helfen?
Code dazu:
For i = 2 To Tabelle4.Cells.CurrentRegion.Rows.Count
Tabelle7.Cells(i, 1) = i - 1
Tabelle7.Cells(i, 2) = Tabelle4.Cells(i, 1)
Tabelle7.Cells(i, 3) = Tabelle4.Cells(i, 2)
Tabelle7.Cells(i, 4) = Tabelle4.Cells(i, 3)
Tabelle7.Cells(i, 5) = Tabelle4.Cells(i, 4)
Tabelle7.Cells(i, 6) = CDate(Tabelle4.Cells(i, 5).Value)
' If (Len(Tabelle4.Cells(i, 6).Value) > 0) Then
Tabelle13.Cells(i + 11, 7) = CDate(Tabelle4.Cells(i, 6).Value)
'Else
'Tabelle13.Cells(i + 11, 7) = Tabelle4.Cells(i, 6).Value
'End If
Tabelle7.Cells(i, 7) = CDate(Tabelle4.Cells(i, 6).Value)
Tabelle7.Cells(i, 8) = Tabelle4.Cells(i, 7)
Tabelle7.Cells(i, 9) = Tabelle4.Cells(i, 8)
Tabelle7.Cells(i, 10) = Tabelle4.Cells(i, 9)
Tabelle7.Cells(i, 11) = Tabelle4.Cells(i, 10)
Tabelle7.Cells(i, 12) = Tabelle4.Cells(i, 11)
Tabelle7.Cells(i, 13) = Tabelle4.Cells(i, 12)
Tabelle7.Cells(i, 14) = Tabelle4.Cells(i, 16)
Tabelle7.Cells(i, 15) = Tabelle4.Cells(i, 15)
Tabelle7.Cells(i, 16) = Tabelle4.Cells(i, 17)
'create Report table'
Tabelle13.Cells(i + 11, 1) = i - 1
Tabelle13.Cells(i + 11, 2) = Tabelle4.Cells(i, 1)
Tabelle13.Cells(i + 11, 3) = Tabelle4.Cells(i, 2)
Tabelle13.Cells(i + 11, 4) = Tabelle4.Cells(i, 3)
Tabelle13.Cells(i + 11, 5) = Tabelle4.Cells(i, 4)
Tabelle13.Cells(i + 11, 6) = CDate(Tabelle4.Cells(i, 5).Value)
Tabelle13.Cells(i + 11, 7) = CDate(Tabelle4.Cells(i, 6).Value)
Tabelle13.Cells(i + 11, 8) = Tabelle4.Cells(i, 7)
Tabelle13.Cells(i + 11, 9) = Tabelle4.Cells(i, 8)
Tabelle13.Cells(i + 11, 10) = Tabelle4.Cells(i, 9)
Tabelle13.Cells(i + 11, 11) = Tabelle4.Cells(i, 10)
Tabelle13.Cells(i + 11, 12) = Tabelle4.Cells(i, 11)
Tabelle13.Cells(i + 11, 13) = Tabelle4.Cells(i, 12)
Tabelle13.Cells(i + 11, 14) = Tabelle4.Cells(i, 16)
Tabelle13.Cells(i + 11, 15) = Tabelle4.Cells(i, 15)
Tabelle13.Cells(i + 11, 16) = Tabelle4.Cells(i, 17)
Next i |