ich bräuchte wohl eine Korrektur des folgenden Makros:
If Worksheets("Aktuell").Range("I1") = 0 Then
MsgBox "Keine gefilterten Daten !"
Else
'kopiert
LZ_Zeit = Sheets("Aktuell").Cells(Rows.Count, 1).End(xlUp).Row
LZ_Wahl1 = Sheets("Favoriten").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Aktuell").Range("B10:AI" & LZ_Zeit).SpecialCells(xlCellTypeVisible).Copy Sheets("Favoriten").Range("A" & LZ_Wahl1)
End If
Das Makro stellt den Inhalt der Zelle "I1" fest.Ist der Wert in "I1" >0, sollen die gefilterten Daten ins Sheet "Favoriten" kopiert werden.
Generell klappt das auch.
Problem:
Die gefilterten Daten in Sheet "Aktuell" beinhalten Formeln,- bzw. deren Ergebnis.
Sind mehr als 1 Zeile = Filterergebnis, werden die Formelergebnisse als Wert nach Sheet "Favoriten" übertragen.
Besteht das Filterergebnis nur aus 1 Zeile, werden eigenartigerweise die Formeln übertragen und im Ergebnis dann "#NV" angezeigt.
Meine Anfrage:
Kann mir bitte jemand eine entsprechende Korrektur anbieten?!
Gruss
Fred