ich habe ein Problem beim Kopieren von Inhalten zwischen zwei Arbeitsmappen.
Das Problem tritt jedoch nur auf wenn es innerhalb der Schleife lediglich nur einen zu kopierenden Inhalt gibt. Der Debugger zeigt mir den Fehler in der letzten Zeile des Programmcodes ein, d.h. beim Einfügen des Inhalts.
Ich hoffe jemand hat eine Lösung für dieses Problem?
Vielen Dank im Voraus.
Sub Ausschnitt()
For zeilennr = 11 To zeilenanzahl
Workbooks("Test.xlsm").Worksheets("Vorlage").Activate
suchwert = Left$(Cells(zeilennr, 1).Value, 4) 'gesuchter Wert
For zeile = 9 To 90
Workbooks("Daten.xlsx").Worksheets("Datenblatt").Activate
If suchwert = Left$(Cells(zeile, 1).Value, 4) Then
If IsNumeric(Cells(zeile + 3, 1)) And (Cells(zeile + 3, 1)) "" Then
Else
Workbooks("Daten.xlsx").Worksheets("Datenblatt").Activate
Worksheets("Datenblatt").Range(Cells(zeile + 2, 1), Cells(zeile + 2, 3)).Copy
Workbooks("Test.xlsm").Activate
Worksheets("Vorlage").Range("F" & zeilennr).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
End If
End Sub
Folgende Fehlermeldung wird mir angezeigt:
Beste Grüße
Cornelius