Kopierfunktion kopiert nicht richtig
14.08.2015 19:24:00
Daniel
ich bin mit meinem Latein am ende wobei es wahrscheinlich eine einfache Lösung gibt...
ich habe eine Userform die unter anderem, wenn das gesuchte in Spalte A des workbooks 1 vorkommt die Daten aus dieser Zeile bis Spalte 9 in workbook 2 kopieren.
Aus irgendeinem Grund macht er das auch für die erste gefundene Zeile aber dann nicht weiter.
Hier der der Teil des Codes der Kopieren soll:
Wkb.Activate
With Sheets(Me.Monat)
For i = 6 To 299
If .Cells(i, 1).Text = Me.Mandat Then
Range(Cells(i, 1), Cells(i, 9)).Copy
Wkb2.Worksheets("4 Tagesaufstellung DM").Cells(n, 3).PasteSpecial Paste:= _
xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
n = n + 1
End If
Next i
End With
Ich hoffe Ihr könnt mir Helfen...