Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1892to1896
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
1892to1896
1892to1896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte zeichen löschen und auffüllen

letzte zeichen löschen und auffüllen
29.07.2022 08:20:44
Stefan
Hallo ihr Experten,
ich versuche in einer Spalte (E) die letzten 5 Zeichen des Zellinhalts zu entfernen. Die Spalte kann unterschiedlich viele beschriftete Zellen haben.
Solche Buchstaben/Zahlen Kombinationen in den Zellen untereinander
F013859_K066
F385_K022
F3850_K005
F384_K449
und so soll es dann aussehen
F013859
F000385
F003850
F000004
Hinter dem F sollen so viele 0 aufgefüllt werden die Zahl 6 Stellig ist. es kann vorkommen das nur eine 0 oder fünf 0 hinter dem F eingesetzt werden müssen.
Vielen Dank schonmal

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

Betreff
Datum
Anwender
Anzeige
AW: letzte zeichen löschen und auffüllen
29.07.2022 08:39:10
Daniel
Hi
Probiert mal die Formel
=Links(Wechseln(A1;"F";"F"&Wiederholen("0"; 12-Länge(A1)));7)
Gruß Daniel
AW: letzte zeichen löschen und auffüllen
29.07.2022 09:09:41
Stefan
Ich brauchs als Sub. muss es in einen bestehenden Code einbinden. Entschuldigung, hatte ich vergessen zu schreiben.
Viele Grüße
AW: letzte zeichen löschen und auffüllen
29.07.2022 09:32:55
Daniel
Hi
in VBA:
Links =&gt Left
Wechseln =&gt Replace
Wiederholen =&gt String oder Worksheetfunction.Rept wobei bei String die Anzahl zuerst und das Zeichen als zweites angegeben werden muss
Länge =&gt Len
Gruß Daniel
AW: letzte zeichen löschen und auffüllen
29.07.2022 09:44:47
Stefan
Uii, das ist mir noch zu hoch, kannst du es für einen Laien schreiben.
AW: letzte zeichen löschen und auffüllen
29.07.2022 09:59:07
GerdL
Moin,
zum Beispiel für alle markierten Zellen

Dim C As Range
For Each C In Selection.Cells
C.Value = Left(C, 1) & Format(Mid(Left(C, Len(C) - 5), 2), "000000")
Next
Gruß Gerd
Anzeige
AW: letzte zeichen löschen und auffüllen
29.07.2022 10:23:06
Stefan
Danke GerdL Perfekt!!! Vielen Dank
und auch Daniel, Vielen Dank
Euch ein schönes Wochenende
AW: letzte zeichen löschen und auffüllen
29.07.2022 10:03:05
Daniel
naja, so viel anders als die Formellösung ist das auch nicht.

Dim x As String
Dim y As String
x = "F385_K022"
y = Left(Replace(x, "F", "F" & String(12 - Len(x), "0")), 7)
MsgBox x & vbLf & y
wo war da jetzt das Problem?
wenn du größere Datenmengen in dieser Form im Tabellenblatt umwandeln willst, ist es auch per VBA das geschickteste, die Formel daneben in eine Spalte zu schreiben, die Formel zu kopieren und als Wert einzufügen.
Gruß Daniel
Anzeige

309 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
11
2
4
6
3
2
10
2
3