Supportnet / Forum / Tabellenkalkulation

hallo, ich brauche entweder in allen vorhanden zellen einer excel-tabelle ein hochkomma. dabei ist ein makro hilfreich, welches ich aber leider nicht schreiben kann. eine alternative wäre alle zellen als text zu formatieren, dieses reicht aber leider nicht aus

Hallo bhw,

eine ganz einfache Möglichkeit wäre das nachfolgende Makro. Bei dem Makro werden allen Zellen im Bereich A1:IV65536, die einen Wert aufweisen, um das Hochkomma erweitert.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Hochkomma()
Dim rngZelle As Range

For Each rngZelle In Range("A1:IV65536")
If rngZelle.Text <> "" Then rngZelle = "'" & rngZelle.Text
Next
End Sub

Den Bereich musst Du in der Zeile

For Each rngZelle In Range("A1:IV65536")

gegebenenfalls noch anpassen.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

vielen Dank, dass hat geklappt - gibt es denn eine Möglichkeit dieses auch ohne Makro zu machen?

Hallo

da genauere Angaben über wie und wo fehlen

In a1 steht dein Text in B1

="'"&A1


Bei dem Makro von @coros steht der geänderte Text in der gleichen Zell, das geht nur mit Makro

Gruß

Helmut

• Excel: Einer Zahl ein Komma hinzufügen
• Makro im MS Excel
• Für Excel Freaks: Excel Makro für MailTo:
• Excel Makro in viele Excel Files exportieren