Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Punkte in Zelle zählen und löschen

Punkte in Zelle zählen und löschen
18.09.2013 10:43:15
S.
Hallo ihr Lieben,
ich möchte folgendes per vba umsetzten:
In einer Zelle sollen die Punkte gezählt werden und wenn es mehr als 4 sind die hinteren löschen.
Ein Beispiel:
Wenn in der Zelle 1.2.2.2.1.a steht soll daraus 1.2.2.2.1a werden.
Wenn in der Zelle 1.2.2.2.1a steht soll nichts passieren.
Hat jemand dazu eine Idee?

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Punkte in Zelle zählen und löschen
18.09.2013 10:53:25
Hajo_Zi 

Option Explicit
Sub Punkte()
Dim InI As Integer
Dim InJ As Integer
Dim LoI As Long
Dim StWert As String
For LoI = 1 To Len(ActiveCell)
If Mid(ActiveCell, LoI, 1) = "." Then
If InJ


AW: Punkte in Zelle zählen und löschen
18.09.2013 10:57:14
Rudi
Hallo,
AB
21.12.3.45.5.a.e.f1.12.3.45.5aef
31.23.45.67.ert1.23.45.67.ert
4123.sdf.uio.rte.uas123.sdf.uio.rte.uas
51.2.3.4.5.6.71.2.3.4.567

ZelleFormel
B2=WENNFEHLER(LINKS(A2;FINDEN("#";WECHSELN(A2;".";"#";5))-1) & WECHSELN(TEIL(A2;FINDEN("#";WECHSELN(A2;".";"#";5))+1;9^9);".";"");A2)

Gruß
Rudi

Anzeige
AW: Punkte in Zelle zählen und löschen
18.09.2013 10:59:36
S.
Ihr seid ja Suuuuper!!!
Hajos Code war genau das, was mir gefehlt hat :)
Vielen Dank, auch dir Rudi.
LG
Sally

314 Forumthreads zu ähnlichen Themen

Zahlencode mit Punkte Formatieren
runny

Wer kann mir weiter helfen.
Ich habe einen 10-stelligen Zahlencode 0265006214 und diesen soll Excel autom. in das Format 0265.006.214 bringen.
Also nach der 4.Stelle und der 7.Stelle einen Punkt (SAP-Format). Zelle formatieren und ####.###.### habe ich schon ohne Erfolg geprüft.
Er...
28.08.2008 00:14:00
Thread-ID: 1005247
3 Beiträge
Anzeige
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
Anzahl von Werten mit mehreren Unterpunkten
Werten

Hallo zusammen,
habe folgendes Problem: Ich habe eine Liste mit Bestellungen.
Diese Bestellungen haben teilweise nur eine Position, teils mehrere.
Ich möchte nun nur wissen, wieviele Bestellungen ich ingesamt habe, egal wieviele Positionen die einzelne Bestellung hat....
Bsp:
14.10.2009 10:42:41
Thread-ID: 1109527
4 Beiträge
Anzeige
Zahl mit Punkt von Text trennen
Text

Hallo zusammen
Mit folgendem Code trenne ich die reine Zahl vom Text, wobei der Punkt verloren geht. Wie kann ich die vollständige Zahl mit Punkt trennen (Ergebnis sollte 150.2 sein)? Sub test() Linie = "150.2 (Aaaa - Bbbbb)" For Start = 1 To Len(Linie) sZeichen = Mid(Linie, Start, 1) If Is...
24.06.2010 13:11:36
Thread-ID: 1163876
3 Beiträge
Zahlen mit Punkt erkennen
Gregor

Hallo zusammen
Ich werde im Forum nicht fündig, obwohl bestimmt vorhanden. Ich will per VBA Zeilen mit Zahlen übertragen, wobei nur Zahlen (PSP) ohne Punkt übertragen werden sollen. Wie kann ich Zahlen mit Punkt erkennen, zB 1234.4, damit diese übersprungen werden?
Set SuBe = Workbooks(...
08.07.2010 12:51:51
Thread-ID: 1166126
6 Beiträge
Probleme beim Einfügen von Zahlen in meine Tabelle
Zahlen

Hallo alle zusammen,
ich hoffe ihr könnt mir helfen. Ich hoffe es macht nicht allzuviel Mühe.
ich möchte gerne Inhalt einer Tabelle auf einer Internetseite in eine Excel-Tabelle kopieren, mit dem Ziel die Tabelle anders zu sortieren als im Internet dargestellt.
In Spalte B stehen Za...
24.06.2011 19:13:48
Thread-ID: 1219568
3 Beiträge
chinesiches zeichen per VBA aus Text entfernen
Franz

Hallo Kollegen,
kann mit jemand sagen ob es möglich ist per VBA aus mehreren Zellen bestimmte Zeichen zu löschen.
Beispiel:
ich habe artikelbeschreibungen die wie folgt aussehen
右阀座C12045.6.1.25
压力表安装板BCW46D.6.10-4
管夹体SP322-PP DP-AS
测压管HFJ2-P3-3-P-800...
09.09.2011 07:55:42
Thread-ID: 1229171
5 Beiträge
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
09.12.2011 06:23:51
Thread-ID: 1241330
12 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
2
9
4
3
5
2
5
2
4
11
2
8
1
8
6
5
2
56
7
2
28
3
4
10
8