Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1240to1244
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
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Punkt hinter dem letztem Zeichen entfernen

Punkt hinter dem letztem Zeichen entfernen
Karsten
Hallo,
ich möchte in einer Textformatierten Zelle den Punkt hinter dem letztem Zeichen entfernen, per Worksheet_Change. Aus z.B. 149. soll 149 werden.
Kann mir jemand helfen.
Danke
Gruß
Karsten

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Punkt hinter dem letztem Zeichen entfernen
09.12.2011 06:23:51
marcl
Guten Morgen Karsten,
geht das nicht mit "Suchen und ersetzen"? Einfach ein Makro aufzeichnen und den Code verwenden.
Oder mit einem Makro etwa so:
Activecell=Left(Activecell,Len(Activecell)-1)
Gruß
marcl
AW: Punkt hinter dem letztem Zeichen entfernen
09.12.2011 06:57:16
Karsten
Hallo Marcel,
danke, aber ganz so geht es für mich noch nicht. Ich habe es jetzt mal versucht umzuändern:
Private Sub Worksheet_Change(ByVal Target As Range)
Target = Left(ActiveCell, Len(Target) - 1)
End Sub

Aber so sind die Argumente nicht gültig.
Kann das jemand richtig schreiben?
Danke
Gruß
Karsten
Anzeige
AW: Punkt hinter dem letztem Zeichen entfernen
09.12.2011 07:04:53
hary
Hallo Karsten
statt ActiveCell schreib: Target
gruss hary
AW: Punkt hinter dem letztem Zeichen entfernen
09.12.2011 07:16:47
Karsten
Morgen Hary,
danke, nein so:
Target = Left(ActiveCell, Len(Target) - 1)
gehts auch nicht. Außerdem soll nur das letzte Zeichen gelöscht werden, wenn es ein Punkt ist.
Z.B. aus: 6.897. soll 6.897 werden
Z.B. 6.897 bleibt 6.897
Gruß
Karsten
AW: Punkt hinter dem letztem Zeichen entfernen
09.12.2011 07:39:18
hary
Hallo Karsten 

If Right(Target, 1) = "." Then Target = CStr(Left(Target, Len(Target) - 1))

gruss hary
Ot: aber...
09.12.2011 07:51:21
hary
Hallo nochmal
... ich hab das Gefuehl die Punkttaste, auf der Tastatur, ist nicht Dein Ding oder? LoL ;-)))
Bei der Datumseingabe koenntest Du den Punkt vergessen, jetzt haust Du einen dahinter.
So hat jeder sein Handicap. Bei mir Pivot und Array.
gruss hary
Anzeige
AW: Ot: aber...
09.12.2011 10:17:16
Karsten
Hallo Hary,
könnte sein. Nicht nur ich sitze an dieser Tastatur mit diesem Programm.
Über Umwege habe ich jetzt das hinbekommen, was ich eigentlich meinte. Für den Excelexperten bistimmt grauenvoll - aber geht. Es kann ja noch jemand was fürs Auge draus machen, fürs Wohlfühlgefühl des Makrodurchlaufes o.s.ä..
https://www.herber.de/bbs/user/77904.xls
Gruß
Karsten
AW: besser so.
09.12.2011 10:43:49
hary
hallo Karsten
Du schltest beim Change Ereigniss EnableEvents aus. Setze das einschalten in die vorletzte Zeile.
Beim Testen wurde abgebrochen und EnableEvents blieb auf aus.


End If

Application.EnableEvents = True

End Sub

gruss hary
Frage offen
Anzeige
AW: besser so.
09.12.2011 11:03:19
Karsten
Hallo Hary,
habe ich vergessen, ich mache es normalerweise.
Gruß
Karsten
AW: besser so.
09.12.2011 11:05:37
Hajo_Zi
Hallo Karsten,
was ist an Deinem Beitrag offen, das sehe ich nicht in Deinem Beitrag?

AW: besser so.
09.12.2011 12:35:18
Karsten
Ich kann ihn ja schließen, dann hat die Seele ihre Ruhe. Hab nur gedacht, dass vielleicht nochmal jemand die Sache schönschreiben möchte. Wenn so ein Makro andauernd die Gefühle wechseln muss - Textformat, Datumformat....
Gruß
Karsten

312 Forumthreads zu ähnlichen Themen

Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Anzeige
letzte zeichen entfernen
Frank

hallo,
wie muss der Code lautetn wenn ich in einer Textbox in einer Userform vom eingetragenem Text die letzen 2 Zeichen löschen möchte sobald 20 Zeichen erreicht sind?
meine idee dazu ist: Private Sub TextBox1_Change() If Len(TextBox1) > 20 Then TextBox1 = Left(TextBox1) - 1 UserFor...
07.08.2009 11:05:20
Thread-ID: 1094231
8 Beiträge
Zeichen vor Namen entfernen
Michael

Hallo,
ich habe eine Datei mit etlichen Namen. Vor jedem Namen steht allerdings folgendes Zeichen:'
Also praktisch so 'Peter Müller
Die Zeichen sind in der Übersicht nicht zu sehen, wenn ich jedoch eine Zelle anklicke ist das Zeichen zu sehen. Kann mir jemand sagen, wie ich die Ding...
14.10.2009 15:07:15
Thread-ID: 1109601
6 Beiträge
Anzeige
VBA die letzten 4 Zeichen in einem String löschen
andreas

Hallo zusammen,
ich lese die Zelle "k12" als Variable ein und möchte dabei immer die letzten 4 Zeichen löschen
Modellname = Left(("k12"), Len("k12") - 4)
was ist falsch geschrieben?
Danke für die Hilfe
19.02.2010 11:58:31
Thread-ID: 1139731
4 Beiträge
Leerzeichen nach Text in Zelle löschen
Helmut

Liebe Forenuser,
ich habe noch eine Frage für heute:
Wie kann ich die Leerzeichen nach einem Text in allen Zellen in einem Tabellenblatt löschen?
Genauer:
Wenn ich z.B. in eine Zelle hineingehe, dann stehe ich oft nicht genau nach dem letzten Zeichen in der Zelle, sondern weiter...
07.05.2010 13:54:48
Thread-ID: 1156080
3 Beiträge
Leerzeichen in Zelle löschen
Helmut

Liebe Forenuser,
ich habe einen Code bekommen, der jeden Text in der Zelle auf seine Länge trimmt (Leerzeichen danach werden gelöscht). Dieser Code bezieht sich auf das komplette Tabellenblatt. Hier der Code:
Sub leerzeichen_loeschen() Dim c As Range Application.ScreenUpdating = False F...
28.06.2010 09:20:04
Thread-ID: 1164259
4 Beiträge
Tab. nur nach letzten 2 Zeichen sortieren
Charly

Hallo,
was muss im Code eingefügt werden damit die Tabellen nur nach den letzten 2 Zeichen sortiert werden?
Sub SortSheets() Dim w%, x%, y%, z% z = ThisWorkbook.Sheets("INFO").Index + 1 w = ThisWorkbook.Sheets.Count For x = z To w For y = x To w If Worksheets(y).Name Danke vorab.
C...
25.08.2010 00:13:10
Thread-ID: 1174058
3 Beiträge
Leerzeichen in Zelle Löschen
Fatih

Hallo Ihr Lieben,
ich habe gerade eine Excel-Datei bekommen aus dem ich ein Serienbrief gestalten soll - gar kein Problem.
In einer Spalte sind die Adressen und Hausnummern jeweils mit vielen Leerzeichen getrennt.
Etwa so.
Musterstrasse _________ 6 a
Teststrasse _______44___...
12.10.2010 13:52:43
Thread-ID: 1181955
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
7
5
3
3
2
3
2
6
9
4
2
9
3
3
2
4
6
3
2
10
2
3
21