Replace löscht nicht alle Zeichen

Public Sub Ersetzen() Dim wks As Worksheet Dim rngDaten As Range, Zelle As Range Dim letzteZeile As Long Dim strArr As Variant Dim b As Byte Set wks = ThisWorkbook.Sheets("Daten") letzteZeile = wks.Cells(1048576, 1).End(xlUp).Row Set rngDaten = wks.Range("A2:A" & letzteZeile) strArr = Array("a", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "n", "o", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "@", "#", "$", "&", "%", "!", "^") For Each Zelle In rngDaten For b = 0 To UBound(strArr) Zelle.Replace strArr(b), "" Next b Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Die Replace-Funktion ist die selbe, die du unter Excel als "Suchen" bzw "Suchen&Ersetzen" kennst.
Keine Ahnung, ob du es bemerkt hast, aber wenn du bein letzten mal "Groß-/Kleinschreibung beachten" angeklickt hast, ist das Feld beim nächsten Aufruf wieder angeklickt. Das selbe gilt auch für die VBA-Funktion.
Wenn du keine Angaben wie LookAt, SearchOrder, MatchCase und MatchByte angibst, benutzt Excel das, was du (oder dein Kollege) beim letzten Mal ausgewählt hattest.
Guckst du:
Bemerkungen
Die Angaben für LookAt, SearchOrder, MatchCase und MatchByte werden jedesmal gespeichert, wenn Sie diese Methode verwenden. Wenn Sie beim nächsten Aufruf der Methode keine Werte für diese Argumente angeben, werden die gespeicherten Werte verwendet. Das Festlegen dieser Argumente ändert die Einstellungen im Dialogfeld Suchen, und durch Ändern der Einstellungen im Dialogfeld Suchen werden die gespeicherten Werte geändert, die verwendet werden, wenn Sie die Argumente auslassen. Um Probleme zu vermeiden, legen Sie diese Argumente jedes Mal explizit fest, wenn Sie diese Methode verwenden.

Public Sub Ersetzen() Dim vntItem As Variant Dim rngDaten As Range With ThisWorkbook.Sheets("Daten") Set rngDaten = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)) End With For Each vntItem In Array("a", "c", "d", "e", "f", "g", "h", _ "i", "j", "k", "l", "n", "o", "q", "r", "s", "t", "u", "v", _ "w", "x", "y", "z", "@", "#", "$", "&", "%", "!", "^") Call rngDaten.Replace(What:=vntItem, Replacement:=vbNullString, LookAt:=xlPart, MatchCase:=False) Next Set rngDaten = Nothing End Sub

Public Sub Ersetzen() Dim Z As Range Dim erg As String Dim i As Integer With ThisWorkbook.Sheets("Daten") For Each Z In .Range(.Range("A2"), .Cells(Rows.Count, "A").End(xlUp)).Cells erg = "" For i = 1 To Len(Z.Value) Select Case Mid(Z.Value, i, 1) Case "M", "P": erg = erg & Mid(Z.Value, i, 1) End Select Next Z.Value = erg Next End With End Sub

Public Sub Ersetzen() Dim Z As Range Dim erg As String Dim i As Integer With ThisWorkbook.Sheets("Daten") For Each Z In .Range(.Range("A2"), .Cells(Rows.Count, "A").End(xlUp)).Cells erg = "" For i = 1 To Len(Z.Value) Select Case Mid(Z.Value, i, 1) Case "M", "P", "0" To "9": erg = erg & Mid(Z.Value, i, 1) End Select Next Z.Value = erg Next End With End Sub

Beliebteste Forumthreads (12 Monate)

Replace löscht nicht alle Zeichen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread