Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
536to540
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
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten auslesen/übergeben VBA

Daten auslesen/übergeben VBA
21.12.2004 13:21:33
Eric
Hallo zusammen,
habe ein Problem, dass ich gerne mit einem Makro lösen würde:
In einer Datei "Datei 1" stehen in verschiedenen Blättern (Tabelle1, Tabelle2, etc.) in den jeweiligen Zellen A1 Zahlen. Diese Zahlen möchte ich gerne (am Besten mit einer Schaltfläche) in eine zweite Datei "Datei 2" übertragen. Diese sollen dann in der zweiten Datei in den Zellen A1, A2, etc. stehen.
Im voraus vielen Dank für Eure Hilfen.
Mfg
Eric

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten auslesen/übergeben VBA
21.12.2004 16:00:07
Daniel
Hallo Eric,
hier ein Beispiel
Gruss
Daniel

Sub Datei()
Dim STGFileName As String
On Error Resume Next
ChDrive "C"
ChDir "C:\"
STGFileName = "abcd.xls"
Workbooks.Open Filename:=STGFileName
Workbooks(STGFileName).Sheets("sheet1").Cells(1, 1) = Workbooks("12345.xls").Sheets("sheet1").Cells(1, 1)
Workbooks(STGFileName).Sheets("sheet1").Cells(1, 2) = Workbooks("12345.xls").Sheets("sheet2").Cells(1, 1)
Workbooks(STGFileName).Save
Workbooks(STGFileName).Close
End Sub

AW: Daten auslesen/übergeben VBA
21.12.2004 17:07:03
Eric
Vielen Dank Daniel!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige