Office: (Office 2013) Workbook.open bzw. Rechtsklick öffnen?

Hallo zusammen,

Ich habe innerhalb einer grösseren Arbeitsmappe u.a. ein Makro das eine .csv öffnet und nach den Daten sortieren soll.
Nun scheint aber beim öffnen per Workbook.open irgendetwas falsch zu laufen. Wenn ich die Datei mit Rechtsklick "Öffnen" öffne erhalte ich das:
(Rechtsklick neuer Tab zum anschauen)
Versuche ich das nun mit Workbook.open erhalte ich das (Man beachte A1):

Nun funktioniert leider das Makro auch nicht mehr wie gewünscht.

Code:

Sub Datum_sort()
'Sortiert auf geöffnetem Sheet die Daten und stellt die korrekte
'erkennung durch Excel sicher

'Variable benennen
Dim lastrow As Long
Dim Pfad As String

'Variable Wert zuweisen
Pfad = "H:\Kleberoboter\Cockpit\Tagmeldungen\"
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

'Öffnet, aktiviert und wählt
Workbooks.Open Pfad & "tag.csv"
Workbooks("tag").Activate
Worksheets("tag").Select


'Stellt durch Bestätigung aller Daten in allen Zellen in Spalte A sicher
'das Excel das Datum richtig erkennt
With Range("A2:A" & lastrow)
    .Value = .Value
End With
Application.Calculate



'Sortiert mit Range.sort die Daten in absteigender Reihenfolge
Range("A1:Q" & lastrow).Sort key1:=Range("A2:A" & lastrow), _
   order1:=xlAscending, Header:=xlYes
   
'Speichern
Workbooks("tag").Close SaveChanges:=True
   
End Sub

Irgendeine Idee?
Mit Makrorecorder erhalte ich auch nur workbook.open, welcher eben nicht so funktioniert wie er soll.
Danke und
Mit besten Grüssen
Patrick

 

Hallo Patrick,

dein Problem besteht darin, dass in folgender Makrozeile
Workbooks.Open Pfad & "tag.csv"
das Trennzeichen der englischen Vorgabeversion verwendet wird, wobei dieses das Komma "," ist und nicht das Semikolon ";".
Dieses Problem müsste normalerweise beseitigbar sein, wenn man im Makro explizit die lokale Sprachversion (=deutsch bzw. ";" als Trennzeichen: Siehe Sprachregion-Einstellungen in der Windows-Systemsteuerung) anspricht.
Das erreicht man mit folgender Abänderung obiger Makrozeile (rote Zusätze):
Workbooks.Open Filename:=Pfad & "tag.csv", Local:=True

 

Hat mehr oder weniger geklappt. Muss nur nach anwendung direkt sortieren und kopieren. Danke
Gruss
Patrick