Office: (Office 2016) Excel beenden

Hallo an alle
Ich sehe den Wald vor lauter Bäumen nicht
Hier der Grund

In Tabelle1 steht mein VBA

Sub loeschex()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If Cells(i, 5) = "x" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub

Jetzt wollte ich beim Verlassen von Excel, dass dieses ausgeführt wird ohne das eine Speicherabfrage von Excel erscheint. *rolleyes.gif*

Habt Ihr eine Lösung ??

:)

 

... ThisWorkbook.Save ...

... oder willst du nach dem Löschen gar nicht speichern ? *eek.gif*

 

Doch speichern ist wichtig

 

Code:

 

Wie du an Scorefuns Antwort erkennen kannst, lässt sich dein Problem ganz einfach lösen.

Bedenke aber dabei, dass du damit die Möglichkeit verkaufst, ungewollte Änderungen, durch einfaches schließen der Mappe, ungeschehen zu machen !!!

Dann würde ich zumindest beim öffenen der Mappe mittel CopySaveAs, mir jeweils vorher eine Sicherung, mit z.B. dem Datum im Mappennamen, erstellen.

 

Ich sage DANKE, hat auch alles so funktioniert wie es sollte*Smilie

Jetzt noch eine Letzte Frage

Ich habe ein kleinen Denkfehler noch bemerkt

Option Explicit

Public Sub Kopieren()

Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet

Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle2")
Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle1")

With WkSh_Z.Cells(WkSh_Z.Rows.Count, 1).End(xlUp)
.Offset(1).Resize(WkSh_Q.Range("A1*biggrin.gif*1").Rows.Count, WkSh_Q.Range("A1*biggrin.gif*1").Columns.Count).Value = WkSh_Q.Range("A1*biggrin.gif*1").Value
.Offset(1).End(xlToRight).Offset(, 1).Value = "x"
End With

End Sub

das Makro soll natürlich auch mit einem großen X funktionieren und mit dem kleinen x. *rolleyes.gif*

 

Hallo,

du meinst, falls doch mal jemand das "X" per "Hand" einträgt ...

If LCase(Cells(i, 5)) = "x" Then Rows(i).Delete

Sabina

 

jups,

Danke für die schnelle Hilfe an euch.

Jetzt kann ich mich an den Nächsten Abschnitt machen *wink.gif*