Sub Schaltfläche2_BeiKlick()
Application.ScreenUpdating = False
Sheets("Katalog").Range("M14").Value = Cells(Selection.Row, 1)
Sheets("Katalog").PrintOut Copies:=1, Collate:=True
Application.ScreenUpdating = True
End Sub
Das klappt suuuper.
Nun bräucht eich aber noch eine kleine Verbesserung:
Wie muß ich das Makro abändern, so daß vor dem "Range" bzw. "PrintOut Copies" Befehlen bestimmte Zellen im Arbeitsblatt "Katalog" gelöscht werden ? In meinem Fall wären es die Zellen O2, O3, O4, O6 und O8.
Gibt es dafür einen entsprechenden Befehl ?