Daten extrahieren
09.12.2002 21:42:21
Ulrike Schneider
Ich habe folgndes Makro, dass Daten nach einem Schlüssel sucht und in eine Bildschirmansicht druckt.
Ich hätte aber gerne, dass es statt dem Druck die Daten kopiert und in das Sheet: Beleg2 ab Postion Z4S2 einfügt.
Kann mir jemand helfen?
Mein Makro sieht so aus:
Sub Drucken514()
Dim iRow As Integer, iRowL As Integer
Application.ScreenUpdating = False
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 1 To iRowL
If Cells(iRow, 1) <> 514 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
Application.ScreenUpdating = True
End Sub
Danke