Excel:" ' " Zeichen in alle Zellen einfügen

Question

hallo! Ich möchte in einer bestehenden Tabelle in jeden Zelle
ein ' Zeichen einfügen. Dieses soll direkt vor den eigentlichen Inhalt der
Zellen gesetzt werden. Geht das?

Answer 1

Hi,

anstelle das '-Zeichen reinzuschreiben ist es einfacher die Zellen gleich als Text zu formatieren, denn... es kommt auf das gleiche raus....

In diesem Sinne... have a nice Day... Gruß Helmut

Answer 2

Hi...

sorry... leider falsche Antwort - ist doch nicht das selbe!

Die Frage hierbi ist, was Du erreichen möchtest.

Normalerweise wird z.B. aus einer Formel ein Text (von daher meine AW1, die aber so falsch ist).

Eine Möglichkeit wäre über ein benutzerdefiniertes Format.

Dann könntest Du immer das '-Zeichen vorangestellt haben. Allerdings hat es dann nicht die Funktion aus dem Inhalt einen Text zu machen.

Gruß Helmut

Answer 3

Hallo Namenloser,

Kopiere das nachfolgende 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 Ersetzen()
Dim lngLastRow As Long
Dim lngRow As Long
Dim intLastColumn As Integer
Dim intColum As Integer
'letzte Zeile mit Daten im gesamten Blatt ermitteln
lngLastRow = ActiveSheet.Cells.Find("*", searchdirection:=xlPrevious).Row
'letzte Spalte mit Daten im gesamten Blatt ermitteln
intLastColumn = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'Schleife für Spalten
For intColum = 1 To intLastColumn
'Schleife für Zeilen
For lngRow = 1 To lngLastRow
'Wenn Zelle einen Wert enthält, diesem Wert ein Hochkomma (') vorranstellen
If ActiveSheet.Cells(lngRow, intColum) <> "" Then _
ActiveSheet.Cells(lngRow, intColum) = "'" & ActiveSheet.Cells(lngRow, intColum)
Next lngRow
Next intColum
End SubMit dem Makro wird jedem Wert ein Hochkomma vorangestellt.

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
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]