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
912to916
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Erste Stelle von links entfernen wenn..

Erste Stelle von links entfernen wenn..
12.10.2007 14:07:00
links
Hallo alle zusammen,
im Bereich von B2 bis C80 soll jede Zelle geprüft werden, ob an erster Stelle von links ein P oder ein W enthalten ist. Wenn ja dann soll von links das erste Zeichen entfernd werden.
Beispiel: in B2 steht
P 1kL 988
soll dann
1kL 988
lauten.
Ich hoffe mir kann jenand helfen
Danke im voraus!
MFG Andre

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erste Stelle von links entfernen wenn..
12.10.2007 14:14:52
links
Hallo Andre,
das geht z.B. so:
 
 BCDE
2P 1kL 988P 1kL 988 1kL 988 1kL 988
3P 1kL 988P 1kL 988 1kL 988 1kL 988
Formeln der Tabelle
D2 : =WENN(LINKS(B2;1)="P";RECHTS(B2;LÄNGE(B2)-1);B2)
E2 : =WENN(LINKS(C2;1)="P";RECHTS(C2;LÄNGE(C2)-1);C2)
D3 : =WENN(LINKS(B3;1)="P";RECHTS(B3;LÄNGE(B3)-1);B3)
E3 : =WENN(LINKS(C3;1)="P";RECHTS(C3;LÄNGE(C3)-1);C3)
 

Gruß Ingolf

Anzeige
AW: Erste Stelle von links entfernen wenn..
12.10.2007 14:17:07
links
Hallo Andre,
diese Formel prüft das erste Zeichen auf kleine und große P's und W's:
 AB
1P 1kL 9881kL 988
2W 50kL 98850kL 988

Formeln der Tabelle
ZelleFormel
B1=WENN(ODER(CODE(A1)=80;CODE(A1)=112;CODE(A1)=87;CODE(A1)=119); TEIL(A1;3;99); A1)

Die Formel aus B1 kannst du runterkopieren.
Gruß,
Beate

Anzeige
AW: Erste Stelle von links entfernen wenn..
12.10.2007 14:20:00
links
Servus,

Sub ttt()
Dim zelle As Range, Bereich As Range
Set Bereich = Range("B2:C80")
For Each zelle In Bereich
If Left(zelle.Value, 1) = "P"  Or Left(zelle.Value, 1) = "W" Then
zelle.Value = Trim(Right(zelle.Value, Len(zelle.Value) - 1))
End If
Next zelle
End Sub


Gruß
Chaos

AW: Erste Stelle von links entfernen wenn..
12.10.2007 14:32:00
links
Hallo alle zusammen,
tausend DANK für die Tipps. Ich vergaß zu erwähnen, dass ich eine Lösung mit Makro benötige. Der Beitrag von Chaos hat den gewünschten Effekt erzielt.
MFG Andre

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige