ich habe folgenden code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Activate
Sheets("VegIrr.prog").Select
letzte_Zeile = Cells(Rows.Count, 2).End(xlUp).Row
If letzte_Zeile >= 25 Then
Rows(letzte_Zeile).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub
Nun sollte die letzte_Zeile nur markiert werden, wenn auch wirklich (optisch) ein Wert darinn steht. Das heisst, wenn nur Funktionen darinn stehen, also "" sind, sollten diese Zellen nicht als "Beschrieben" gelten und als letzte_zeile gelten. Weis jemand eine Lösung?
Vielen Dank,
roger