Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1848to1852
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
1848to1852
1848to1852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Die letzten 3 Buchstaben löschen (Makro)

Die letzten 3 Buchstaben löschen (Makro)
06.10.2021 11:48:59
Frosch
Hallo Zusammen,
ich hätte eine kurze Frage.
Ist es möglich, über eine Makro die letzten 3 Buchstaben/ Zahlen aus einer Zelle zu löschen, sodass ich es nicht so umständlich über =LINKS(A1;LÄNGE(A1)-3)
machen muss und die Werte hin und her kopieren muss.
Danke im vorraus,
Frosch

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

Betreff
Datum
Anwender
Anzeige
AW: Die letzten 3 Buchstaben löschen (Makro)
06.10.2021 11:55:45
EtoPHG
Hallo,
Ja, das ist möglich. Nur aufpassen: Wenn die Werte in den Zellen durch Formeln entstehen, dann würdest du die Formel zerstören.
In VBA heissen die Befehle praktisch gleich, halt nur in Englisch 

ziel = Left$(quelle,Len(quelle)-3)
Die Variablen musst du selbst bestimmen, da nur Du den Aufbau deiner Tabelle kennst.
Gruess Hansueli
AW: Die letzten 3 Buchstaben löschen (Makro)
06.10.2021 12:04:42
Werner
Hallo,

Sub Schaltfläche1_Klicken()
Dim loLetzte As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range(.Cells(1, "ZZ"), .Cells(loLetzte, "ZZ")).FormulaLocal = "=LINKS(A1;LÄNGE(A1)-3)"
.Range(.Cells(1, "ZZ"), .Cells(loLetzte, "ZZ")).Copy
.Cells(1, "A").PasteSpecial Paste:=xlPasteValues
.Columns("ZZ").ClearContents
End With
End Sub
Gruß Werner
Anzeige
AW: Die letzten 3 Buchstaben löschen (Makro)
06.10.2021 12:32:55
Daniel
Hi
mit der Idee von HansUeli
folgendes Makro

Sub Abschneiden()
dim Zelle as Range
for each Zelle in Selection
Zelle.Value = Left(Zelle.Value, Len(Zelle.Value) - 3)
Next
End Sub
dann die betroffenen Zellen markieren und das Makro starten.
solltest du größere Datenmengen umwandeln wollen und das dir dann zu lange dauert, könnte man noch etwas anders vorgehen um es zu beschleunigen.
Gruß Daniel
AW: Die letzten 3 Buchstaben löschen (Makro)
07.10.2021 10:22:49
Walter
Hallo,
vielen Dank für eure Hilfe, hat hervorragend funktioniert.
Vg
Frosch
warum dann offen? o.w.T.
07.10.2021 11:16:15
Werner
AW: Die letzten 3 Buchstaben löschen (Makro)
07.10.2021 11:21:32
Walter

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