Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: csv mit semikolon bei makro einlesen

csv mit semikolon bei makro einlesen
11.07.2007 10:54:54
a.
hallo zusammen,
ich habe ein problem beim öffnen einer csv datei durch ein makro.
bei normalen öffnen über excel wird korrekt über semikolon getrennt beim makro über komma.
ich habe schon mitbekommen das wohl bei der makroausführung auf us-standart umgeschaltet.
habe es schon über einen zusätzlichen registry versucht:
Schlüssel: HKCU\Software\Microsoft\Office\11.0\Excel\Options
Name: VBAAlwaysLoadUS
Typ: DWORD
Wert: 0
leider hat das zur lösung meines problemes nicht beigetragen.
eine lösung per vba ist nicht unbedingt für mich von interesse. da es um eine grundsätzliche einstellung handeln müsste und ich diese auch auf verschieden rechnern bzw. verschieden excel-datein durchführen muss.
ich bedanke mich im vorraus für eventuelle lösungsvorschläge

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: csv mit semikolon bei makro einlesen
11.07.2007 11:05:04
Renee
Mazwara a.
Ist der Code des Makros geheim ?
Awaiting more information... Renee

AW: csv mit semikolon bei makro einlesen
11.07.2007 11:13:31
a.
Nö,

Sub Makro7()
Workbooks.Open Filename:="S:\spool\es\susasak.csv"
Cells.Select
Selection.Copy
Windows("Konten Auswertung.xls").Activate
Sheets("Klinikum - Serv - Med - MVZ").Select
Cells.Select
ActiveSheet.Paste
Windows("susasak.csv").Activate
Application.CutCopyMode = False
ActiveWindow.Close
Selection.End(xlToRight).Select
Range("R1").Select
ActiveCell.FormulaR1C1 = "=RC[-9]&"" ""&RC[-8]"
Range("R1").Select
Selection.Copy
Range("Q1").Select
Selection.End(xlDown).Select
Range("R1495").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Auswertung").Select
End Sub


Anzeige
AW: csv mit semikolon bei makro einlesen
11.07.2007 12:50:00
Rudi
Hallo,
so:

Sub tt()
Dim strTxt As String, myArr, lngL As Long, wks As Worksheet
lngL = 1
Open "S:\spool\es\susasak.csv" For Input As #1
Set wks = Workbooks.Add(1).Sheets(1)
Do Until EOF(1)
Line Input #1, strTxt
myArr = Split(strTxt, ";")
With wks
.Range(.Cells(lngL, 1), .Cells(lngL, UBound(myArr) + 1)) = myArr
End With
lngL = lngL + 1
Erase myArr
Loop
Close #1
wks.Cells.Copy Workbooks("Konten Auswertung.xls").Sheets("Klinikum - Serv - Med - MVZ"). _
Cells
wks.Parent.Close False
With Workbooks("Konten Auswertung.xls").Sheets("Klinikum - Serv - Med - MVZ")
.Range(.Range("R1"), .Range("Q1").End(xlDown).Offset(0, 1)).FormulaR1C1 = "=RC[-9]&"" ""& _
RC[-8]"
End With
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: csv mit semikolon bei makro einlesen
11.07.2007 13:54:00
a.
Danke ersteinmal für die lösungsvorschläge.
ist es auch möglich den sachverhalt über einstellungen zu gewährleisten?
gruß

AW: csv mit semikolon bei makro einlesen
11.07.2007 14:03:28
Rudi
Hallo,

ist es auch möglich den sachverhalt über einstellungen zu gewährleisten?


Weiß ich nicht und halte ich nicht für sinnvoll, da du die Einstellungen an jedem Rechner vornehmen müsstest. So läuft das überall.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige