Zeileninhalt automatisch an andere Excel-Datei kop
11.12.2015 15:56:54
John
ich bin VBA-Anfänger und habe trotzdem ein (für mich) schwieriges Problem zu lösen.
Folgendes will ich mit Hilfe von VBA realisieren:
Ich habe zwei Excel-Dateien. Wenn jetzt in der einen Excel-Datei (Name: alt) in der Zelle G Abgeschlossen steht, soll die ganze Zeile (Also die Spalten A bis G) kopiert und in eine andere Excel-Datei (Name: neu) übertragen werden, und zwar in die erste Zeile, die frei ist.
Jetzt kommt die Herausforderung: Dies soll automatisiert geschehen ohne das die Excel-Datei (neu) geöffnet wird während der Prozedur.
Ich bin auf der Suche nach was verwertbaren in den unendlichen Weiten des Internets auf einen Code gestoßen, der mittels Verweisen den umgekehrten Fall realisiert, d.h. durch den Code greift eine Datei auf eine andere Datei zu und übernimmt bestimmte Zellen. Dies erfolgt ohne, dass die Datei, auf die zugegriffen wird, geöffnet werden muss. Ich glaube, die Verweise sind der einzige Lösungsweg um das obige Problem zu lösen.
Dies ist der besagte Code:
Sub test()
Dim strVerweis As String 'Verweis auf Zelle in anderer Datei
'diese Konstanten müssen angepasst werden
Const strPfad = "C:\Users\Adem\Desktop\" 'Pfad zur anderen Datei (mit Backslash am _
Ende)
Const strDatei = "alt.xlsm" 'Andere Datei
Const strBlatt = "Tabelle1" 'Tabellenblatt
Const strZelle = "A3" 'Zelladresse
strVerweis = "'" & strPfad & "[" & strDatei & "]" & strBlatt & "'!" & strZelle
With Workbooks("neu.xlsm").Worksheets("Tabelle1").Cells(4, 4)
.Formula = "=IF(" & strVerweis & "="""",""""," & strVerweis & ")" 'Formel eintragen
.Value = .Value 'Forml in Wert _
umwandeln
End With
End Sub
Über jede Hilfe bin ich dankbar!
Falls ich etwas falsch gemacht habe, dann verzeiht mir bitte, dies ist mein erster Eintrag :)
Vielen Dank im Vorraus
John Snow