Von Zeile bis Ende durchzählen...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function GetLastRowWS(ws As Worksheet, Optional spalte As Integer = 1) As Long With ws GetLastRowWS = ws.Rows.Count If ws.Cells(GetLastRowWS, spalte).Value = "" Then GetLastRowWS = ws.Cells(GetLastRowWS, spalte).End(xlUp).Row End With End Function

Function GetLastRowWS(ws As Worksheet, Optional spalte As Integer = 1) As Long With ws GetLastRowWS = .Rows.Count If .Cells(GetLastRowWS, spalte).Value = "" Then GetLastRowWS = .Cells(GetLastRowWS, spalte).End(xlUp).Row End With End Function

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

Sub LetzeZelle() Debug.Print ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Address Debug.Print ActiveSheet.UsedRange.Address Debug.Print ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Address End Sub

Function ne Sub gemacht. Die durchläuft er aber nicht. Komilieren ist okay. Was könnte falsch sein ? Sub GetLastRowWS() Dim ws As Worksheet Dim spalte As Integer Dim GetLastRowWS As Long With ws GetLastRowWS = ActiveSheet.Rows.Count If ActiveSheet.Cells(GetLastRowWS, spalte).Value = "" Then GetLastRowWS = ActiveSheet.Cells(GetLastRowWS, spalte).End(xlUp).Row End With End Sub

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

Beliebteste Forumthreads (12 Monate)

Von Zeile bis Ende durchzählen...

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Von Zeile bis Ende durchzählen...

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

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread