Name Import Datei in Zelle schreiben
18.05.2017 16:39:55
Sandro
Hoffentlich kann mir jemand bei meinem Problem behilflich sein:
Ich importiere aus einer von mir ausgewählten Datei definierte Daten. Dies funktioniert soweit wunderbar. Jetzt möchte ich das Makro so erweitern, dass zusätzlich der Dateiname der importierten Datei Minus die ersten 6 und minus die letzten 5 Zeichen in die Zelle K2 übernommen wird.
Beispiel, die Datei heisst "RC0077 Smile soft IDP angepinselt Neu1.xlsm"
In K2 soll also "Smile soft IDP angepinselt Neu1" stehen.
Hier mein bisheriger Code:
Option Explicit
Sub Datenimport()
Dim Messdaten As Variant
Dim Zieldatei As Workbook
Messdaten = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xlsm), *.xlsm", _
_
_
Title:="Eine Datei auswählen")
If Messdaten = False Then Exit Sub
Set Zieldatei = Workbooks.Open(Messdaten)
Zieldatei.Worksheets("Daten").Range("A4:J" & Cells(Rows.Count, 1).End(xlUp).Row).Copy
ThisWorkbook.Worksheets("Stammdaten").Cells(2, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'Zieldatei.Worksheets("Stammdaten").Range("K2").Value = Left(Messdaten.Name, Len(Messdaten. _
_
_
Name) - 5)
Zieldatei.Close savechanges:=False
Set Zieldatei = Nothing
End Sub
Der fett markierte Teil ist mein Versuch den Dateinamen zu übernehmen.
Danke für die Hilfe.
Grüsse