Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten aktualisieren

Forumthread: Daten aktualisieren

Daten aktualisieren
24.07.2006 12:28:19
Stefan
Hallo,
ich habe ein Makro bei dem ein anderes Excelfile geöffnet wird. Dieses wird geöffnet und fragt nach dem Bezug mit den zu aktualisierenden Daten. Ich muss dann immer den Pfad suchen und das bereits geöffnete Excel-sheet anklicken aus dem der Bezug kommt.Dann auch noch das entsprechende Register.
Kann man ein Makro schreiben in dem immer das aktive sheet aus dem bereits geöffneten Excel-sheet als Bezug nimmt?
Danke im Vorraus.
Gruß Stefan
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aktualisieren
24.07.2006 19:43:01
fcs
Hallo Stefan,
ordne zu Beginn des Makros, das das andere Excelfile öffnet, die aktive Datei einer Workbook-Objekt-Variablen zu und das aktive Register einer Worksheet-Objekt-Variablen zu. Im weiteren Ablauf des Makros kannst du über diese Variablen auf die ursprunglich aktive Datei/Register zugreifen. 

Sub Test()
Dim wksAktiv As Worksheet, wbAktiv As Workbook
'Aktive Datei einer Objekt-Variablen zuordnen
Set wbAktiv = ActiveWorkbook
'Aktives Register einer Objekt-Variablen zuordnen
Set wksAktiv = ActiveSheet
'Code zum öffnen der zweiten Datei
' Beispiel für Informationen aus ursprünglich aktiver Datei holen
Bezug = wbAktiv.Sheets(1).Range("C3")
Register = wksAktiv.Name
End Sub

gruss Franz
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