ich möchte gerne Daten von einer zweiten Excel-Tabelle importieren.
Das funktioniert auch wie gewünscht mit folgendem Code (bitte um Nachsicht, ich bin totaler Anfänger):
Sub Kalorienimport()
Dim Quelle As Object, Ziel As Object
Dim Datei As String
' Kalorienimport Makro
'Dialog "Datei öffnen" anzeigen
Datei = Application.GetOpenFilename("Excel-Dateien(*.xl?),*xl?")
'Abbrechen falls keine Datei ausgewählt
If Datei = "Falsch" Then
MsgBox "keine Datei ausgewählt", , "Abbruch"
Exit Sub
End If
'MsgBox "Ausgewählte Datei: " & Datei, , ""
'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Datei
Range("F2").Select
Selection.Copy
Windows("10km_45.xlsm").Activate
ActiveSheet.Range("I9").PasteSpecial Paste:=xlPasteValues
End Sub
Die Zieldatei ist so aufgebaut, dass ich in einer Spalte (A) eine Datumsangabe habe. Nun würde ich gerne aus der Quelldatei (die ebenfalls das jeweilige Datum mit dem zu importierendem Wert in einer Zeile aufweist) in die richtige Zeile importieren. In meinem Makro importiere ich ja immer in eine festgelegte Zelle (nämlich "I9").
Ist es möglich, dass ich eine Abfrage ins Makro einbaue, die erkennt zu welchem Datum der Wert gehört und diesen dann an die richtige Stelle importiert?
Sorry für die Textwand, ich hoffe man kann verstehen, wohin ich will.
Viele Grüße
Chris