Zelleninhalt um Anführungszeichen ergänzen

22/11/2008 - 12:36 von Marko | Report spam
Hallo,

ich habe folgendes Problem.
Ich muß den Inhalt von ca. 230000 Zellen um Anführungszeichen ergànzen.

Sprich: aus Zelleninhalt: Text soll Zelleninhalt "Text" werden. gibts da
eine möglichkeit das zu automatisieren?

Gruß Marko
 

Lesen sie die antworten

#1 Dietmar Vollmeier
22/11/2008 - 13:59 | Warnen spam
Servus Marko!

Ein Realname [1] wird hier gerne gesehen und erhöht die
Wahrscheinlichkeit auf Antworten enorm ;-)

*Marko* schrieb am 22.11.2008 um 12:36 Uhr...

ich habe folgendes Problem.
Ich muß den Inhalt von ca. 230000 Zellen um Anführungszeichen ergànzen.

Sprich: aus Zelleninhalt: Text soll Zelleninhalt "Text" werden. gibts
da eine möglichkeit das zu automatisieren?



Ja, zum Bleistift mit diesem Makro

8<--[ Code ]->8
Sub AnfuehrungszeichenSetzen()
Dim Bereich As String
Dim Zelle As Range

'Hier bitte den Bereich eingeben
Bereich = "A1:C10"

For Each Zelle In Range(Bereich)
Zelle.Value = Chr(34) & Zelle.Value & Chr(34)
Next
End Sub
8<-->8

HTH und tschüss,
Didi

Fußnötiges:
=[1] http://einklich.net/usenet/rules.htm#name
"Flugzeuge sind interessant, haben aber keinerlei militàrischen Wert."

Ähnliche fragen