Mit meinem Code möchte ich in einer Datei mit mehreren Worksheets in ausgewählten Worksheets den jeweils gleichen Bereich mit dem Namen Eingabe benennen.
Der Name des Worksheets ist jeweils in der Variable intSheetNr enthalten.
Ich habe mir mit dem Makrorecorder den Befehl Einfügen ... Namen festlegen aufgezeichnet und möchte nun in der entsprechenden Codezeile die '1' durch die Variable intSheetNr ersetzen.
Das ist mir nur teilweise gelungen (vgl. unten). Dieser Code funktioniert, hat jedoch den Fehler, dass ich zwei Mal den String '1' nicht durch die Variable intSheetNr ersetzen konnte.
Kann mir da jemand weiterhelfen?
Danke, Peter
Option Explicit
Sub Makro1()
' Makro1 Makro
' Makro am 16.11.2006 von Peter Schmid aufgezeichnet
Dim intSheetNr As Integer
Dim zNr As Long
For intSheetNr = 1 To 10
With Sheets(intSheetNr)
ActiveWorkbook.Names.Add Name:=intSheetNr & "!Eingabe", RefersToR1C1:= _
"='" & intSheetNr & "'!R33C2:R132C4,'1'!R33C6:R132C7,'1'!R33C2"
End With
Next intSheetNr
End Sub