Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zurückspringen in geöffnete Datei

Zurückspringen in geöffnete Datei
08.12.2006 11:13:50
georg
Hallo liebe Excel Welt,
wie kann ich in meine "Ausgangsdatei" zurückspringen, wenn ich mir aus einer anderen Datei Infos geholt habe.
Bislang habe ich ff.:
Application.Dialogs(xlDialogOpen).Show _
"D:\TSI\SO&BA Daten\2006"
Sheets("Top 13").Select
Range("A1:BB67").Select
Selection.Copy
Windows("b_Bopp_150_2006.12.04_49_kurz_opps Test.xls").Activate
Sheets("Top 13").Select
....blabla...
speziell die Zeile:
Windows("b_Bopp_150_2006.12.04_49_kurz_opps Test.xls").Activate
möchte ich nicht als feste Vorgabe haben, da der Dateiname immer wieder anders ist.
Ich krieg es nicht hin..
Danke und Gruß
Georg

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zurückspringen in geöffnete Datei
08.12.2006 11:16:17
Matthias
Hallo Georg,
lass das Activate und Select weg und greife direkt auf die Zelle zu, so in der Art:

Variable = Workbooks("b_Bopp_150_2006.12.04_49_kurz_opps Test.xls").Sheets("Top 13").Range("A1")
Dan wechselt die aktive Mappe nicht mehr.
Gruß Matthias
AW: Zurückspringen in geöffnete Datei
08.12.2006 11:33:41
georg
Hallo Matthias,
Hört sich ja ganz einfach an, aber kann ich denn damit ganze Bereiche rüber kopieren?
Ich will ja den Bereich: Range("A1:BB67") aus der "Vorwochendatei" (b_Bopp_150_2006.12.04_48_kurz_opps ) in die jetzt aktuelle Datei (b_Bopp_150_2006.12.04_49_kurz_opps ) einbauen.
Gruß
Georg
Anzeige
AW: Zurückspringen in geöffnete Datei
08.12.2006 11:39:46
Matthias
Hallo Georg,
geht auch:

Sub test()
Range("A1:A10").Value = Workbooks("Mappe2").Sheets("Tabelle1").Range("A1:A10").Value
'oder:
Workbooks("Mappe2").Sheets("Tabelle1").Range("A1:A10").Copy Destination:=Range("B1:B10")
End Sub

Range() ohne was davor bezieht sich auf das aktive Blatt
Sheets() ohne was davor bezieht sich auf die aktive Mappe.
Gruß Matthias
AW: Zurückspringen in geöffnete Datei
08.12.2006 11:58:17
georg
Hallo Matthias,
danke, aber muß ich da nicht noch irgendwie den Pfad angeben, auf dem die Datei steht? Und eigentlich bräuchte ich auch die Formate dieser Datei. Hm - geht es denn nicht, daß ich es mir rüberkopiere und wieder zurückspringe?
Ich habe das "49" des Dateinamens sowieso in den Variablen. Könnte ich evtl. das auch zum Zurückspringen nehmen und in den activate Befehl die Variable einbauen?
ungefähr so:
Windows("b_Bopp_150_2006.12.04_"&KW&"_kurz_opps Test.xls").Activate
Danke und Gruß
Georg
Anzeige
AW: Zurückspringen in geöffnete Datei
08.12.2006 12:05:32
Matthias
Hallo Georg,
aber muß ich da nicht noch irgendwie den Pfad angeben, auf dem die Datei steht?
Nein, denn die Datei muss ja geöffnet sein und es können nicht 2 Dateien gleichen namens offen sei, auch wenn sie in Verschiedenen Verzeichnissen stehen.
Und eigentlich bräuchte ich auch die Formate dieser Datei.
Das geht mit meinem zweiten Beispiel, da werden die Zellen incl. Format kopiert.
Das Select ist echt nicht nötig, lies dazu mal diesen Artikel:
https://www.herber.de/xlfaq/xlbasics/main_sel.htm
Gruß Matthias
Anzeige
AW: Zurückspringen in geöffnete Datei
08.12.2006 15:00:57
georg
Hallo Mattias,
danke für Deine Hilfe, aber ich kriege es nicht hin.
Der Hinweis mit Select ist klasse.
Gruß
Georg
AW: Zurückspringen in geöffnete Datei
08.12.2006 15:09:12
Matthias
Hallo Georg,
was kriegst du nicht hin?
Zeig mal den Code.
Gruß Matthias
AW: Zurückspringen in geöffnete Datei
08.12.2006 15:38:52
georg
Danke, Matthias, daß Du nachfragst, ich hätte Dich jetzt nicht mehr belästigen wollen.
Also, Du hast es so gewollt:
;=)
Ich kann die Quelldatei der Vorwoche mit Deinem Code ansteuern und bekomme die Daten. Auch die Formate kommen korrekt mit. OK soweit.
Aber es muß flexibel sein, da die Quellatei jede Woche anders heißt. Drum habe ich versucht eine Variable mit der Bezeichnung der Kalenderwoche (KW) einzubauen. Das klappt aber nicht. Das Datum habe ich schon aus dem Namen rausgenommen, um den Namen zu vereinfachen.

Sub Makro1()
Dim KW As Integer
KW = 49
Application.Dialogs(xlDialogOpen).Show _
"D:\TSI\SO&BA - LiveCycle\Bopp_CRM Daten\2006"      'man. Aussuchen und Öffnen der Quelle
Windows("b_Bopp_150_49_kurz_opps.xls").Activate     'Zurück in Zieldatei
Sheets.Add.Name = "Top 13 (VWx)"                    'Zielblatt erstellen
Workbooks("b_Bopp_150_48_kurz oppty.xls"). _
Sheets("Top 13").Range("A1:O50").Copy Destination:=Range("B1:B50")
End Sub

Wenn ich jetzt statt der 49 (oder 48) die Variable KW mit &"KW"& einbaue, zeigt er mir einen Kompilierfehler an.
?
Gruß
Georg
Anzeige
AW: Zurückspringen in geöffnete Datei
08.12.2006 16:28:14
Matthias
Hallo Georg,
arbeite besser mit Variablen:

Dim Ziel As Workbook, Quelle As Workbook
Set Ziel = ActiveWorkbook 'Ziel->Aktive Mappe
Application.Dialogs(xlDialogOpen).Show _
"D:\TSI\SO&BA - LiveCycle\Bopp_CRM Daten\2006"      'man. Aussuchen und Öffnen der Quelle
Set Quelle = ActiveWorkbook' Quelle->jetzt aktive Mappe
Ziel.Sheets.Add.Name = "Top 13 (VWx)"
Ziel.Sheets("Top 13").Range("A1:O50").Copy Destination:=Range("B1:B50")

Das stimmt jetzt so sicher nicht, dazu hab ich den Code zu wenig durchschaut, aber vielleicht verstehst du das Prinzip, mit Variablen zu arbeiten, die auf eine Mappe zeigen (die Zuweisung erfolgt mit SetVarName = ...). Dann musst du den Bezug nicht mehr unter Angabe des Mappennamens schreiben, sondern kannst es eben so tun:
Ziel.Sheets("...").Range("..")... usw.
Viel Erfolg!
Gruß Matthias
Anzeige
Danke !
08.12.2006 16:39:28
georg
Hallo Matthias,
jetz hab ich was zum knacken - aber das sieht gut aus.
Vielen Dank für die Mühe mit mir.
Gruß
Georg

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge

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
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4