Von Zeile bis Ende durchzählen...

Hey xlFreaks !
Also, vielleicht noch mal an nem Beispiel mein Problem, vielleicht stelle ich mich auch einfach nur zu blöd an.
Ich habe ein Workbook mit 4 unterschiedlichen sheets. Das Problem ist : ich möchte mir auf jedem Blatt einen bestimmten Range heraussuchen, der für jedes Blatt unterschiedlich dimensioniert ist. Gemeinsam haben Sie, dass alle Ranges ab Zeile 28 beginnen. Mit eurer Hilfe konnte ich bisher folgendes lauffähiges Konstrukt basteln :


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
'Ausfindig Machen der Ranges
For i = blatt.UsedRange.Rows.Count To 1 Step -1
If WorksheetFunction.CountA(blatt.Rows(i & ":" & i)) <> 0 Then
lastR = i
Exit For
End If
Next i
'Bilden & Übergabe der Namen an die Ranges
ActiveWorkbook.Names.Add Name:=blatt.Name, RefersTo:= _
"=" & blatt.Name & "!" & _
"$28:$" & lastR + blatt.UsedRange.Row - 1
Next
End Sub

Das Problem, dass sich für mich nun ergibt, ist folgendes. Mit UsedRange stellt er mir leider nur in drei von vier Sheets den richtigen Range dar. Beim letzten sind es leider fast 40 Leerzeilen, die er mit in den Range reinzählt. Da sich die Funktion aber nun als brauchbar (in den anderen Fällen zumindest) erweist, frage ich mich nun, was ich denn nun noch für ne Option habe. Im Zweifel müsste ich halt die xlUp-Funktion für die letzte Beschriebene Zeile verwenden. Doch da habe ich diverse Anpassungsprobleme.
Bin für jede Hilfe offen. Danke.

Danke Bernd, wunderbar.
Wunderbar, GetLastRow funktioniert tatsächlich. Ich benötige das jetzt nur noch angepasst. Im Prinzip soll das Skript meine 4 Sheets durchlaufen und mit der Funktion GetLastRow mir die Untergrenze für die Bildung der Ranges liefern. Leider bin ich mir nicht genau sicher, wie ich den Wert von GetLastRow an die


Sub übergebe, die die Ranges bildet. Mein Vorschlag wäre folgender: Leider sagt er mir, dass ich so nicht übergeben darf... vielleicht eine prompte Hilfestellung parat, danke !
'Funktion : GetLastRow

Function GetLastRow(Optional spalte As Integer = 4) As Long
GetLastRow = Rows.Count
If Cells(GetLastRow, spalte).Value = "" Then GetLastRow = Cells(GetLastRow, spalte).End(xlUp).Row
End Function


'

Sub Daten Ranges bilden

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
i = 1
ActiveWorkbook.Names.Add Name:=blatt.Name, RefersTo:= _
"=" & blatt.Name & "!" & _
"$28:$" & GetLastRow(i)
Next

Von Zeile bis Ende durchzählen...

Forumthread: Von Zeile bis Ende durchzählen...

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Von Zeile bis Ende durchzählen...

Forumthread: Von Zeile bis Ende durchzählen...

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread