Bereichsdefinition Global, nicht Lokal
Peter
Mit diesem Code definiere ich einen Bereich in der Tabelle "Auswertung". Ich möchte jedoch nicht einen "lokalen" Bereich für diese Tabelle, sondern einen "globalen" Bereich, der innerhalb der Mappe Gültigkeit hat.
Was muss ich anpassen?
Danke und Gruss, Peter
https://www.herber.de/bbs/user/72899.xls
'zeEnde definieren
Sub BereichDefinition()
Dim wsTab As Worksheet, RngTemp As Excel.Range
Dim lastRow As Long, zeStart As Long, zeEnde As Long
Set wsTab = Worksheets("Auswertung")
zeStart = 12
lastRow = wsTab.Cells(Rows.Count, 1).End(xlUp).Row
Set RngTemp = wsTab.Range(wsTab.Cells(lastRow, 1), wsTab.Cells(lastRow, 1))
wsTab.Names.Add Name:="zeEnde", RefersTo:=RngTemp
End Sub
Anzeige