Office: (Office 365) Führendes Hochkomma in Text Zelle einfügen

Hallo,
ich habe eine Excel Tabelle mit 1000 bis 1500 Zeilen.
In Spalte A steht beliebiger Text. Dieser Text soll jetzt ein führendes Hochkomma (') erhalten.
Gibt es dazu eine Makro Lösung? Ich habe zwar was gefunden, das funktioniert aber leider nur mit Zahlen.

Danke und viele Grüße
Alexander

 

Moin Alexander,

das lässt sich mit einer einfachen Schleife realisieren (Code in der Tabelle):

Code:

Option Explicit

Sub Version()
Dim i As Integer, r As Integer
Dim sText As String

r = UsedRange.Rows.Count

For i = 1 To r  'falls Du eine Überschrift hast, ersetze 1 durch 2
    sText = Cells(i, 1)
    sText = "'" & sText     ' Testzeichen "*"
    Cells(i, 1) = sText
Next i

End Sub

Das Problem dabei ist: Du wirst als Ergebnis keinen Unterschied sehen, weil XL das führende Hochkomma als Markierung für das Zellformat Text interpretiert. Teste also erst einmal mit wenigen Zeilen in einer anderen Tabelle mit *

Grüße

 

Achja, und wenn Du das Testzeichen wieder entfernen willst:

Code:

Option Explicit

Sub Versiv()
Dim i As Integer, r As Integer
Dim sText As String

r = UsedRange.Rows.Count

For i = 1 To r  'falls Du eine Überschrift hast, ersetze 1 durch 2
    sText = Cells(i, 1)
    sText = Right(sText, Len(sText) - 1)
    Cells(i, 1) = sText
Next i

End Sub

Viel Spaß!

 

Hallo,
danke Dir. In Zeile 4 UsedRange.Rows.Count zeigt der Compiler den Fehler Variable nicht definiert. ?

 

Hast Du vielleicht die Variable mit

Code:

Dim r as integer

nicht deklariert?

Oder hast zuvor eine Anweisung With gesetzt? Dann benötigst Du einen Punkt (Satzzeichen) vor dem Used...
Oder wo hast Du den Code hingesetzt? Modul, Tabelle ...

Variablendeklarationen gehören in eine Sub, wie das Bier zu meinem Feierabend ...

 

der code sieht so aus:

Sub Hochkomma()
Dim i As Integer
Dim r As Integer
Dim sText As String

r = UsedRange.Rows.Count

For i = 1 To r
sText = Cells(i, 1)
sText = "'" & sText
Cells(i, 1) = sText
Next i

End Sub

Trotzdem kommt der Fehler.

 

So wie es bei mir aussieht ist UsedRange nicht definiert?

 

Ich habe jetzt mal "Option explicit" rausgenommen. Jetzt gibt es in der Zele (r = UsedRange.Rows.Count) den Laufzeitfehler 424, Objekt erforderlich.

 

Dann nochmal die Frage: Wo hast Du den Code platziert?

 

Ich habe den Code erst unter Modul und unter DieseArbeitsmappe versucht

 

Ich zitiere aus #2 Zeile 1

 

Sorry Asche über mein Haupt, jetzt funktioniert es. Habe ich völlig überlesen, sorry nochmal.

Wünsche Dir eine gute Nacht und Danke nochmal
Alexander

 

Geh Haare waschen Gute Nacht

 

Hi Alexander,

du kannst das Makro auch in ein Standardmodul schreiben, dann musst du aber noch z.B. ActiveSheet davor setzen, damit Excel weiß, auf welches Tabellenblatt es den Code beziehen muss:

Code:

r = ActiveSheet.UsedRange.Rows.Count

Und noch ein Hinweis am Rande: ich würde für die Ermittlung der letzten belegten Zeile nicht UsedRange.Rows.Count (=Zeilenanzahl des gesamten benutzten Bereichs) verwenden, da hiermit ALLE belegten Zellen einbezogen werden, gleichgültig um welche Spalte es sich handelt. Beispiel: Spalte A ist bis Zeile 50 belegt, Spalte BA bis Zeile 70 - UsedRange.Rows.Count ermittelt in diesem Fall 70 als letzte belegte Zeile und der Code würde dann in Spalte A auch die Leerzellen von Zeile 51 bis 70 bearbeiten, also in deinem Fall völlig unerwünscht ein ' eintragen. Außerdem "merkt" sich Excel Zellen, die irgendwann einmal belegt waren und deren Inhalte nur geleert wurden und zählt diese ebenfalls zum UsedRange - was logischerweise dann zu einer falschen Zeilennummer führt.
Da du jedoch genau weißt, in welcher Spalte du die letzte belegte Zeile ermitteln willst, solltest du dich auch auf diese Spalte beziehen - dafür gibt es verschiedene Möglichkeiten:

Code:

Cells(Rows.Count, 1).End(xlUp).Row

Code:

IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

Code:

Columns(1).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

---

 

Super, danke. Funktioniert prima