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

VBA - Zeilen copy+paste+save+delete

Forumthread: VBA - Zeilen copy+paste+save+delete

VBA - Zeilen copy+paste+save+delete
24.03.2022 21:06:05
Nilaa92
Hallo VBA-Profis, mag mir jemand von euch ein Code basteln? Und zwar möchte ich das automatisch von Montag-Freitag einmal täglich um 20:30 Uhr definierte Zeilen (Bspl. A2:G100) kopiert werden, in eine neue Arbeitsmappe eingefügt werden, gespeichert werden unter den Namen des jeweiligen Aktionsdatums und anschließend die kopierten Zeilen gelöscht werden.
Vielen Dank im Vorraus!
Liebe Grüße, Nico
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA - Zeilen copy+paste+save+delete
24.03.2022 21:24:13
ralf_b
da bist du besser dran wenn du dir mittels Powerautomate einen geplanten Flow anlegst.
AW: VBA - Zeilen copy+paste+save+delete
25.03.2022 10:03:18
UweD
Hallo
in den Codebereich von "DieseArbeitsmappe"

Private Sub Workbook_Open()
Application.OnTime TimeValue("20:30:00"), "Autospeichern"
End Sub
in ein Modul

Sub Autospeichern()
Dim TB1 As Worksheet, Wb2 As Workbook
Dim RngQ As Range, RngZ As String
Dim Pfad As String, Datei As String, Ext As String
If Weekday(Date, vbMonday)
LG UweD
Anzeige
AW: VBA - Zeilen copy+paste+save+delete
25.03.2022 11:09:01
Nilaa92
Hallo UweD,
leider funzt das nicht so ganz. Was habe ich übersehen?
Userbild
Userbild
AW: VBA - Zeilen copy+paste+save+delete
25.03.2022 11:47:58
UweD
Hallo
dann gibt es den Speicherpfad nicht
Nutzt du OneDrive?
Bei mir wäre das:
C:\Users\UweD\OneDrive\Desktop
LG
Anzeige
AW: VBA - Zeilen copy+paste+save+delete
25.03.2022 12:30:50
Nilaa92
Hi UweD,
das hat jetzt funktioniert allerdings funktioniert das automatische speichern nicht. Ich habe die zeit von 20:30 dementsprechend angepasst zum testen. Folgende Meldung erhalte ich:
Userbild
Ich habe den Code in "DieseArbeitsmappe" eingefügt, da geschieht gar nichts, und wenn ich den Code in "Tabelle1(MDE Erfassung)" einfüge erhalte ich die o.g. Meldung.
Userbild
Ich habe auch in den Excel Optionen die VBA/Makros aktiviert.
Anzeige
AW: VBA - Zeilen copy+paste+save+delete
25.03.2022 12:42:43
UweD
Hi
Benenne mal das Modul nicht genauso wie das Makro selbst.
AW: VBA - Zeilen copy+paste+save+delete
25.03.2022 14:03:47
Nilaa92
Wunderbar, es funktioniert! :) DANKE DAFÜR!!!
Hast du Lust mir bei einem weiteren Punkt zu helfen? Wenn ja, soll ich dafür einen neuen Beitrag öffnen oder hier reinschreiben?
;

Forumthreads zu verwandten Themen

ActiveWorkbook.SaveAs
Larissa

Hallo,
jetzt habe ich doch noch eine Frage.
In meinem Makro habe ich die Funktion: ActiveWorkbook.SaveAs 'Name_Datum'
Die Datei wird dann in Eigene Dateien abgespeichert. Wenn an diesem Platz schon eine Datei mit diesem Namen vorliegt, kommt die typische Abfrage, ob die Datei übers...
12.09.2009 17:32:49
Thread-ID: 1102264
3 Beiträge
activeWb.SaveAs funzt nicht wg. Workbook_BeforeSav
norman

Hi alle,
ich haben eine XLA-Datei geschrieben, die bei jedem Start von Excel aktiv ist. In dieser XLA-Datei wird
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
genutzt, um in einem zentralen DB-System einen Eintrag vorzunehmen und die Datei dann in der BeforeS...
13.03.2010 21:59:44
Thread-ID: 1145651
7 Beiträge
ActiveWorkbook.SaveAs Filename
Sandra

Hallo zusammen,
ich habe mal wieder ein Problem.
Mit dem nachfolgenden Code lasse ich automatisch speichern.
Dim Dateiname As String
Dateiname = oXlSM.Name
ActiveWorkbook.SaveAs Filename:="\\xxxx\Dokumentation\" & Dateiname & ".xml"
Das klappt auch fast. Allerdin...
21.06.2011 16:49:35
Thread-ID: 1219171
3 Beiträge
VBA _pivate_sub save as
Volker

Hallo,
ich habe ein Problem beim Speichern einer Excel Datei. Habe ein Makro im Internet gefunden, dieses eingebaut, funktioniert wunderbar ABER jetzt wird bei jedem speichern das Dialogfeld "Save as" aufgemacht.
ISt es möglich hier eine Abfrage einzubauen, welche prüft ob der Dateinam...
25.04.2012 07:38:29
Thread-ID: 1260797
4 Beiträge
Ausschreiben von Dateien per VBA SaveAs
Dateien

Guten Morgen,
Hab ein kleines Problem und hab mich schon den ganzen Morgen durchs Internet geschlagen und auch viel hier gefunden, aber irgendwie wills bei mir nicht funktionieren ...
Hab mir hier zur Auswertung von Messdaten n kleinen Excel Tabellensatz erschaffen damit ich die Inputfi...
25.05.2012 11:57:01
Thread-ID: 1264893
5 Beiträge
Anzeige
activesheet.saveas txt
Günter

Hallo,
kämpfe mich als Neuling durch VBA.
Ich habe ein xls-Arbeitsblatt mit x Zeilen.
Möchte nun jeweils 5 Zeilen als txt speichern.
Habe dazu folgenden code erstellt
Range("A2:A6").Select
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
Application...
04.08.2013 11:32:56
Thread-ID: 1325650
4 Beiträge
VBA Outlook 2010 Fehler (xlDialogSaveAs).Show
Thorsten

Hallo,
ich versuche eMail-Anhänge zu speichern.
Der genaue Speicherpfad steht in den Anhängen(.xls) der eMail.
Leider ist der Name/ Bezeichnung immer anders.
Die Anhänge werden temporär gespeichert, geöffnet und dann kommt mein Problem:
der Benutzer soll das Speicherverzeich...
07.06.2014 07:21:41
Thread-ID: 1365046
4 Beiträge
ThisWorkbook.SaveAs = Excel Absturz !? - PLS Help
Thorben

Hallo alle zusammen,
folgender Code legt eine Kopie ab und bringt Excel dann zum Absturz!?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Filestring1 = "\Test1.xlsm" Filestring2 = "\Test2.xlsm" If ActiveSheet.Range("G1") = "Bestand 1" = True Then ThisWor...
23.06.2014 14:57:24
Thread-ID: 1367056
6 Beiträge
Workbook.SaveAs einer schreibgeschüzten Datei
Bernhard

Hallo xls-ler, ich habe mein Problem der Automatisierung mit Hilfe der Recherche fast gelöst. Ein letzter Punk ist leider offen:
Der Befehl ActiveWorkbook.SaveAs soll eine Datei die Schreibgeschützt ist überschreiben. Ich dachte dadurch, dass man das Argument WriteResPassword:="test" mit dem...
16.07.2002 15:15:53
Thread-ID: 137076
3 Beiträge
Anzeige
ActiveWorkbook.SaveAs Dateiname aus Strings
Ben

Hallo,
ich habe folgendes VBA Programm als Makro geschrieben:
Dim pfad As String
ActiveSheet.Unprotect
Dim kursbezeichnung As String
kursbezeichnung = range("F2").Value
Application.DisplayAlerts = False
pfad = "C:\1\" & kursbezeichnung & "\Moodlezugangsdaten....
31.03.2015 14:50:36
Thread-ID: 1418235
4 Beiträge
Anzeige
SaveAs (VBA)
Markus

Guten Morgen....
Ich habe ein kleines Problem und komme einfach nicht dahinter, woran es liegt...
Habe eine Exceldatei, die von verschiedenen Personen bearbeitet werden kann...
Diese liegt auf einem Gruppenlaufwerk im Intranet...
Ich möchte das die Originaldatei gespeichert wird...
26.08.2015 08:09:27
Thread-ID: 1444442
3 Beiträge
Fehler bei ActiveWorkbook.Save auf Netzwerk
Henner

Guten Abend zusammen,
ich habe folgende Anweisung im Modul "Diese Arbeitsmappe": Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save End Sub
Das funktioniert soweit auch sehr gut. Die Datei liegt in einem Netzwerk und wird auch von dort geöffnet. Hat man die Datei...
23.10.2015 20:53:56
Thread-ID: 1454065
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige