Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba- finden + löschen

Forumthread: vba- finden + löschen

vba- finden + löschen
28.05.2020 15:53:50
Fred
Hallo Excel,- VBA Experten,
ich wäre sehr dankbar, wenn mir jemand ein vba schreiben könnte, welches in den Spalten AD:AX (30 bis 50) in den einzelnen Zellen das pluszeichen sucht, und dieses mit anschließenden Wert aus den Zellen löscht.
Beispiel, aus
Berti+123
wird Berti
mit freundlichen Gruß
Fred
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba- finden + löschen
28.05.2020 16:49:27
UweD
Hallo
so?

Sub kill_Plus()
Dim RNG As Range, Arr(), C
Set RNG = Range("AD30:AX50")
Set C = RNG.Find("+", LookIn:=xlValues)
If Not C Is Nothing Then
Do
C.Value = Left(C.Value, InStr(C.Value, "+") - 1)
Set C = RNG.FindNext(C)
Loop While Not C Is Nothing
End If
End Sub

LG UweD
Anzeige
AW: vba- finden + löschen
28.05.2020 16:59:24
Fred
Hallo UweD,
genau das ist es!
Mit 30:50 waren eigentlich die Spalten gemeint,- macht aber nichts, ich kann das vba auch in Bezug auf einen Zellenbereich anwenden.
Vielen Dank für deine Mühe!!
Gruß
Fred
Danke für die Rückmeldung (owT)
29.05.2020 08:32:40
UweD
;

Beliebteste Forumthreads (12 Monate)

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