Markierten Bereich drucken
12.04.2005 15:48:25
abdi
sorry, wenn ich das hier doppelt schreibe, aber wie kann ich Sachen im Archiv erneut aktivieren?
So...meine Frage.
Möchte die Makierte Zelle drucken.
Den Inhalt der nichtmarkierten Zellen löschen.
Die Zelle soll dort gedruckt werden, als würde man das ganze Blatt drucken (also, Drucken-Markierten Bereich über Kontext-Menü-Drucken geht nicht)
Hier habe ich in den FAQ ein Start gefunden, aber der funktioniert nicht.
Sub BereichDrucken()
Dim rng As Range
Application.ScreenUpdating = False
ActiveSheet.Copy
For Each rng In Range("A1").CurrentRegion
If rng.Interior.ColorIndex <> 6 Then 'Hier sollte stehen If rng."not"selectet (gibt´s sowas?)
rng.ClearContents
End If
Next rng
Cells.Borders.LineStyle = xlLineStyleNone
ActiveSheet.PrintPreview
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
End Sub
Nochmals sorry, das das Thema nun doppelt ist.
Kann mir jemand helfen.
Danke
Gruß Abdi