Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aus Tabelle beim Schließen sichern

Forumthread: Daten aus Tabelle beim Schließen sichern

Daten aus Tabelle beim Schließen sichern
26.03.2015 11:55:04
Fritz_W
Hallo VBA Experten,
ich möchte, dass beim Schließen meiner Mappe, aus dem Tabellenblatt "Stammdaten" die Daten der Zellbereiche "A14:A113" und K14:M113" automatisch in die gleichen Zellbereiche und das gleichnamige Tabellenblatt ("Stammdaten") der Mappe "Sicherung" eingefügt werden. Die Mappe "Sicherung" befindet sich im gleichen Ordner.
Ich hoffe, dass sich das so realisieren lässt und bedanke mich im Voraus für eure Unterstützung.
Liebe Grüße
Fritz

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Daten aus Tabelle beim Schließen sichern
26.03.2015 15:12:22
Michael
Hallo Fritz!
zB so... Code muss in "Diese Arbeitsmappe":
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Quelle1 As Range
Dim Quelle2 As Range
Dim Ziel1 As Range
Dim Ziel2 As Range
Set Quelle1 = ThisWorkbook.Worksheets("Stammdaten").Range("A14:A113")
Set Quelle2 = ThisWorkbook.Worksheets("Stammdaten").Range("K14:M113")
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "Sicherung.xlsx"
Set Ziel1 = Workbooks("Sicherung.xlsx").Worksheets("Stammdaten").Range("A14:A113")
Set Ziel2 = Workbooks("Sicherung.xlsx").Worksheets("Stammdaten").Range("K14:M113")
Quelle1.Copy
Ziel1.PasteSpecial xlPasteValuesAndNumberFormats
Quelle2.Copy
Ziel2.PasteSpecial xlPasteValuesAndNumberFormats
With Workbooks("Sicherung.xlsx")
.Save
.Close
End With
End Sub
Annahme Mappe "Sicherung" existiert, im gleichen Ordner und enthält bereits ein Blatt "Stammdaten". Fehlerüberprüfungen sind noch nicht eingebaut.
LG
Michael

Anzeige
AW: Daten aus Tabelle beim Schließen sichern
26.03.2015 16:07:54
Fritz_W
Hallo Michael,
funktioniert wie gewünscht.
Ganz herzlichen Dank.
Liebe Grüße
Fritz

Freut mich, danke für die Rückmeldung owT
26.03.2015 16:17:43
Michael
.

AW: Daten aus Tabelle beim Schließen sichern
26.03.2015 15:25:11
fcs
Hallo Fritz,
oder auch so.
Gruß
Franz
'Code im VBA-Editor unter "DieseArbeitsmappe" der Datei.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strRange As String, StatusCalc As Long
Dim wkbSicherung As Workbook, wksSicherung As Worksheet
Dim bolSaved As Boolean
bolSaved = Me.Saved 'Speicherstatus der Datei merken
With Application
.EnableEvents = False
.ScreenUpdating = False
StatusCalc = .Calculation
.Calculation = xlCalculationManual
.StatusBar = "Sicherung der Stammdaten läuft"
End With
Set wkbSicherung = Application.Workbooks.Open( _
Me.Path & Application.PathSeparator & "Sicherung.xlsx") 'Name ggf. anpassen
Set wksSicherung = wkbSicherung.Worksheets("Stammdaten")
With Me.Worksheets("Stammdaten")
strRange = "A14:A113"
.Range(strRange).Copy
wksSicherung.Range(strRange).PasteSpecial Paste:=xlValues
strRange = "K14:M113"
.Range(strRange).Copy
wksSicherung.Range(strRange).PasteSpecial Paste:=xlValues
End With
wksSicherung.Calculate
wkbSicherung.Close savechanges:=True
With Application
.EnableEvents = True
.ScreenUpdating = True
.Calculation = StatusCalc
.StatusBar = False
End With
If bolSaved = True And Me.Saved = False Then
Me.Save
End If
End Sub

Anzeige
AW: Daten aus Tabelle beim Schließen sichern
26.03.2015 16:09:27
Fritz_W
Hallo Franz,
auch Dein Code funktioniert perfekt.
Ganz herzlichen Dank.
Liebe Grüße
Fritz
;

Forumthreads zu verwandten Themen

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...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Daten holen aus anderen Tabellenblättern
Albin

Hallo miteinander
Ich habe ein kleines grosses Problem. Muss bis ende Woche das Problem gelöst haben und ich weiss einfach nicht weiter.
In Tabelle 9000 Zelle I15 hab ich folgende Formel:
=SUMMEWENN('m-9000'!$G$1:$G$1869;B15;'m-9000'!$R$1:$R$1869)
Das heisst, ich gehe mit dies...
11.08.2008 18:57:30
Thread-ID: 1000967
2 Beiträge
Dropdownliste ausgew. gültige Werte aktualisieren
Flo

Hallo allerseits!
Ich habe ein Problem mit der Aktualisierung von bereits ausgewählten gültigen Werten in einer Dorpdownliste. Die gütligen Werte der Dropdownliste werden per Namensdefinition aus einem anderen Excelblatt gefüllt. Nun kommt es öfter mal vor, dass sich die Gültigen Werte im s...
16.08.2008 16:24:00
Thread-ID: 1002344
2 Beiträge
Anzeige
Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Tabelle mit Daten aus zweiter Tabelle ergänzen
Fritz_W

Hallo VBA-Experten,
die nachfolgend dargestellte Tabelle "Statistik" möchte ich entsprechend der Daten aus der Tabelle "Daten" Bereich E3:E52 jeweils wie nachfolgend beschrieben erweitern:
In der Tabelle "Daten" können im Bereich E3:E52 bis zu 50 Namen stehen.
Das Makro soll diese N...
19.08.2008 19:49:00
Thread-ID: 1003024
10 Beiträge
Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Auslesen von Werten aus einer Combobox
Werten

Hallo erstmal,
ich habe eine ComboBox und diese schreibt Werte jeweils in die nächste Zeile.
Wenn ich aber mehrmals hintereinander den selben Wert auswähle passiert leider nichts.
Wie kann ich mehrmals den selben Wert auswählen und jeweils in die nächste Zeile schreiben?
Über ei...
30.08.2008 12:24:00
Thread-ID: 1006032
5 Beiträge
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Anzeige
Werte aus Matrix auslesen j. mit richtiger Bsp.
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer separaten Arbeitsmappe (im Beispiel der Bereich Arbeitsmappe "B") liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte "C" untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalt...
05.09.2008 13:33:00
Thread-ID: 1007667
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige