Copy_Paste

Hi Excelexperten,
für meine Bachelorthesis bin ich beauftragt eine kleines PM-Tool in Excel zu erstellen. Aktuell stehe ich 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") (untereinander) 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....
Ich hoffe ich habe mich verständlich ausgedrückt ?
Ü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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Copy_Paste

31.08.2015 12:03:33

Rudi

AW: Copy_Paste

31.08.2015 12:15:29

Herbert

siehe dort! owT

31.08.2015 13:24:19

Rudi

AW: Copy_Paste

31.08.2015 13:39:08

Raphi

AW: Copy_Paste

31.08.2015 14:59:23

Raphi

AW: Copy_Paste

01.09.2015 08:30:00

Werner

AW: Copy_Paste

31.08.2015 15:15:47

Rudi

AW: Copy_Paste

31.08.2015 13:10:34

Werner

Sub Test_Copy() Dim i As Integer, LastRow As Long LastRow = Sheets("P3_MSTA_Daten_KW").Cells(Rows.Count, 1).End(xlUp).Row + 1 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(LastRow, 2).Value = Sheets("P3_Gantt_Daten").Cells(i, 2). _ Value Sheets("P3_MSTA_Daten_KW").Cells(LastRow, 1).Value = Sheets("P3_Gantt_Daten").Cells(i, 10) _ .Value LastRow = LastRow + 1 End If Next i End Sub

Sub Test_Copy() Dim i As Integer, LastRow As Long LastRow = 15 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(LastRow, 2).Value = Sheets("P3_Gantt_Daten").Cells( _ i, 2). _ Value Sheets("P3_MSTA_Daten_KW").Cells(LastRow, 1).Value = Sheets("P3_Gantt_Daten").Cells( _ i, 10) _ .Value LastRow = LastRow + 1 End If Next i End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread