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