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
432to436
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
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Unter Bedingung String ändern

Unter Bedingung String ändern
23.05.2004 23:40:13
Johannes
Hallo,
ich habe in einer Spalte diverse Beschreibungen, z.b.:
...
Li-Ion 10.8V 3600mAh kompatibel zu
Li-Ion 10.8V 3600mAh kompatibel zu
NiMH 9.6V 4500mAh kompatibel zu FPCBP30
NiMH 9.6V 4500mAh kompatibel zu FPCBP30
...
Nun möchte ich alle Zeilen, bei denen "kompatibel zu" am Ende steht, dieses wegnehmen, so dass ich danach folgendes Ergebnis habe:
...
Li-Ion 10.8V 3600mAh
Li-Ion 10.8V 3600mAh
NiMH 9.6V 4500mAh kompatibel zu FPCBP30
NiMH 9.6V 4500mAh kompatibel zu FPCBP30
...
Wie kann ich das am besten machen?
Johannes

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Unter Bedingung String ändern
24.05.2004 00:07:47
Matthias
Hallo Johannes,
markiere die betroffenen Zellen und führe folgenden Code aus:

Sub EntferneKompatibel()
Dim z As Range
For Each z In Selection
If Right(z, 13) = "kompatibel zu" Then
z = Left(z, Len(z) - 14)
End If
Next
End Sub

Gruß Matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige