letzte Zeile

Hallo
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Activate Sheets("VegIrr.prog").Select letzte_Zeile = Cells(Rows.Count, 2).End(xlUp).Row while cells(letzte_zeile,2).hasformula = true letzte_zeile=letzte_zeile-1 wend 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

Hallo Volker,
danke für deine Antwort. Es würde auch Funktionieren, aber es ist nicht das was ich suche. die Tabelle hat z.b. 300 Zeilen mit Funktionen drin. jetzt wird jeden Tag, oder vieleicht an einem Tag mehrere Zeilen mit Werten gefüllt. Das heisst von "" zu zb. 30 (durch Funkt errechnet. =WENN(A290="";"";('FAO-PMON'!$J267)). So sehen z.B. die Funkt. aus. Das heisst wenn in A290 ein Datum eingetragen wird, läuft von Spalte B bis V die Berechnungen ab und die Zellen werden gefüllt. Wenn nun hasformula = true ist, nimmt es die beschriebenen Zellen auch nicht, da ja auch eine Formel dahinter ist. (Sorry für mein umständliches Erklähren. Ich bräuchte etwas, das wirklich nur die Zellen welche eine Formel haben und auch errechnet wurden, selektiert.
Gruss,
roger

Sub aaa() Dim zelle As Range Dim letzte_zeile As Long ThisWorkbook.Activate Sheets("VegIrr.prog").Select Set zelle = Range("a65536").End(xlUp) Do While zelle = "" And zelle.Row > 1 Set zelle = zelle.Offset(-1) Loop letzte_zeile = zelle.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

Sub aaa() Dim zelle As Range Dim letzte_zeile As Long ThisWorkbook.Activate Sheets("VegIrr.prog").Select Set zelle = Range("b65536").End(xlUp) Do While zelle = "" And zelle.Row > 1 Set zelle = zelle.Offset(-1,0) Loop letzte_zeile = zelle.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

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread