Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1904to1908
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
1904to1908
1904to1908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte Zeichen löschen

letzte Zeichen löschen
13.11.2022 00:04:37
Fred
Guten Abend, ExcelProfis
ich habe ein Makro, was für einen ExcelProfi sicherlich leicht zu korrigieren ist.
Ich möchte die Zeichen nach dem Komma und einschließlich dem Komma löschen.
Bisher:

Dim r As Range
For Each r In Range("N229").CurrentRegion
If InStr(r, ",") > 0 Then
r = Left(r, Len(r) - InStr(r, ","))
End If
dieses Makro allerdings macht allerdings aus zB 23,4 eine 2
Kann ein Profi mir das bitte korrigieren?!
Gruss
Fred

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

Betreff
Datum
Anwender
Anzeige
AW: letzte Zeichen löschen
13.11.2022 00:54:56
onur 

Dim r
For Each r In Range("N229").CurrentRegion
If InStr(r, ",") > 0 Then r = Left(r, InStr(r, ",") - 1)
Next

Wenn es um Zahlen geht …
13.11.2022 06:48:04
RPP63
Moin!
Bei Zahlen braucht man keine Schleife.
Allerdings muss in der Range.Replace-Methode der englische Dezimaltrenner . (Punkt) genommen werden:

Range("N229").CurrentRegion.Replace ".*", "", xlPart
Gruß Ralf
AW: Wenn es um Zahlen geht …
13.11.2022 11:02:28
Daniel
Das funktioniert auch mit Texten.
Dann natürlich mit Komma.
Gruß Daniel
AW: letzte Zeichen löschen
13.11.2022 08:23:36
 Matthias
Hallo,
Ausgehend davon des es immer Zahlen sind:

Sub Ohne_Komma()
Dim r As Range
For Each r In Range("N229").CurrentRegion
r = Int(r)
Next
End Sub
MfG Matthias
Anzeige
AW: letzte Zeichen löschen
13.11.2022 08:47:21
volti
Hallo Frad,
und noch eine Variante...
Code:


Sub Test()
  Dim r As Range
   
  For Each r In Range("N229").CurrentRegion
     r = Split(r, ",")(0)
  Next r
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: letzte Zeichen löschen
13.11.2022 09:35:16
Fred
Hallo Matthias, RPP63, Volti und Onur,
erstmal vielen Dank für eure Aufmerksamkeit in den frühen Sonntagstunden.
Vier Ansätze; Aber keine funktioniert. Das bedeutet wohl ganz klar, dass ich eine wichtige Information nicht erwähnt habe.
Es geht um Zellwerte, mit Format "Standard",- anscheinend durchgehend Zahlen als Text.
Ich habe mal einen kleinen Auszug angefügt:
https://www.herber.de/bbs/user/156159.xlsb
Gruss
Fred
AW: letzte Zeichen löschen
13.11.2022 10:30:04
hary
Moin
Ohne CurrentRegion

Sub test234()
Dim r As Range
For Each r In Range("N11:AG30")
If InStr(r, ",") > 0 Then r = Left(r, InStr(r, ",") - 1)
Next
End Sub
gruss hary
Anzeige
AW: letzte Zeichen löschen
13.11.2022 10:37:47
Fred
Hallo Harry,
nun funzt es!
Vielen Dank für deine Mühe
& einen schönen Sonntag
Gruss
Fred
AW: Preisfrage
13.11.2022 10:36:35
GerdL
Johaiakosaimas?

Sub Unit()
Dim C As Range
For Each C In ActiveSheet.ListObjects(1).DataBodyRange.Columns(14).Resize(, 20).Cells
C.Activate
ActiveCell = Val(ActiveCell)
Next
End Sub
Gruß Gerd
AW: Preisfrage
13.11.2022 10:47:53
Fred
Hallo GerdL,
ich habe schon die Lösung von Hary.
In der Original-Datei sind über 2000 Zeilen,- dein Makro arbeitet dies wesenlich "langsamer" ab ...
Vielen Dank für deine Mühe und einen schönen Sonntag!
Gruss
Fred
AW: letzte Zeichen löschen
13.11.2022 11:39:04
snb 

Sub M_snb()
For Each it In Tabelle1.ListObjects(1).DataBodyRange.Offset(, 13).SpecialCells(2, 2)
it.Value = Abs(it.Value)
it.NumberFormat = "0"
Next
End Sub

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