Hi Excelianer,

ich stehe vor folgendem Problem:

1. Ich möchte von meiner Tabelle ("P3_Gantt_Daten") alle Zeilen (15 bis 95) der Spalte C auf den Begriff "Meilenstein" untersuchen.

2. Wenn der Begriff Meilenstein enthalten ist, soll der Wert aus der Tabelle ("P3_Gantt_Daten") in eine Tabelle ("P3_MSTA_Daten_KW") kopiert werden.

Das kopieren an sich klappt, jedoch weiss ich nicht wie ich den Code schreiben muss, damit immer die nächste Zeile in der Tabelle ("P3_MSTA_Daten_KW") befüllt wird.

Mit meiner Formel wird aktuell immer von der Tabelle ("P3_Gantt_Daten") auf die Tabelle ("P3_MSTA_Daten_KW") verwiesen. Leider habe ich dadurch eine Menge leere Zeilen....

Über eure Unterstützung würde ich mich sehr freuen.

Viele Grüße

Option Explicit

Sub Test_Copy()
Dim i As Integer

Dim szStr As String
For i = 15 To 95
If Sheets("P3_Gantt_Daten").Cells(i, 3).Value = "Meilenstein" Then
Sheets("P3_MSTA_Daten_KW").Cells(i, 2).Value = Sheets("P3_Gantt_Daten").Cells(i, 2).Value
Sheets("P3_MSTA_Daten_KW").Cells(i, 1).Value = Sheets("P3_Gantt_Daten").Cells(i, 10).Value
End If
Next i

End Sub