ackup erstellen wenn Zeilen gelöscht eurden

Private Sub Worksheet_Change(ByVal Target As Range) If Selection.Delete Then Dim BackUpName$ Application.DisplayAlerts = False BackUpName = "E:\wird angepasst \_" & ThisWorkbook.Name & "_" &_ Date & "_" & Format(Time, "hhmmss") & "_" & ".xlsm" ThisWorkbook.SaveCopyAs Filename:=BackUpName End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim BackUpName$ 'Prüfen ob Zeilen selektiert sind If Target.Columns.Count = Me.Columns.Count Then If MsgBox("1. Back-up erstellen" & vbLf _ & "2. Selektierte Zeilen löschen?", _ vbQuestion + vbOKCancel + vbDefaultButton2, "Zeilen löachen") = vbOK Then Cancel = True 'erst Back-up With ThisWorkbook BackUpName = .Path & "\" _ & VBA.Replace(.Name, ".xls", Format(Now, """ ""YYYYMMDD hhmmss"".xls""")) .SaveCopyAs Filename:=BackUpName End With 'dann löschen Target.Delete Else Cancel = True 'Diese Code-Zeile weglassen, wenn Rechte-Maus-Menü _ für Zeilen angezeigt werden soll - dann kann man aber ohne Backup _ trotzdem löschen End If End If End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim BackUpName$ Application.DisplayAlerts = False UserID = Environ("Username") BackUpName = "E:\..... ThisWorkbook.SaveCopyAs Filename:=BackUpName End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim BackUpName$ 'Prüfen ob Zeilen selektiert sind If Target.Columns.Count = Me.Columns.Count Then Cancel = True Target.Delete With ThisWorkbook BackUpName = .Path & "\" _ & VBA.Replace(.Name, ".xls", Format(Now, """ ""YYYYMMDD hhmmss"".xls""")) .SaveCopyAs Filename:=BackUpName End With End If End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim BackUpName$ 'Prüfen ob Zeilen selektiert sind If Target.Columns.Count = Me.Columns.Count Then With ThisWorkbook UserID = Environ("Username") BackUpName = "E:\...\_" & ThisWorkbook.Name & "_" & _ Date & "_" & Format(Time, "hhmmss") & "_" & UserID & "_" & ".xlsm" .SaveCopyAs Filename:=BackUpName End With End If End Sub

Hallo Steffi,
diese Wartezeit kann nicht mit diesem Makro zusammenhängen.
Bei meinen Tests - Tabellenblatt/Arbeitsmappe entält nur Werte, keine Formeln funktioniert das Makro ohne Probleme unter Windows 7 /Excel 2010. Auch das Kopieren von anderen Zellbereich läuft normal ohne Verzögerungen.
Solche Verzögerungen sind ein typisches Anzeichen, dass beim Einfügen/Ändern von Zellwerten umfangreiche Berechnungen oder andere Ereignismakros gestartet werden, z.B. Worksheet_Change oder Worksheet_Calculate.
Bei den Ereignismakros ist es dann ratsam, zu Beginn des Makros die Ereignismakros zu deaktiviern und am Ende wieder zu aktivieren. Den Berechnungsmodus setzt man entsprechend vorrübergend auf manuell.
Stören umfangreiche Berechnungen, dann vorher den Berechnungsmodus auf manuell setzen.
Nachfolgend ein Basis-Beispiel bei Makro-Lafzeit-Problemen.
Gruß
Franz

Private Sub Worksheet_Change(ByVal Target As Range)
'Variablendeklaration
Dim StstusCalc As Long
'Makrobremsen lösen
With Application
statuscalc = .Calculation
.Calculation = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
End With
' ab hier dann die weiteren Anweisungen des Makros
Beenden:  'Sprungadresse für Goto, wenn man das Makro vorzeitig abbrechen möchte
'Makrobremsen zurücksetzen
With Application
statuscalc = .Calculation
.Calculation = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
End With
End Sub

Beliebteste Forumthreads (12 Monate)

ackup erstellen wenn Zeilen gelöscht eurden

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread