Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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?

Anzeige

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 


Anzeige
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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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