Sub Bereiche()
' Makro1 Makro
' Makro am 16.11.2006 von Peter Schmid aufgezeichnet
Dim intSheetNr As Integer
Dim zNr As Long
Hallo
In meinem nachfolgenden Code habe ich die Absicht, in einem bestimmten Bereich die Inhalte zu löschen. Diesen Bereich benenne ich (vgl. nachstehende) "Eingabe".
Das ist ja wohl subobtimal, denn ich könnte ja die Daten in diesem Bereich (Mehrfachauswahl) wohl einfacher löschen. Doch wie funktioniert das hier mit
.cells ( ? ).delete
oder so ähnlich?
Danke für eine Rückmeldung.
Peter
For intSheetNr = 1 To 10
With Sheets(intSheetNr)
Debug.Print intSheetNr
ActiveWorkbook.Names.Add Name:=intSheetNr & "!Eingabe", RefersToR1C1:= _
"='" & intSheetNr & "'!R33C2:R132C4,'" & intSheetNr & "'!R33C6:R132C7"
End With
Next intSheetNr
End Sub