Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Haken und Leerzeichen

Haken und Leerzeichen
02.06.2017 14:52:16
Ralf
Hallo Excel - Experten,
ich habe mehrere 6 bzw. 7 - stellige
Zahlen im Textformat und mit führenden
Nullen uuuuund mit anhängenden Leerzeichen
( mal 14 mal 13 ) also daß sich immer 20 Stellen
ergeben. Nun möchte ich gerne, daß vorne zunächst
ein Häkchen: ' gesetzt wird ( wobei die
führenden Nullen erhalten bleiben sollen ! )
und anschließend alle
Leerzeichen rechts gelöscht werden ?
Kann man soetwas mittels VBA erreichen, so daß
ich einen Bereich markiere und Excel dann sage:
....s.o. :-)
PS: und es wäre schön, wenn ihr mir auch sagen könntet,
wie ich dahin komme :-)
bin für jeden Tipp dankbar
viele Grüße
Ralf

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Haken und Leerzeichen
02.06.2017 15:03:19
ChrisL
Hi Ralf
Makro läuft über die selektierten Zellen:
Sub t()
Dim c As Range
For Each c In Selection
c = Replace("ü" & c.Text, " ", "")
c.Characters(Start:=1, Length:=1).Font.Name = "Wingdings"
Next c
End Sub

cu
Chris
AW: Haken und Leerzeichen
06.06.2017 08:09:46
Ralf
Hallo Chris,
vielen Dank für deine Antwort.
Sorry,ich habe es nicht so exakt
definiert : Haken - Häkchen :-)
Aber deine Lösung funktioniert so
supergut :-) !!!
LG
Ralf
AW: Haken und Leerzeichen
02.06.2017 15:12:49
Daniel
HI
Sub Test1()
dim Zelle as Range
for each Zelle in Selection.SpecialCells(xlcelltypeconstants, 2)
Zelle.Value = "'" & RTrim(Zelle.Value)
next
End Sub
sollte das nicht funktionieren, weil es sich bei den Leerzeichen nicht um das normale, sondern um das geschützte Leerzeichen handelt, dann mit dieser Erweiterung:
Sub Test2()
dim Zelle as Range
for each Zelle in Selection.SpecialCells(xlcelltypeconstants, 2)
Zelle.Value = "'" & RTrim(Replace(Zelle.Value, Chr(160), chr(32)))
next
End Sub
zu fragen wie und wo man das einfügen muss: http://www.online-excel.de/excel/grusel_vba.php?f=6
Gruß Daniel
Anzeige
AW: Haken und Leerzeichen
06.06.2017 08:12:38
Ralf
Hallo Daniel,
VIELEN DANK, es funktioniert supertollgut,
genau das war´s und auch gleich die erste
Variante lief reibungslos :-)
Dies ist wirklich das absolut superste Forum :-) !!!
LG
Ralf
AW: Haken und Leerzeichen
02.06.2017 15:18:44
UweD
HAllo
hier eine Lösung von mir
Sub LZeichen_weg()
    Dim Zelle As Range, AnzLeer As Integer, Nullen As String
    
    For Each Zelle In Selection
        AnzLeer = Len(Zelle) - Len(Replace(Zelle, " ", ""))
        Nullen = IIf(AnzLeer = 13, "0000000", "000000")
        Zelle.Value = "'" & Format(RTrim(Zelle), Nullen)
    Next
End Sub
LG UweD
Anzeige
AW: Haken und Leerzeichen
06.06.2017 08:15:10
Ralf
Hallo Uwe,
vielen Dank für deine Antwort.
Deine Lösung läuft auch ganz prima,
genauso wie ich es mir gedacht habe :-)
LG
Ralf

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige