ich habe folgendes Problem und ich hoffe Ihr könnt mir dabei helfen es zu lösen. Ich bin noch ein Anfänger auf dem Gebiet der VBA und taste mich langsam an die Thematik heran.
Zu diesen Thema gibt es schon eine Diskussion in diesem Forum, jedoch in komplexerer Form und mir gelingt es nicht diese auf mein "einfaches" Problem anzuwenden.
Ich wähle eine CSV Datei aus und diese wird im Arbeitsblatt "Tabelle2" importiert.
Der funktionierende Code dazu:
Option Explicit
Sub HS_Einlesen()
Dim varFileToOpen As Variant
varFileToOpen = Application.GetOpenFilename("Alle Dateien, *.*,csv-Dateien,*.*")
If varFileToOpen = False Then Exit Sub
With Workbooks.Open(varFileToOpen, Local:=True)
.Worksheets(1).UsedRange.Copy Destination:=ThisWorkbook.Worksheets("Tabelle2").Cells(1)
.Close SaveChanges:=False
End With
End Sub
Nun soll noch der vollständige Dateiname der importierten Datei im Arbeitsblatt "Tabelle4" im Bereich B6 geschrieben werden.
Ich bin gespannt auf eure Vorschläge.
Mit freundlichen Grüßen
Frank