Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Sicherungskopie über Makrocode..

Forumthread: Sicherungskopie über Makrocode..

Sicherungskopie über Makrocode..
17.09.2008 10:09:00
Ernst
Guten Morgen !
Habe wieder mal wieder ein Problem wo ich eure Hilfe benötigen würde...
Dieses Makro wird über eine Befehlsschaltfläche aufgerufen (Alle Einräge löschen) ich hätte gerne das eine Sicherungskopie erstellt wird bevor alle Einträge gelöscht werden und zwar in einem Ordner der sich Archiv nennt ist das möglich !

Private Sub CommandButton4_Click()
Dim wks As Worksheet
Dim JaNein As Variant
JaNein = MsgBox("Sind Sie wirklich sicher ?", vbYesNo, "Sicherheitsabfrage")
If JaNein = 6 Then ' Ja
Set wks = Worksheets("Untergestell ")
wks.Range("B3:C100").ClearContents
wks.Range("F3:G100").ClearContents
wks.Range("J3:K100").ClearContents
Set wks = Nothing
End If
End Sub


Wäre für Lösungsvorschläge sehr dankbar.
Lg.Ernst

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Sicherungskopie über Makrocode..
17.09.2008 11:26:44
Andre´
Hallo Ernst,
soll nur die Tabelle Untergestell gespeichert werden oder die gesamte Datei?
MFG Andre
AW: Sicherungskopie über Makrocode..
17.09.2008 15:17:00
Ernst
Hallo !
es soll die gesamte datei gespeichert werden..
Lg.Ernst
AW: Sicherungskopie über Makrocode..
17.09.2008 13:30:00
Rudi
Hallo,

Private Sub CommandButton4_Click()
Dim wks As Worksheet
Dim JaNein As Variant
JaNein = MsgBox("Sind Sie wirklich sicher ?", vbYesNo, "Sicherheitsabfrage")
If JaNein = 6 Then ' Ja
Set wks = Worksheets("Untergestell")
wks.Copy
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & wks.Name & "_" & Format(Now, "YYYYMMDDhhmmss")
.Close
End With
wks.Range("B3:C100,F3:G100,J3:K100").ClearContents
Set wks = Nothing
End If
End Sub


Gruß
Rudi

Anzeige
AW: Sicherungskopie über Makrocode..
17.09.2008 16:53:08
weingartner
Hallo Rudi !
Danke für die Lösung nur wo gehört was rein .
und wo kann ich den Archivordner angeben wo die Kopie rein soll
SaveAs ThisWorkbook.Path & "\" & wks.Name & "_" & Format(Now, "YYYYMMDDhhmmss")
Lg.Ernst
Danke..
18.09.2008 00:46:00
weingartner
Danke !

Forumthreads zu verwandten Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 16:09:18
Thread-ID: 1000289
7 Beiträge
Anzeige
Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
09.08.2008 00:24:43
Thread-ID: 1000422
1 Beitrag
Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 16:11:35
Thread-ID: 1000856
4 Beiträge
String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 16:55:00
Thread-ID: 1001221
8 Beiträge
aus Word-Datei in Excel kopieren
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
ich will ein Worde-file öffnen, alles kopieren und in ein xls-file einfügen. Kann mir da jemand weiterhelfen?
Danke schon im Voraus!
Gruss Florian
13.08.2008 13:22:00
Thread-ID: 1001444
10 Beiträge
Tastenkombinaiton Format kopieren
erkoo

Wer kennt die Tastenkombination für Format kopieren und Format einfügen?
Danke erkoo
13.08.2008 18:28:20
Thread-ID: 1001592
2 Beiträge
Anzeige
Datei vom Laufwerk kopieren
Walter

Guten Morgen Allerseits,
ich möchte gern, mit einem Makro, eine Datei, z.b. "Muster.xls"vom Zentrallaufwerk "R",
in mein "C" Laufwerk kopieren.
Beide Verzeichnisse sind gleich.
Danach möchte ich die das die kopierte Datei direkt geöffnet wird.
mfg Walter MB
14.08.2008 10:43:00
Thread-ID: 1001718
3 Beiträge
Datei kopieren mit xcopy
Meinolf

Hallo und guten Morgen ans Excel Forum ,
möchte gerne mit dem Befehl xcopy Dateien kopieren in vba mit Hilfe einer Variablen, der ich vorher den Pfad und Dateinamen zugewiesen habe x77. Irgendwie scheint das aber nicht zu funktionieren. Hat jemand eine Idee ?
Sub kopieren_auf_LW_f_cf(...
15.08.2008 11:47:22
Thread-ID: 1002054
7 Beiträge
Makro, das automatisch Werte kopiert und entnimmt
Maxine

Hallo zusammen,
ich brauche für meine Diplomarbeit ein Makro, das folgendermaßen funktionieren soll:
Im Sheet "Conditional Expectations K2" soll es die Werte (x und t_x) von jeder ID in Zelle B6 bzw. B7 einsetzen. Für ID 1 wären das H2 und I2 in B6 und B7, für ID 2 H3 und I3 in B6 und...
15.08.2008 15:10:23
Thread-ID: 1002150
6 Beiträge
Tabellenblatt kopieren
Pia

Hallo zusammen,
ist es möglich von einem Tabellenblatt (Januar) auf mehrere Tabellenblätter kopieren aber in der Monat Reihenfolge?
z.B. Tabellenblatt 1 heisst Januar, TB 2 = Februar usw..bis Dezember?
Wie kann ich eine Datei mit dem Namen ihres Tabellenblattes versehen?
Danke.....
17.08.2008 18:16:41
Thread-ID: 1002424
1 Beitrag
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum