Hallo,
mit 'objZelleKopie.ClearContents' wird bei mir die Zelle F8 gelöscht.
Nun möchte ich aber nicht die Zelle F8 löschen lassen, sondern die verbundenen Zellen F8:G9.
Geht das irgendwie?
Bisher sieht es wie folgt aus (auszugsweise):
Sub Drucken()
Dim objWks As Worksheet, strAktiverDrucker As String, objZelleKopie As Range
Dim lngFarbeKopie As Long
On Error GoTo Fehler
Set objWks = Worksheets("Angebot")
Set objZelleKopie = objWks.Range("F8") 'Zelle zur Kennzeichnung der Kopie
.....
'FarbeZelle zurücksetzen
If Not objZelleKopie Is Nothing Then
objZelleKopie.Interior.ColorIndex = lngFarbeKopie
objZelleKopie.ClearContents
End If