Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1596to1600
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
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Zelle vor speichern auslesen

VBA: Zelle vor speichern auslesen
19.12.2017 11:01:50
Bernd
Hallo zusammen,
Hab ein Problem, bei dem ich nicht weiter komme und Hilfe brauche.
Ich exportiere aus Mappe mehrere Tabelle in neue Mappe und danach wird diese Datei wie folgt abgespeichert. 
ChDir "C:\Test\Import"
ActiveWorkbook.SaveAs Filename:="C:\Test\Import\ABC.xlsx", FileFormat:=xlOpenXMLWorkbook,  _
CreateBackup:=False
Windows("ABC.xlsx").Close
Nun möchte ich, bevor die Mappe ABC.xlsx geschlossen wird, dass aus der Tabelle "123" die Zelle B2 ausgelesen wird und in geschlossene Mappe Test.xlsm in Tabelle "Abfragen" Zelle G1 übertragen wird.
Ich hoffe, ich konnte mich einigermaßen verständlich ausdrücken.
Danke im Voraus!!!
Userbild
Office Version 2016 Pro 32bit - Windows10 Pro 64 bit
"Wenn du jemanden ohne Lächeln triffst, schenke ihm dein's!"

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Zelle vor speichern auslesen
19.12.2017 12:27:44
fcs
Hallo Bernd,
das Makro kann man etwa wie folgt ergänzen. Um sicher zugehen sollte beim Öffnen der 2. Datei der Pfad mitangegeben werden.
Gruß
Franz
Sub Test()
Dim wkb As Workbook
Dim varWert As Variant
Dim Pfad As String
ChDir "C:\Test\Import"
Set wkb = ActiveWorkbook
wkb.SaveAs Filename:="C:\Test\Import\ABC.xlsx", FileFormat:=xlOpenXMLWorkbook, _
CreateBackup:=False
varWert = wkb.Worksheets("123").Range("B2").Value
wkb.Close savechanges:=True
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Pfad = "C:\Test\Import\"                    'ggf. anpassen
Set wkb = Application.Workbooks.Open(Filename:=Pfad & "Test.xlsm")
wkb.Worksheets("Abfragen").Range("G1").Value = varWert
wkb.Close savechanges:=True
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub

Anzeige
AW: VBA: Zelle vor speichern auslesen
19.12.2017 16:05:38
Bernd
Hallo Franz,
Danke für deine Hilfe!!!
Kleines Problem taucht auf!
Kurz nochmal zum Ablauf:
1. Mappe1 wird geöffnet und nur UserForm wird angezeigt ("application.Visible=false)
2. Bei Klick auf Button startet der Export der div. Tabellen in neue Mappe und die neue Mappe wird als ABC.xlsx abgespeichert und geschlossen. Der Zellwert wird korrekt übertragen in Mappe2. Soweit so gut.
Nun folgt das Problem ABC.xlsx (das ist nicht Mappe2) und Mappe2 sind zwar geschlossen und gespeicht, aber Mappe1 zeigt nun seine übrigen Tabellen, obwohl ich "application.Visible=false beim Öffnen von Mappe1 in Workbook open als Anweisung stehen habe.
Wie muss ich den Code ändern, damit die Mappe1 unsichtbar bleibt?
Lieben Gruß aus Bremen
Bernd
Anzeige
AW: Erledigt!
20.12.2017 12:03:15
Bernd

316 Forumthreads zu ähnlichen Themen

Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Anzeige
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 Beiträge
Anzeige
Formel in Zellen einfügen!
Andi

Hallo zusammen,
ich würde gerne mit Hilfe eines Makros eine Formel in die die Spalte "Q" einfügen.
Die Formel soll jedoch nur in de Zellen der Spalte "Q" eingetragen werden,
wo auch ein Wert in der jeweiligen Zeile der Spalte "L" vorhanden ist.
Ich hoffe es kann mir jemand bei...
30.10.2008 21:03:30
Thread-ID: 1020721
6 Beiträge
Formelwerte in bestimmte Zellen
Sebastian

Hallo zusammen,
ich möchte gerne mit Hilfe eines Makros oder ähnlichem die Formelwerte eines bestimmten Arrays in ein bestimmtes Array eintragen lassen, wenn man darauf klickt.
Ist dies möglich? Wenn ja, wie? ;)
Vielen Dank für eure Hilfe und falls Ihr noch etwas mehr Info braucht,...
17.11.2008 21:32:00
Thread-ID: 1025413
7 Beiträge
formel in zelle,mit makro
rolf

hallo
wie kann ich diese formel =DATEDIF(E2;$F$1;"Y") mit einem makro in tabelle1 zelle f2 eintragen.
mfg rolf
25.11.2008 23:12:13
Thread-ID: 1027900
3 Beiträge
Laufzeitfehler 1004 bei Formeleinfügen in Zelle
Werner

bei folgender Formel
ActiveCell.FormulaR1C1 = "=RC[-2]*100/RC[-1]"
erhalte ich Laufzeitfehler 1004. Woran kann es liegen?
Gruß Werner.
26.11.2008 14:31:29
Thread-ID: 1028037
7 Beiträge
Formel gegen Doppelvergabe einer Zellennummer
anke2245

Hallo, Excelfreunde,
es taucht ein kleine Unwissenheit auf.
Folgendes: In einer Vereinstabelle muß ich 16 Vereinen eine Codenummer zuweisen ( Zweistellig )
also von 1- 16.
Da ich nicht das ganze Arbeitsblatt überblicken kann möchte ich, daß ich in die Eingabenzellen vorher eine...
06.12.2008 18:44:00
Thread-ID: 1030727
3 Beiträge
Anzeige

Links zu Excel-Dialogen

UserForm

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
13
2
4
5
10
5
6
2
6
2
5
1
5
4
8
4
4
5
3
10
4
3
2
4
1