Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1092to1096
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
Inhaltsverzeichnis

Ziffer aus Spalte löschen

Ziffer aus Spalte löschen
Dan
Hallo zusammen,
ich habe in der dritten Spalte (C) eine Liste mit ca. 400 Einträgen, die allesamt vom Aufbau her ähnlich sind:
2.12.4
2.ml.4
2.1.2
2.ü.3
2.1.1
2.7.12
Ich will in jeder Zeile die "2." löschen und nicht dies nicht manuell 400mal durchführen müssen. Gibt es da einen Trick?
Euch einen schönen Abend!
Dan

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

Betreff
Benutzer
Anzeige
AW: Ziffer aus Spalte löschen
30.07.2009 21:49:36
Hajo_Zi
Hallo Dan,
in Deinem Beispiel sind das also alle?

AW: Ziffer aus Spalte löschen
30.07.2009 21:59:11
Dan
Hi Hajo,
nein, das geht so weiter
2.8.11
2.8.12-14
2.12.30
2.3.5
2.11.24
2.9.17
2.2.2
2.ü5.2
2.ü2.31-32
2.4.4
2.9.16
2.12.52
2.4.5
2.4.6
2.ü4.10
2.6.20
2.4.9-10
2.4.8
2.11.23
2.8.7
2.12.14
2.3.22
2.3.24
2.3.23
2.4.11
2.4.11
2.4.24
2.ü3.9
2.11.27-28
2.11.5
2.12.23&79
2.12.54-55
2.11.20
2.ml5.5
2.5.5
2.2.12
...
würde aber gerne in jeder Zeile die "2." herauslöschen!
Gruss, Dan
Anzeige
AW: Ziffer aus Spalte löschen
30.07.2009 22:13:14
Hajo_Zi
Hallo Dan,
Tabelle1
 AB
12.8.12-148.12-14
22.ü5.2ü5.2
32.ü2.31-32ü2.31-32
42.ü4.10ü4.10
52.4.9-104.9-10

verwendete Formeln
Zelle Formel
B1 =TEIL(A1;3;LÄNGE(A1))
B2 =TEIL(A2;3;LÄNGE(A2))
B3 =TEIL(A3;3;LÄNGE(A3))
B4 =TEIL(A4;3;LÄNGE(A4))
B5 =TEIL(A5;3;LÄNGE(A5))

Tabellendarstellung in Foren Version 4.9


Gruß Hajo
Anzeige
VBA Variante
30.07.2009 22:34:19
Tino
Hallo,
hier eine Variante mit VBA
Sub Loesche_2()
Dim Bereich As Range
Dim strString As String
Set Bereich = Range("C1", Cells(Rows.Count, 3).End(xlUp))

With Application
 strString = Join(.Transpose(Bereich), "###?")
 strString = "?" & strString
 strString = Replace(strString, "?2.", "")
 strString = Replace(strString, "?", "")
 Bereich = .Transpose(Split(strString, "###"))
End With

End Sub

Gruß Tino
Anzeige
Warum nicht "Suchen" (2.) - "Ersetzen" ()? oT
31.07.2009 00:57:43
Jens
AW: Warum nicht "Suchen" (2.) - "Ersetzen" ()? oT
31.07.2009 07:15:22
Hajo_Zi
Hallo Jens,
da 2. nicht nur zu Beginn vorkommt.
Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige