Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1340to1344
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1340to1344
1340to1344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Expert in CSV, Text in "" und ; getrennt

Expert in CSV, Text in "" und ; getrennt
10.12.2013 07:00:16
Michael
Hallo zusammen,
ich bin auf der Suche nach einem Script was mir eine Tabelle in welcher Spalte A und B gefüllt sind als CSV exportiert.
Es soll nur das exportiert werden wo auch etwas in Spalte A steht und die Werte / Text aus Spalte A und B sollten in Anführungszeichen und mit einem Semikolon getrennt exportiert werden.
Ich hoffe ihr könnt mir helfen. Gruß

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Expert in CSV, Text in "" und ; getrennt
10.12.2013 09:26:28
Rudi
Hallo, 
Public Sub prcCreateCSV()
Dim intFileNumber As Integer
Dim lngRow As Long
Dim vntArray As Variant
Dim intItem As Integer
Dim strText As String
Dim i As Integer
Const strSep As String = """;"""
With Cells(1, 1).CurrentRegion
For lngRow = 1 To .Rows.Count
vntArray = .Cells(lngRow, 1).Resize(, 2)
vntArray = WorksheetFunction.Transpose(WorksheetFunction.Transpose(vntArray))
If strText = "" Then
strText = """" & Join(vntArray, strSep) & """"
Else
strText = strText _
& vbCrLf _
& """" & Join(vntArray, strSep) & """"
End If
Next
End With
intFileNumber = FreeFile
With ActiveWorkbook
'    .Save
Open _
.Path & "\" _
& Left$(.Name, InStrRev(.Name, ".") - 1) _
& "_" & ActiveSheet.Name _
& ".csv" _
For Output As #intFileNumber
End With
Print #intFileNumber, strText
Close #intFileNumber
End Sub
Gruß
Rudi

Anzeige
AW: Expert in CSV, Text in "" und ; getrennt
10.12.2013 09:57:57
Michael
Hi Rudi, das ist ja der Hammer! Vielen Dank, bekommen wir es noch hin, dass die Zeichensatz-Kodierung UTF-8 ist?

AW: Expert in CSV, Text in "" und ; getrennt
10.12.2013 10:58:06
Rudi
Hallo,
das habe ich gefunden. Von bst. 
' frei nach http://www. _
vovisoft.com/unicode/UniFunctions.htm#ToUTF8
Private Function GetUTF8String(s As String) As String
Dim i As Integer  ' Zähler über die einzelnen Zeichen des utf16-Strings
Dim utf16 As Long, uc(2) As Byte
GetUTF8String = ""
For i = 1 To Len(s)
utf16 = AscW(Mid(s, i, 1))
If utf16 

.....
With ActiveWorkbook
'    .Save
Open _
.Path & "\" _
& Left$(.Name, InStrRev(.Name, ".") - 1) _
& "_" & ActiveSheet.Name _
& ".csv" _
For Output As #intFileNumber
End With
Print #intFileNumber, GetUTF8String(strText)
Close #intFileNumber
End Sub

Gruß
Rudi

Anzeige
AW: Expert in CSV, Text in "" und ; getrennt
10.12.2013 11:07:25
Michael
Hi Rudi, vielen Dank aber ich habe leider kaum VBA Erfahrung wie kann ich das alles zusammen in ein Script machen, also mit dem Erstellen der CSV mit Anführungszeichen? Grüße und nochmals vielen Dank!

AW: Expert in CSV, Text in "" und ; getrennt
10.12.2013 11:14:57
Rudi
Hallo,
die Function in ein Modul und den Code für die CSV so ändern wie ich geschrieben habe.
Gruß
Rudi

AW: Expert in CSV, Text in "" und ; getrennt
10.12.2013 11:22:47
Michael
Hallo Rudi, bei dieser Line bricht er ab: For i = 1 To Len(s) als Wert zeigt er mir 4037 an, doch die Spalte hat nur 756 Zeilen mit richitgem Inhalt. Was kann das sein?

AW: Expert in CSV, Text in "" und ; getrennt
10.12.2013 12:16:49
Rudi
Hallo,
hab kein Problem.
Lad mal deine Mappe hoch.
Gruß
Rudi

Anzeige
AW: Expert in CSV, Text in "" und ; getrennt
10.12.2013 13:37:42
Rudi
Hallo,
in GetUTF8String:
Dim i As Long
Gruß
Rudi

308 Forumthreads zu ähnlichen Themen

Text in Lotos einsetzen
Walter

Guten Morgen Fachfrauen u. Männer,
habe mal ein Makro vom Forum erhalten, für das automatische versenden Bereich aus Excel.
Das klappt soweit einwandfrei.
Nun möchte ich gern am Anfang die Anrede automatisieren z.b. Sehr geehrte Damen, (Zeilenumbruch)
sehr geehrte Herren,
Hi...
26.08.2008 11:25:52
Thread-ID: 1004731
12 Beiträge
Anzeige
Text in Namen ersetzen
Lorenz

Hallo!!
Ich suche einen Code mit dem man aus (in) benannten Formeln einen String austauscht.
Der String ist oft auch eine weitere benannte Formel.
Hat jemand ne Idee?
Gruss
Lorenz
20.01.2009 20:30:17
Thread-ID: 1041986
15 Beiträge
Formel und Text (Tage) einsetzen
Leon

Hi
Wie kann ich in einer Formel den Text (Tage) noch dazu schreiben:
Zelle A1/Zelle B2 gibt mir z.B Wert 39
Dahinter soll noch Tage stehen.
Kann mir Jemand helfen?
Gruß
Leon
06.02.2009 20:26:00
Thread-ID: 1047897
6 Beiträge
Anzeige
cursor am anfang eines textfeldes einer UF setzen
Holger

Hallo liebe Excelgemeinde,
ich versuche verzweifelt den cursor beim öffnen einer UF an den anfang einer Textbox zu plazieren und bekomme es nicht hin.
zu erklärung
in die textbox werden über userform_initialized daten geladen
textbox ist mit scrollbars versehen um daten ansehen...
10.03.2009 23:42:17
Thread-ID: 1058894
9 Beiträge
CSV Export Komma als Trennzeichen
Susi

Hallo,
ich habe folgendes Problem: Wenn ich Datei speichern unter sagen, als csv-Datei habe ich als Trennzeichen Semikolon. Zeichne ich das gleiche als Makro auf und lass es ausführen, habe ich Komma als Trennzeichen. Ich brauch aber Semikolon. In der Systemsteuerung ist als Listentrennzeic...
27.10.2009 23:05:38
Thread-ID: 1112635
3 Beiträge
CSV Format, Delimiter ; (Semikolon), n. Komma
Peter

Guten Tag
Ich möchte eine Datei im CSV Format speichern.
Das klappt mit folgender Codezeile:
.SaveAs SavePath & "\" & File, FileFormat:=xlCSV
allerdings ist der Delimiter ein Komma und nicht wie gewünscht ein Semikolon.
Wie kann das geändert werden?
Danke für jed...
28.12.2009 09:23:04
Thread-ID: 1126047
3 Beiträge
UF Textbox in das richtige Format setzen
Heinz

Hallo Leute
Ich teste jetzt schon ca.3 Stunden um UF Textboxen in das richtige Format zu setzen.
Ich möchte das man nur dasFormat zB. "08,50" oder "12,50" eingeben kann.
Könnte mir bitte jemand helfen ?
Gruß
Heinz
Private Sub txtMoAZvon_Exit(ByVal Cancel As MSForms.Retur...
05.01.2010 20:42:57
Thread-ID: 1127442
5 Beiträge
Textbox Cusor immer in die letzte Zeile setzen
Horst

Hey!
Ich habe eine Textbox (Multiline)
Die protokolliert mir die Ergebnisse verschiedener Makros.
Nun möchte ich aber das der Cursor immer automatisch an die letzte Zeile gesetzt wird.
Um immer gleich die aktuellste Textausgabe mitlesen zu können.
Aber wie erreiche ich das:...
31.03.2010 09:59:49
Thread-ID: 1149537
20 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
2
14
5
1
8
2
2
4
19
4
11
7
2
2
4
10
2
3
1
11
3
1
2
9