Beispiel für einen Range (insgesamt sind es 3)
'Für die Aktivierung/Auswahl der Ranges
With ActiveWorkbook.Worksheets("sheet1")
'Für das Bilden der Ranges
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(Rows(i & ":" & i)) 0 Then
lastR = i
Exit For
End If
Next i
ActiveWorkbook.Names.Add Name:=ActiveSheet.Name, RefersTo:= _
"=" & ActiveSheet.Name & "!" & _
"$28:$" & lastR + ActiveSheet.UsedRange.Row - 1
End With
Frage ist nun, wie bekomme ich es hin, dass er alle Worksheets nacheinander im Workbook aktiviert werden. Eigentlich müsste dies doch mit meiner With-Anweisung klappen, oder ?