Supportnet / Forum / Tabellenkalkulation
Text-Zellen mit Delimiter ausgeben
Frage
Hallo zusammen,
ich habe eine große Excel-Tabelle mit numerischen und Textzellen.
Die Textzellen sollen bei Ausgabe in eine CSV-Datei mit einem ' oder " abgegenzt werden (Bsp.: 'Rainer').
Ich habe noch keinen Weg gefunden...
Ciao
Rainer
Antwort 1 von Guenter
Hallo Rainer,
eine direkte Möglichkeit habe ich nicht gefunden. Deshalb dieser Umweg:
Mit einem Makro kannst Du an den Anfang und ans Ende der Textzelle ein Zeichen einfügen, was sonst nicht vorkommt (in meinem Beispiel:#). Das Makro ändert die Zellen entsprechend, Du speicherst als csv-File ab, öffnen in Word und Bearbeiten Ersetzen mit ".
Das Makro läuft über 5 Spalten, falls Du mehr Spalten hast, kann man ändern.
Gruß
Günter
eine direkte Möglichkeit habe ich nicht gefunden. Deshalb dieser Umweg:
Mit einem Makro kannst Du an den Anfang und ans Ende der Textzelle ein Zeichen einfügen, was sonst nicht vorkommt (in meinem Beispiel:#). Das Makro ändert die Zellen entsprechend, Du speicherst als csv-File ab, öffnen in Word und Bearbeiten Ersetzen mit ".
Das Makro läuft über 5 Spalten, falls Du mehr Spalten hast, kann man ändern.
Option Explicit
Sub test()
Dim text$
Dim n
Dim m
For m = 1 To 5
For n = 1 To Cells(Rows.Count, m).End(xlUp).Row
If Not IsNumeric(Cells(n, m).Value) Then
text = Cells(n, m).Value
Cells(n, m).Value = "#" & text & "#"
End If
Next n
Next m
End Sub
Gruß
Günter