Worksheets über VBA aktivieren

Hallo Excel-Freaks. Dank eurer mithilfe klappt ja das jetzt mit der automatischen Generierung der Ranges mit VBA. Nur noch ein Problem, dass sich daraus ergben hat. Ich möchte verschiedene Worksheets in einem Workbook ansprechen... leider aktiviert er mir aber immer nur das bereits aktivierte workbook... untenstehender code
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 ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DatenRangesBilden() Dim i As Long, lastR As Long Dim blatt As Worksheet ' Range für sheet1, sheet2 und sheet3, sheet4 bilden For Each blatt In ActiveWorkbook.Sheets 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 Next End Sub

Achja, Mensch das mit dem Durchzählen hätte ich mir echt sparen koennen. Aber jetzt klappt schon mal das. Die einzige Hürde ist nun, dass sich das Programm anscheinend den UsedRange aus dem ersten Sheet merkt und dann alle andere Range auch mit der Größe aus dem erste Sheets bildet.
Bsp : Sheet 1 : 28-43.Zeile werden "benutzt" -> UsedRange bis 43
Sheet 2 : 28-65.Zeile werden "benutzt" -> UsedRange bis 43 !!(sollte aber bis 65!)

Dieses Problem setzt sich auf allen Sheets fort. Wie könnte ich jetzt nun denn die Variable die durchzählt so löschen, dass mir bei jedem sheet auch der richtige Wert zurückgegen wird ?


Sub DatenRangesBilden()
Dim i As Long, lastR As Long
Dim blatt As Worksheet
' Range für sheet1, sheet2 und sheet3 bilden
For Each blatt In ActiveWorkbook.Sheets
For i = blatt.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:=blatt.Name, RefersTo:= _
"=" & blatt.Name & "!" & _
"$28:$" & lastR + blatt.UsedRange.Row - 1
Next
End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread