1. freie Zeile trotz Autofilter finden

Hallo zusammen,
mit folgendem (erkennbar umständlichem) Code übertrage ich Daten in eine Endlos-Tabelle zwecks durchzuführender Auswertungen.
Die Daten aus A28:Z28 resultieren aus Verknüpfungen von anderen Sheets, die ich auf dem Umweg der Umwandlung in Werte in Zeile 30 eintrage (ich weiß, es ist umständlich, geht aber ohne Probleme).
Danach erfolgt der Eintrag in die 1. freie Zeile (nach Zeile 32)
Ab Zeile 32 sind Überschriften mit Autofilter-Dreicken.
Mein Problem:
Alles funktioniert einwandfrei solange der Autofilter nicht gesetzt ist.
Meine Frage:
Wie kann ich es per VBA erzwingen, dass trotz (filterbedingter ausgeblendeter Zeilen) die TATSÄCHLICH erste freie Zeile ohne Werte gefunden und befüllt wird?

Sub TagesergebnisInStatistik()
Application.EnableEvents = False
With Worksheets("Statistik")
.Unprotect Password:="123"
.Range("A28:Z28").Copy
.Range("A30").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
.Range("A30:Z30").Copy
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:= _
xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
.Protect Password:="123"
End With
Application.CutCopyMode = False
Application.EnableEvents = True
End Sub

Herzlichen Dank vorab!
Dietmar aus Aachen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub TagesergebnisInStatistik() Application.EnableEvents = False If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData With Worksheets("Statistik") .Unprotect Password:="123" .Range("A28:Z28").Copy .Range("A30").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False .Range("A30:Z30").Copy .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:= _ xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False .Protect Password:="123" End With Application.CutCopyMode = False Application.EnableEvents = True End Sub

Function LastRow( _ wks As Worksheet, _ Optional lngFirstRow As Long, _ Optional lngLastRow As Long) _ As Long Dim lngTmp As Long, blnFound As Boolean With Application If .CountA(wks.Rows(wks.Rows.Count)) Then LastRow = wks.Rows.Count: Exit Function End If If .CountA(wks.Cells) = 0 Then LastRow = 0: Exit Function End If If lngFirstRow = 0 Then lngFirstRow = 1 If lngLastRow = 0 Then lngLastRow = wks.Rows.Count lngTmp = (lngFirstRow + lngLastRow) / 2 If lngLastRow > lngFirstRow + 1 Then If .CountA(wks.Range(.Rows(lngTmp), .Rows(lngLastRow))) Then _ lngFirstRow = lngTmp: blnFound = True If Not blnFound And .CountA(wks.Range(.Rows(lngFirstRow), .Rows(lngTmp))) Then _ lngLastRow = lngTmp LastRow wks, lngFirstRow, lngLastRow End If End With LastRow = lngFirstRow End Function

Hallo Rudi,
vielen Dank!
ja so geht's ! Das interessante ist, dass der Autofilter auch bestehen bleibt.
Es scheint so zu sein, dass der Code hinter die zuletzt gefiltertete Zeile eine neue Zeile einfügt und dort die Daten dann hineinschreibt.
Das führt allerdings dazu, dass nicht die wirklich letzte freie Zeile gesucht und gefunden wird, sondern die Werte werden quasi dazwischen geschrieben.
Ist nicht weiter schlimm, aber falls es möglich ist: Ergänzungsfrage: Lässt der Code sich so anpassen, dass die neu zu übertragenden Werte in die WIRKLICH letzte freie Zeile eingefügt werden.Oder ist da nur möglich, wenn vorher der Filter komplett rausgenommen wird?
Vielen Dank nochmals und
Liebe Grüße
Dietmar aus Aachen

Beliebteste Forumthreads (12 Monate)

1. freie Zeile trotz Autofilter finden

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1. freie Zeile trotz Autofilter finden

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread