Makro - alle Buchstaben löschen

Forumthread: Makro - alle Buchstaben löschen
10 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Makro - alle Buchstaben löschen

Julia

Hallo,
ich habe eine Spalte in der Personentag angegeben werden.
Diese sehen zum Teil so aus:
1,5 PT
0,5 PT ca.
Um diese Spalte auszuwerten brächte ich ein Makro welches mir alle Buchstaben löscht.
Die Spalte müsste dann so aussehen:
1,5
0,5
Das Makro soll folgendes machen:
Im Sheet "Daten" in der Spalte AA alle Buchstaben löschen (ab AA2 bis letzter Eintrag in AA)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

nachträgliche Info

Julia
AW: nachträgliche Info

Matthias
=LINKS(A12;FINDEN(" ";A12)-1)

Marc
AW: =LINKS(A12;FINDEN(" ";A12)-1)

Julia
Suchen Ersetzen klappt wohl nicht ? oT

Matthias
Makro - nach 1. Leerzeichen alles löschen

Julia
bei mir klappt das ...

Matthias
AW: Makro - nach 1. Leerzeichen alles löschen

hary
PT*

Matthias
Klappt - AW: PT*

Julia

nachträgliche Info

15.02.2011 11:38:41

Julia

Mit abschneiden geht es nicht.
Die Angaben haben zum Teil mehr Nachkommastellen.
z.B.:
1,25 PT
1,375 PT
1 PT
2,2 PT
usw.

AW: nachträgliche Info

15.02.2011 11:44:15

Matthias

Hallo
Kannst Du nicht Suchen ersetzen benutzen
Bereich markieren und
Suchen nach " PT*" (ohne Gänsefüsschen) und Ersetzen durch Nichts (also leer lassen.)
Gruß Matthias

=LINKS(A12;FINDEN(" ";A12)-1)

15.02.2011 11:48:33

Marc

... damit gehst du bis zur ersten Leerstelle, egal wie viele Kommastellen noch kommen
Gruß, Marc

AW: =LINKS(A12;FINDEN(" ";A12)-1)

15.02.2011 12:03:55

Julia

Das mit
=LINKS(A12;FINDEN(" ";A12)-1)
klappt
aber dann müsste ich eine Hilfsspalte machen
Kann mann das in ein Makro verpacken so dass man direkt alle Buchstaben löscht?

Suchen Ersetzen klappt wohl nicht ? oT

15.02.2011 12:11:51

Matthias

Makro - nach 1. Leerzeichen alles löschen

15.02.2011 12:17:25

Julia

Klappt nicht
Wenn ich PT durch nichts ersetzte kann das trotzdem nicht reichen.
Beispiel
1,5 PT (hier würde es klappen)
2,5 PT Test /hier würde Test stehenbleiben)
Ich bräuchte eigentlich ein makro was mir alles nach dem ersten Leerzeichen löscht

bei mir klappt das ...

15.02.2011 12:25:40

Matthias

Hallo
bei mir klappt es auch bei 2,5 PT
https://www.herber.de/bbs/user/73554.xls
Gruß Matthias

AW: Makro - nach 1. Leerzeichen alles löschen

15.02.2011 12:25:50

hary

Hallo
hier mal mein Versuch.


Sub n()
Dim i As Long
For i = Asc("A") To Asc("Z")
Range("AA2:AA" & Cells(Rows.Count, "AA").End(xlUp).Row).Replace what:=UCase(Chr(i)), lookat:= _
xlPart, replacement:="", MatchCase:=False
Next
End Sub

gruss hary

PT*

15.02.2011 12:39:29

Matthias

Hallo
Zitat:
Wenn ich PT durch nichts ...
Ich hatte aber gepostet:
PT*
wobei ich das * als Platzhalter verstehe.
Gruß Matthias

Klappt - AW: PT*

15.02.2011 12:45:53

Julia

Genial
Sorry hab den * nicht gesehen :)