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
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Namen rausfinden

Namen rausfinden
10.02.2004 09:03:29
Walter MB
Guten Morgen Zusammen,
habe für den Fachmann wahrscheinlich nur ein kleines Problem.
In meiner Zelle z.B. B2 steht Dr. Günter ich möchte nur Dr. rausfiltern und
in Zelle C2 reinschreiben.
Es soll aber nur Dr. oder Prof. rausgefiltert werden.
Danke im voraus für die Mühe
Gruss Walter

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Namen rausfinden
10.02.2004 09:31:52
Alex K.
Hallo Walter,
dieses Makro sollte dir helfen:

Public Sub TitelFiltern()
Dim rng     As Range
Dim pos     As Integer
'Bereich B2:B100 entsprechend anpassen
For Each rng In ActiveSheet.Range("B2:B100")
pos = 0
If LCase(Left(rng.Value, 3)) = "dr." Then
rng.Offset(0, 1) = "Dr."
pos = 4
End If
If LCase(Left(rng.Value, 5)) = "prof." Then
rng.Offset(0, 1) = "Prof."
pos = 6
End If
If pos > 0 Then
rng.Value = Trim(Mid(rng.Value, pos))
End If
Next rng
End Sub

Danke zusätzlich
10.02.2004 09:47:56
Walter
Hallo Alex,
herzlichen Dank für deine Unterstützung.
Ich brauch allerdings gerade die Formel für die Tabelle.
Ich bin sicher das DEINEN Vorschlage später mal in meine Datei einbinden kann.
Herzlichen Dank nochmals
Gruss Walter
Anzeige
AW: Namen rausfinden
10.02.2004 09:32:09
Worti
Hallo Walter,
in C2 die Formel =WENN(LINKS(B2;3)="Dr.";LINKS(B2;3);WENN(LINKS(B2;5)="Prof.";LINKS(B2;5);""))
Worti
AW: Namen rausfinden
10.02.2004 09:42:23
Walter MB
Hallo Worti,
genau das brauchte ich.
Danke
Gruss Walter
AW: Namen rausfinden
10.02.2004 09:42:24
Walter MB
Hallo Worti,
genau das brauchte ich.
Danke
Gruss Walter
AW: Namen rausfinden
10.02.2004 09:32:51
Galenzo
Hallo Walter,
ich empfehle dir eine "zweifache" WECHSELN-Funktion:
=WECHSELN(WECHSELN(A1;"Prof. ";"");"Dr. ";"")

mfg
Danke
10.02.2004 09:44:41
Walter MB
Hallo Galenzo,
danke für die Info ,
auch das kann ich gebrauchen.
Gruss Walter
AW: Danke - aber:
10.02.2004 09:52:25
Galenzo
yepp - und vor allen berücksichtigt diese Lösung auch "Prof. Dr." - was die anderen nicht machen!!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige