Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1800to1804
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro zum Datei öffnen mit Auswahlfunktion

Makro zum Datei öffnen mit Auswahlfunktion
20.12.2020 22:10:57
wennerfaellt
Hallo,
ich habe ein Problem.
ich habe mehrere csv-Dateien aus einer Arbeitszeit-App, die ich per Makro für unseren Firmen-Arbeitszeitnachweis aufbereiten will.
Ich habe zum öffnen mit Auswahl diesen Code gefunden:

Sub öffnen()
Application.Dialogs(xlDialogOpen).Show
End Sub

Problem dabei, wenn ich über diesen Code die Datei öffne, erscheint sie mit Semicolons und Spaltentrennungen die leider sehr unregelmäßig sind.
https://www.herber.de/bbs/user/142471.xls
Wenn ich dieselbe Datei "per Hand über Datei öffnen öffne sieht sie so aus:
https://www.herber.de/bbs/user/142470.xls
wo liegt der Fehler?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Datei öffnen mit Auswahlfunktion
20.12.2020 22:34:28
onur
Mach es so:
Dim Datei
Datei = Application.GetOpenFilename("CSV Files (*.csv), *.csv")
If Datei  False Then
Workbooks.Open Filename:=Datei, Local:=True
End If

Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige