Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Expert in CSV, Text in "" und ; getrennt

Forumthread: 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ß

Anzeige

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

Anzeige
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

AW: Expert in CSV, Text in "" und ; getrennt
10.12.2013 13:05:18
Michael
hier ist die Datei, https://www.herber.de/bbs/user/88470.xls
Grüße & vielen vielen Dank!!

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
;

Forumthreads zu verwandten 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
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
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
*. csv mit excel dateinamen speichern
eric1

Hallo,
komm hier nicht weiter, die *.xls oder *.xlsx werden geöffnet, dann werden sie in verschieden Formaten und Verzeichnissen gespeichert, die CSV soll Dateiname und Datum/Uhrzeit als Dateiname bekommen, Code wie folgt :
Public Sub exceldateioeffnen() Const LW = "F:\" Const Pfad =...
03.03.2009 22:52:42
Thread-ID: 1056138
2 Beiträge
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 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
Textzeichen in einer Zelle ersetzen
Hugo

Hallo zusammen
Ich habe zB folgenden Text in einer Zelle:
Die vorgenannte Email-Adressse$muss zwar bei jeder Nachricht im$Forum angegeben werden, sie wird$aber vom Formular aus nicht$weitergegeben
Die $-Zeichen stellen den Umbruch dar.
Ich möchte nun jedes Zweite $-Zeichen in de...
09.12.2010 20:37:26
Thread-ID: 1190853
12 Beiträge
Anzeige
Uhrzeit mit Text einsetzen
walter

Hallo zusammen,
ich habe gerade dies für das einsetzen der Uhrzeit gefunden:
(von Hajo 2003) Private Sub UserForm_Initialize() Dim ByI As Byte For ByI = 1 To 23 ' Stunden eintragen ComboBox1.AddItem ByI Next ByI For ByI = 1 To 59 ' Minute eintragen ComboBox2....
24.01.2011 14:21:02
Thread-ID: 1197036
8 Beiträge
CSV Datei , mit Semikolon speichern
rene

Hallo zusammen
ich versuche eine CSV datei aus Excel heraus mit lotus notes zu versenden , funktioniert soweit auch , Probleme habe ich damit das csv file als semikolon getrennt zu speichern. Hat jemand eien Idee wie der Code geändert werden sollte?
Sub send() Dim stFileName As String...
23.10.2012 12:33:09
Thread-ID: 1283435
5 Beiträge
Zahlenformat Fließkomma mit Textzusatz
Barbara

Einfache Frage, doch keine Lösung in Sicht, nachdem ich fast alle Kombinationen durchprobiert habe.
Eine Zelle soll so formatiert sein, dass sie so aussieht:
Wert: 12
Aussehen: 12 Stk
Wert 12,3
Aussehen: 12,3 Stk
Wert 12,37741
Aussehen: 12,37741 Stk
Was stelle...
29.10.2012 11:26:40
Thread-ID: 1284290
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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