Thema Datum  Von Nutzer Rating
Antwort
31.08.2015 11:25:53 Raphi
Solved
31.08.2015 12:59:51 Holger
NotSolved
Rot Copy_Paste
 31.08.2015 15:01:29 Raphi
NotSolved
31.08.2015 15:26:40 Holger
NotSolved
31.08.2015 16:24:38 Raphi
NotSolved
31.08.2015 17:04:44 Raphi
NotSolved
01.09.2015 10:37:43 Gast63747
NotSolved
01.09.2015 10:42:04 Raphi
NotSolved
01.09.2015 13:19:40 Raphi
NotSolved
04.09.2015 10:45:41 Raphi
NotSolved
01.09.2015 16:35:35 Raphi
NotSolved
04.09.2015 10:59:06 Raphi
NotSolved
04.09.2015 10:59:06 Raphi
NotSolved

Ansicht des Beitrags:
Von:
Raphi		 Datum:
31.08.2015 15:01:29		 Views:
874		 Rating:
     
Antwort:
  Ja
Thema:
Copy_Paste

Hallo Holger,

mit deinem Code klappt es leider nicht.

Habe folgenden Tipp bekommen, jedoch beginnt das Makro jetzt in Zeile 95 mit der Befüllung statt in Zeile 15...

Hättest du evtl. hierfür einen Vorschlag ? ;)

 

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
31.08.2015 11:25:53 Raphi
Solved
31.08.2015 12:59:51 Holger
NotSolved
Rot Copy_Paste
 31.08.2015 15:01:29 Raphi
NotSolved
31.08.2015 15:26:40 Holger
NotSolved
31.08.2015 16:24:38 Raphi
NotSolved
31.08.2015 17:04:44 Raphi
NotSolved
01.09.2015 10:37:43 Gast63747
NotSolved
01.09.2015 10:42:04 Raphi
NotSolved
01.09.2015 13:19:40 Raphi
NotSolved
04.09.2015 10:45:41 Raphi
NotSolved
01.09.2015 16:35:35 Raphi
NotSolved
04.09.2015 10:59:06 Raphi
NotSolved
04.09.2015 10:59:06 Raphi
NotSolved