Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1500to1504
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
Inhaltsverzeichnis

Werte übertragen

Werte übertragen
06.07.2016 09:43:16
Erich
Hallo Freaks,
ich möchte aus dem Tabellenblatt Albo der Mappe Hauptwerte.xlsm die Werte der Zellen A10 bis F13 und G10 bis I15 in das Tabellenblatt Kibo der Mappe Phillip.xlsm in die Zellen A10 bis F13 und G10 bis I15 übernehmen.
Ich bitte um Eure Hilfe.
Gruß EM

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte übertragen
06.07.2016 09:50:07
Erich
Hallo Freaks,
bitte in VBA, nicht in Formeln.
Gruß EM

AW: Werte übertragen
06.07.2016 10:31:55
UweD
Hallo
reicht das so?

Sub EM()
Dim WB1 As Workbook, WS1, WS2
Dim Pfad As String, Datei As String
Pfad = "C:\Temp\test\"
Datei = "Hauptwerte.xlsm"
Set WS2 = ActiveWorkbook.Sheets("Kibo")
Set WB1 = Workbooks.Open(Pfad & Datei)
Set WS1 = WB1.Sheets("Albo")
WS1.Range("A10:F13").Copy WS2.Range("A10")
WS1.Range("G10:I15").Copy WS2.Range("G10")
WB1.Close False
End Sub

Gruß UweD

AW: ohne öffnen
06.07.2016 10:48:17
UweD
der Datei..

Sub EM()
Dim Pfad As String, Datei As String
Pfad = "C:\Temp\test\"
Datei = "Hauptwerte.xlsm"
With ActiveWorkbook.Sheets("Kibo")
.Range("A10:F13").Formula = "='" & Pfad & "[" & Datei & "]Albo'!RC"
.Range("A10:F13").Value = .Range("A10:F13").Value
.Range("G10:I15").Formula = "='" & Pfad & "[" & Datei & "]Albo'!RC"
.Range("G10:I15").Value = .Range("G10:I15").Value
End With
End Sub
LG UweD

Anzeige
AW: ohne öffnen
06.07.2016 12:36:57
Erich
Danke UweD, passt alles !

AW: Prima! owT
06.07.2016 12:38:43
UweD

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige