Hi Community,
mit meinem Coder veranlasse ich einen Datentransfer von "P2_Gantt_Daten" nach "P3_MSTA_Daten_KW".
Funktioniert auch alles wunderbar, jedoch würde ich gerne in der Tabelle "P3_MSTA_Daten_KW" alle Daten in der Range von A15 bis BB95 vor dem Transfer entfernen.
Leider finde ich keinen passenden Ansatz. Hätte jemand einen Lösungsvorschlag?
Viele Grüße,
Raphi
Sub Transfer_Gantt_MSTA_KW()
Dim szStr As String
Dim a As Integer
Dim i As Integer
a = 15
For i = 15 To 95
If Sheets("P2_Gantt_Daten").Cells(i, 3).Value = "Meilenstein" Then
Sheets("P3_MSTA_Daten_KW").Cells(a, 2).Value = Sheets("P2_Gantt_Daten").Cells(i, 2).Value
Sheets("P3_MSTA_Daten_KW").Cells(a, 1).Value = Sheets("P2_Gantt_Daten").Cells(i, 9).Value
a = a + 1
End If
Next i
End Sub
|