Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte zeichen entfernen

Forumthread: letzte zeichen entfernen

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
UserForm2.Show
End If
End Sub
funzt aber leider nicht.
Gruss Frank
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: letzte zeichen entfernen
07.08.2009 11:05:20
ede
Hallo Frank,
verwende die MaxLength-Eigenschaft des Textbox, dann hast Du das Problem nicht!
gruss
jep, mach ich. kannte ich nicht. danke o.w.t.
07.08.2009 11:10:07
Frank
.
Eigenschaft -> MaxLength auf 20 setzen ...
07.08.2009 11:08:13
Matthias
Hallo
Es gibt doch die Eigenschaft: MaxLength
setz den Wert dort auf 20
ansonsten so:
Private Sub TextBox1_Change()
If Len(TextBox1.Text) > 20 Then TextBox1.Text = Left(TextBox1.Text, 20)
End Sub
Gruß Matthias
Anzeige
Danke dir auch. o.w.t.
07.08.2009 11:11:09
Frank
.
ähm, nachfrage
07.08.2009 11:14:29
Frank
wie würde denn der code lauten?
Das stand im Beitrag oT
07.08.2009 11:16:39
Matthias
Anzeige
ups. wer lesen kann ... sorry und danke o.w.t.
07.08.2009 11:19:47
Frank
.
;

Forumthreads zu verwandten 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
Die ersten 2 Zeichen entfernen
MikeM

Hallo,
ich suche nach einer Möglichkeit per FORMEL die ersten 2 Zeichen eines Textes zu löschen.
Z.B.:
ABCDE soll werden: CDE
ABCD soll werden: CD
Text in Spalten ist klar, will das aber per Formel machen.
Und um das ganze noch einfacher zu machen: Die ersten beiden Z...
20.04.2009 08:53:00
Thread-ID: 1069716
7 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
letztes Zeichen löschen
Roger

Hallo zusammen,
mein Tabellenblatt enthält in einer Spalte Textstrings, die als letztes Zeichen ein " enthalten. Das möchte ich gerne löschen.
Mit
Cells.Replace What:="Zeichen_alt", Replacement:="Zeichen_neu", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=True ersetze ich z....
16.11.2009 16:00:48
Thread-ID: 1117654
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
Anzeige
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
von rechts bis zum Komma löschen
rechts

Moin,
ich habe folgende Frage:
Ich habe folgenden Text in einer Zelle stehen:
Eichen-Gartenschwelle, 26x16 cm, gehobelt und gefast, liefern
Ich muss jetzt von links 40 Zeichen in eine andere Zelle kopieren. Das habe ich mit der Formel =LINKS(D22; 40) geschafft. Ergebnis ist dann...
03.03.2011 10:19:32
Thread-ID: 1203999
5 Beiträge
von links 4 Leerzeichen entfernen
links

Hallo Forum,
ich benötige Hilfe.
In den ersten 4 Stellen eines Strings kann
entweder 1 einzelnes Leerzeichen oder mehrere
aufeinander folgende Leerzeichen auftreten.
Ich möchte diese, jedoch nur im Bereich der 1.Stelle bis
zur 4.Stelle von links entfernen.
Als Ergeb...
06.03.2011 10:57:24
Thread-ID: 1204429
3 Beiträge
3stellige Zahlen löschen
Manfred

Hallo zusammen,
suche ein makro das mir in Tabelle1 Spalte B1 bis ca. B30000 (variabel) alle 3stelligen zahlen löscht.
Also nur den Wert löschen der Rest muß bleiben.
Mit freundlichen Grüßen
Manfred
24.05.2011 09:57:20
Thread-ID: 1215728
10 Beiträge
Löschen von 2 bestimmten Zeichen
2

Hallo alle zusammen,
habe hier folgende Formel:
=HYPERLINK(getlink(C1); WENN(ISTZAHL(FINDEN("...";C1)); LINKS(C1;FINDEN("...";C1)-1); C1))
Getlink-Funktion
Option Explicit Public Function getLink(ByRef Target As Range) As String If Target.Hyperlinks.Count > 0 Then getLink = T...
18.08.2011 14:04:48
Thread-ID: 1226612
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige