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
|