Daten aus Sheet in anderer Mappe lesen & kopieren

Computer: Software & Programmierung Office Software
1

Hallo Leute

Ich möchte Daten aus einem Sheet(„daten“) in eine anderen Mappe auslesen und in meine reinkopieren.

z.B. C1,C2 und C3, sollen dann in die neue Mappe F1, F2 und F2

Habe etwas Probleme beim auslesen und kopieren. Habe mir mal was aus verschiedenen Ideen gebastelt. Aber das wir zu kompliziert. Gibt es das auch was einfacherers ?

Ordner = Worksheets(Tabelle1).Cells(„Pfad“)
Datei = Dir(Ordner & „*.xls“)

Workbooks.Open Ordner & datei, 0, True
WorkbookName$ = ActiveWbk.Name

Sheetfound = False
For j = 1 To Sheets.Count
If Sheets(j).Name = „daten“ Then
Sheetfound = True
End If
Next j

If Sheetfound Then
Thema = Worksheets(„daten“).Range(„F1“)
j = 0
ExitLoop = False
Do Until ExitLoop
channel = Worksheets(„daten“).Cells(j + 35, 2)
If channel = „“ Then
ExitLoop = True
etc.

Gruss
Flexo

2

Ich möchte Daten aus einem Sheet(„daten“) in eine anderen
Mappe auslesen und in meine reinkopieren.

z.B. C1,C2 und C3, sollen dann in die neue Mappe F1, F2 und
F2

Hallo Flexo,

ungetestet vielleicht so:

Sub nn()
Dim wks1 As Worksheet, Ordner As String, Datei As String
On Error GoTo Ende
Application.ScreenUpdating = False
Set wks1 = ActiveSheet
Ordner = Worksheets("Tabelle1").Cells("Pfad")
Datei = "MeineMappe.xls"
If Right(Ordner, 1) "\" Then Ordner = Ordner & "\"
If Dir(Ordner & Datei) "" Then
 Workbooks.Open Ordner & Datei
Else
 MsgBox Ordner & Datei & " nicht vorhanden!"
End If
ActiveWorkbook.Worksheets("Daten").Range("C1:C3").Copy Destination:=wks1.Range("F1")
ActiveWorkbook.Close savechanges:=True
Ende:
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard

3

Danke Reinhard

Angepasst läuft das perfekt :smile: