ich habe mir aus 2 verschiedenen Makros versucht ein geeignetes zusammenzubauen, welches allerdings nicht funktioniert. Leider finde ich den Grund hierfür nicht, da kein Fehler ausgegeben wird. Die gewünschten Daten werden allerdings auch nicht kopiert.
Im Blatt "Druckausgabe" geben wir in die Zelle B1 einen Suchbegriff ein. Nach Ausführen des Makro soll dieses den Wert aus B1 im Blatt "Artikel" in der Spalte "AP" suchen. Wenn gefunden, sollen die Zellen A, B und H in das Blatt "Druckausgabe" in die Spalten A, B und C kopiert werden.
Zuvor probierte ich es mit dem Kopieren einer ganzen Zeile, was auch wunderbar funktioniert hat. Nur das Kopieren der einzelnen Zellen will nicht.
Kann mir jmd. weiterhelfen? Vielen Dank im voraus!
Sub Erstelle_Druckausgabebogen()
Dim a As Long, i As Long
Application.ScreenUpdating = False
a = 3 'Trage die gefundenen Werte ab der 3ten Zeile ein
For i = 1 To 1000
With Worksheets("Artikel")
If .Cells(i, "AP") = Worksheets("Druckausgabe").Cells(1, "B") Then
Worksheets("Artikel").Cells(i, "A").Copy _
Destination:=Worksheets("Druckausgabe").Cells(i, "A")
Worksheets("Artikel").Cells(i, "B").Copy _
Destination:=Worksheets("Druckausgabe").Cells(i, "B")
Worksheets("Artikel").Cells(i, "H").Copy _
Destination:=Worksheets("Druckausgabe").Cells(i, "C")
a = a + 1
End If
End With
Next i
Application.ScreenUpdating = True
End Sub