Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

CSV Semikolon getrennt geht in Tabelle aber nicht korrekt bei Datei Öffnung...

Frage Entwicklung VB for Applications

Mitglied: darkunicorn

darkunicorn (Level 1) - Jetzt verbinden

07.09.2010 um 00:32 Uhr, 6289 Aufrufe, 3 Kommentare

Bei manuellem Aufruf funtioniert die Semicolon-Trennung, bei Datei-Öffnung nicht...

Hallo Zusammen,
ich möchte vorweg erwähnen, daß VBA von mir nur sehr spärlich (1-2 mal im Jahr) benötigt wird, sodas ich nicht über DIE Kenntnisse schlechthin verfüge und deshalb an folgendem Punkt scheitere.

Die ursprüngliche Aufgabenstellung war, einen Macro unter Ecxell 2007 zu schreiben, der es dem User ermöglicht die richtige CSV-Datei zu seinem Dokument zusätzlich zu öffnen und Ihm die Arbeit erleichtern sollte. Leider sind meine User nicht sehr bewandert (z.B. Errormessages mit Ja/Nein-Möglichkeit führen zur Frage "Was muss ich hier machen?") und führten dazu die CSV gleich beim öffnen der XLSM-Datei zu öffnen. Hier liegt nun mein Problem. Was innerhalb der Tabelle manuell noch fehlerfrei möglich war, funktioniert hierbei nicht mehr. Alle Zeilen der CSV werden jeweils ohne Semicolon-Trennung/Zeile dargestellt, wohingegen alle Zellen korrekt bei manuellem Aufruf in der Tabelle angezeigt werden. Der verwendete Sub lautet:


Private Sub Workbook_open()

<Formatvorgaben für die XLSM-Datei>

Workbooks.OpenText Filename:=<Pfad- und Dateiname>
With ActiveSheet
.Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).TextToColumns _
DataType:=xlDelimited, Semicolon:=True
End With

End Sub


Wie gesagt, bei einem manullem Aufruf geht es wunderbar, beim "Workbook_open" funktioniert die Semicolon-Trennung nicht mehr.

Irgendwie hab ich hier ein Brett vorm Kopf und hoffe Ihr könnt mir helfen...

Grüße und danke im Vorraus

Alex
Mitglied: 76109
07.09.2010 um 07:44 Uhr
Hallo darkunicorn!

Zitat von darkunicorn:
Wie gesagt, bei einem manullem Aufruf geht es wunderbar, beim "Workbook_open" funktioniert die Semicolon-Trennung nicht mehr.
Bei dieser seltsamen Syntax kein Wunder

Versuchs mal so:
01.
Private Sub Workbook_Open() 
02.
   '..... 
03.
    Workbooks.OpenText Filename:="DateiPfad", DataType:=xlDelimited, Semicolon:=True 
04.
   '..... 
05.
End Sub
Gruß Dieter

PS.
Sorry, hab's mal getestet und per Makro funktioniert das Workbook.OpenText tatsächlich nicht so wie es soll.
Alternativ sollte aber das funktionieren:
01.
Private Sub Workbook_Open() 
02.
   '..... 
03.
    Workbooks.OpenText Filename:="DateiPfad" 
04.
    Columns("A").TextToColumns , DataType:=xlDelimited, Semicolon:=True 
05.
   'ActiveWorkbook.Saved = True  'Abfrage zum Speichern beim Schließen unterdrücken 
06.
   '..... 
07.
End Sub
Bitte warten ..
Mitglied: darkunicorn
07.09.2010 um 23:20 Uhr
Hallo Didi1954,

danke für deine Antwort. Hatte deine ursprüngliche Version als erstes verwendet bevor ich auf die für dich seltsame Syntax kam *g*.

Allerdings nachdem ich dann doch ein paar Stunden Schlaf hatte (wirkt halt dann doch Wunder ) hab ich eine weitere Lösung gefunden.

Ich habe das ganze von der Arbeitsmappe in die Tabelle selbst geschoben und nen Call gesetzt. Zwar zugegeben nicht elegant aber die User sind vorerst zufrieden...

Aber nochmals Danke für dein Bemühen!

Gruß Alex
Bitte warten ..
Mitglied: 76109
08.09.2010 um 07:52 Uhr
Hallo Alex!

Den Import in die Arbeitsmappe würde ich dann in etwa so machen:
01.
Const ImportSheet = "Tabelle1" 
02.
Const ImportDatei = "E:\Test\Import.csv" 
03.
 
04.
Private Sub Workbook_Open() 
05.
    Call CsvFileImport 
06.
End Sub 
07.
 
08.
Private Sub Workbook_BeforeSave(ByVal SaveAsDialog As Boolean, Cancel As Boolean) 
09.
    Sheets(ImportSheet).Cells.ClearContents 
10.
End Sub 
11.
 
12.
Private Sub CsvFileImport() 
13.
    Dim Wks As Worksheet 
14.
     
15.
    Set Wks = Sheets(ImportSheet) 
16.
     
17.
    Wks.Cells.ClearContents 
18.
     
19.
    With Wks.QueryTables.Add(Connection:="TEXT;" & ImportDatei, Destination:=Wks.Range("A1")) 
20.
        .AdjustColumnWidth = True   'Spaltebreite automatisch anpassen 
21.
        .TextFileParseType = xlDelimited 
22.
        .TextFileSemicolonDelimiter = True 
23.
        .Refresh BackgroundQuery:=False 
24.
        .Delete 
25.
    End With 
26.
End Sub
Wobei die Sub CsvFileImport auch in einem Modul mit einer Tastenkombination versehen, stehen könnte.

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
CSV-Datei Komma durch Semikolon ersetzen
gelöst Frage von FalkITBatch & Shell8 Kommentare

Hi Zusammen, ich suche eine Möglichkeit in einer Komma getrennten CSV Datei alle Kommas die als Trenner dienen durch ...

VB for Applications
Bestimmte Daten aus eine CSV-Datei in eine Excel-Tabelle importieren
Frage von MariaElenaVB for Applications2 Kommentare

Hallo, ich brauche eure Hilfe. Es wird eine CSV Datei durch einen Scanprozess erzeugt, und diese Datei enthält viele ...

Batch & Shell
CSV zu HTML-Tabelle via Batch
gelöst Frage von WiSchBatch & Shell19 Kommentare

Hallo. Ich versuche nun schon seit Stunden diese Aufgabe zu lösen. Leider haben auch Beiträge in diesem Forum oder ...

VB for Applications
Excel Tabelle mit sonderzeichen "Arabisch und chninesich" als csv Datei mit Unicode speichern
Frage von 123660VB for Applications4 Kommentare

Hallo Zusammen, Ich hoffe ihr könnt mir weiter helfen, mein Problem ist folgendes: ich will ein Excel Tabelle mit ...

Neue Wissensbeiträge
Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 48 MinutenInternet

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registierunf von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Verschlüsselung & Zertifikate

19 Jahre alter Angriff auf TLS funktioniert immer noch

Information von BassFishFox vor 7 StundenVerschlüsselung & Zertifikate1 Kommentar

Interessant zu lesen. Der Bleichenbacher-Angriff gilt unter Kryptographen als Klassiker, trotzdem funktioniert er oft noch. Wie wir herausgefunden haben, ...

Windows 10

Windows 10 Fall Creators Update - Neue Funktion Hyper-V Standardswitch kann ggf. Fehler bei Proxy Configs verursachen

Erfahrungsbericht von rzlbrnft vor 18 StundenWindows 103 Kommentare

Hallo Kollegen, Da wir die Gefahr lieben, haben wir bei einigen Usern nun mittlerweile das Creators Update drauf. Einige ...

Sicherheit

TLS-Zertifikat und privater Schlüssel von Microsofts Dynamics 365 geleakt

Information von Penny.Cilin vor 20 StundenSicherheit

Microsoft hat versehentlich das TLS-Zertifikat inklusive dem privaten Schlüssel seiner Business-Anwendung Dynamics 365 geleakt. TLS-Zertifikat und privater Schlüssel von ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

Netzwerkmanagement
NAS über zwei weitere Ethernet Anschlüsse verbinden
gelöst Frage von Sibelius001Netzwerkmanagement16 Kommentare

Sorry - ich bin hier wahrscheinlich als kompetter IT Trottel unterwegs. Aber eventuell kann mir jemand ganz einfach helfen: ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Netzwerkgrundlagen
Hi eine blöde frage. xD
Frage von 132954Netzwerkgrundlagen13 Kommentare

Also: Habe 2012 r2 essentials neuinstalliert, allerdings installiert diese version ja gleich diesen gangen AD kram mit, den hab ...