ich habe mal wieder ein Problem...
und zwar möchte ich aus einer Externen Datei eine Zelle herauskopieren
und diese dann in mehrere Zellen in einer neuen Datei reinkopieren.
Mein Problem besteht darin, dass ich die Zelle nur in eine Zelle in der neuen Datei einfügen kann aber nicht in mehrere, denn ich möchte den anderen Daten die ich auch aus der externen Datei entnehme, ein Datum zuordnen.
Ich kopiere also zum Beispiel aus Datei A aus Spalte B 20 Datensätze, die in der Datei B in Spalte A eingefügt werden. Dies funktioniert auch wunderbar.
Jetzt gitb es in Datei A eine Zelle in der das aktuelle Datum steht und dann soll das Makro in Datei B in Spalte B, also neben die eingefügten 20 Daten, das Datum jeweils reinkopieren.
Wäre Super wenn mir jemand einen Tipp geben könnte.
Mein Code sieht bisher wie folgt aus
Sub InterneEinfügen()
Dim varSourceFile As Variant
Dim lngZeile, lngSpalte As Long
Dim endZeile As Long
Dim Quelle As Object, Ziel As Object
varSourceFile = Application.GetOpenFilename("Excel-Dateien (*.xl*), *.xl", 1, "Quelldatei_auswä _
hlen...")
'Abbrechen, falls keine Datei ausgewählt
If varSourceFile = False Then Exit Sub
'Quelldatei öffnen
Workbooks.Open Filename:=varSourceFile
'Datei einfügen
Set Quelle = ActiveWorkbook.Worksheets(1)
Set Ziel = ThisWorkbook.Worksheets(1)
'kopieren und einfügen
'Letzte gefüllte Zeile in Spalte A
lngZeile = Ziel.Cells(Rows.Count, 1).End(xlUp).Row + 1
Quelle.Range("B6:B100,F6:F100,D6:D100").Copy Ziel.Cells(lngZeile, 1)
endZeile = Ziel.Cells(Rows.Count, 1).End(xlUp).Row
Do Quelle.Cells(4, 13).Copy Ziel.Cells(lngZeile, 4) until endZeile = true
ActiveWorkbook.Close
'Speicher freigeben
Set Quelle = Nothing
Set Ziel = Nothing
Exit Sub
End Sub
Liebe Grüße Max