Haken und Leerzeichen

Forumthread: 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

AW: Haken und Leerzeichen

02.06.2017 15:03:19

ChrisL
AW: Haken und Leerzeichen

06.06.2017 08:09:46

Ralf
AW: Haken und Leerzeichen

02.06.2017 15:12:49

Daniel
AW: Haken und Leerzeichen

06.06.2017 08:12:38

Ralf
AW: Haken und Leerzeichen

02.06.2017 15:18:44

UweD
AW: Haken und Leerzeichen

06.06.2017 08:15:10

Ralf

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

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

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

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)

Forumthread: Haken und Leerzeichen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread