Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1760to1764
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

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

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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige