Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

305 Forumthreads zu ähnlichen 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
Anzeige
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
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
Anzeige
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
1
1
9
2
7
2
2
4
5
4
2
1
4
1
1
5
4
10
6
5
3
1
1