Anzeige
Archiv - Navigation
492to496
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA: Geöffnetes Workbook wieder aktivieren

VBA: Geöffnetes Workbook wieder aktivieren
01.10.2004 13:01:34
Joe
Hiho,
hab n einfaches(?) Problem : wenn ich eine datei über dialogbox habe öffnen lassen..wie greife ich dann wieder darauf zu ?
ich möchte mal wieder daten von einer tabelle in ne andere kopieren..

Sub DatenHolen()
ChDir CurDir
Dim Daten As Variant
Daten = Application.GetOpenFilename("Excel-Arbeitsmappe (*.xls),  *.xls", , "Rohdaten auslesen")
Workbooks.Open Daten
Range("C19:C27").Select
Selection.Copy
ThisWorkbook.Activate
Range("C6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
[HIER WILL ICH ZURÜCK ZUR GEÖFFNETEN DATEI..]
Range("R19:R27").Select
Selection.Copy
u.s.w
End Sub

wer kann mir den passenden befehl sagen ?
danke mal wieder für eure hilfe ( ohne das forum hier wär ich a.A. ;) )
Joe

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Geöffnetes Workbook wieder aktivieren
Uduuh
Hallo,
verweise mit einer Objektvariablen darauf.
Workbooks.Open Daten
Set wbkDaten=ActiveWorkbook
Du brauchst aber gar nicht hin und her zu hüpfen.
Dim Daten As Variant
Daten = Application.GetOpenFilename("Excel-Arbeitsmappe (*.xls), *.xls", , "Rohdaten auslesen")
Workbooks.Open Daten
Range("C19:C27").Copy
ThisWorkbook.Sheets(1).Range("C6").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False
'[HIER WILL ICH ZURÜCK ZUR GEÖFFNETEN DATEI..]
Range("R19:R27").Copy
u.s.w
End Sub
Gruß aus'm Pott
Udo
Anzeige
AW: VBA: Geöffnetes Workbook wieder aktivieren
Reinhard
Hi Joe,

Sub DatenHolen()
ChDrive Left(CurDir, 1)
ChDir CurDir
Set wbZiel = ThisWorkbook.Worksheets("Tabelle1")
Dim Daten As Variant
Daten = Application.GetOpenFilename("Excel-Arbeitsmappe (*.xls),  *.xls", , "Rohdaten auslesen")
Workbooks.Open Daten
Set wbQuelle = ActiveWorkbook.Worksheets("Tabelle1")
With wbQuelle
.Range("C19:C27").Copy Destination:=wbZiel.Range("C6")
.Range("R19:R27").Copy Destination:=wbZiel.Range("R6")
'usw
End With
wbZiel.Activate
Set wbZiel = Nothing
Set wbQuelle = Nothing
End Sub

Gruß
REinhard
AW: VBA: Geöffnetes Workbook wieder aktivieren
Joe
Hi ihr beiden..
das löst mein Problem UND enthält ne Reihe interessanter neuer Anregungen !
Also..vielen Dank für die schnellen und kompetenten Antworten !
mit neuem Feuereifer ;)
Joe
Anzeige

22 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige