Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1500to1504
1500to1504
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte übertragen

Forumthread: 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

Anzeige

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

Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige