Nur für Excel Profis :)
- Ersteller 1234
- Erstellt am
feelx
Grand Admiral Special
Ne Idee:
Ersetze doch in einem ersten Schritt generell alle ; durch ein |
Im zweiten Schritt dann "|" wieder durch ";" ersetzen
Ersetze doch in einem ersten Schritt generell alle ; durch ein |
Im zweiten Schritt dann "|" wieder durch ";" ersetzen
feelx
Grand Admiral Special
Also Excel Makros lassen bestimmt ein "Search-Replace" zu. Und wegen dem ist ja der zweite Schritt
Also
1;4;";";7
wird zuerst zu
1|4|"|"|7
und dann wird "|" mit ";" ersetz also
1|4|";"|7
Ist doch eigentlich genau das was du willst...
feelx
Grand Admiral Special
Es soll aber alles in einem Schritt erfolgen, da das ansonsten bei einer zu großen Datenmenge zu viel Rechenleistung fordert.... Frag bitte nicht was ich damit auswerten will ...
puhh.. wenn dem so ist, dann helfen dir wohl nur Reguläre Ausdrücke (regular Expressions / RegExp). kenne mich diesbezüglich mit VBA aber leider nicht aus... Aber vielleicht findest du was oder ein vba-Kenner kann dir da helfen.
TommySZB
Grand Admiral Special
Das ganze ist recht einfach, du prüfst den Feldinhalt Zeichenweise (For i = 1 to Len(Feld)) und wenn vor dem ; kein chr(34), was das Anführungszeichen ist, steht, änderst du den Inhalt.
Das ganze könnte so aussehen:
Exc ist ein Excel Objekt, weil hier der Aufruf aus Access erfolgte
Ich habe das ganze nicht durchgetestet und in der ersten Bedingung könnte noch ein kleiner Fehler sein, aber der ist beim Test dann schnell zu finden 
Gruss
Das ganze könnte so aussehen:
Exc ist ein Excel Objekt, weil hier der Aufruf aus Access erfolgte
Code:
dim tmp, tmp2 as String
dim i, j as integer
For j = 1 To 200
exc.Range("A" & i).Activate
tmp = exc.ActiveCell
For i = 1 to len(tmp)
if mid(tmp,i,1) = ";" then
if mid(tmp,i+1,1) = chr(34) then
tmp2 = tmp2 & "|"
i=i+1
else
tmp2 = tmp2 & mid(tmp,i,1)
end if
else
tmp2 = tmp2 & mid(tmp,i,1)
end if
next
Next
exc.activecell = tmp2Gruss
Zuletzt bearbeitet:
Wenn Du eine Textdatei hast mit einem Semikolon als Zellentrenner, dann ist das doch eine CSV und keine Exceldatei. D.h. Du hast eine ganz normale Textdatei, die Du mit beliebigen Programmen bearbeiten kannst, es muß doch kein Excelmakro sein. Unter Linux könnte man jetzt einfach ein einzeiliges Shellskript schreiben; bei Windows weiß ich das ehrlich gesagt nicht, aber bestimmt gibt es irgendein kleines Freewareprogramm, was das genauso erledigt.
Ähnliche Themen
