Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sonderzeichen aus Spalte entfernen

Sonderzeichen aus Spalte entfernen
Peter
Hallo,
ich möchte aus der Spalte B alle Sonderzeichen
wie z.B. _, (,),? usw. entfernen.
Mein Versuch funktioniert leider nicht.
Wer kann helfen?
Siehe Anlage
Danke
Peter
Sub SonderzDel()
Dim a As Integer
For a = 2 To 5 'Cells(65536, 2).End(xlUp).Row
If Cells(a, 2).Value = Chr(KeyAscii) Like "[0-9 a-z A-Z]" = False Or _
KeyAscii = 32 Then
Beep
MsgBox "Nur Zahlen und Buchstaben erlaubt!"
KeyAscii = 0
End If
Next a
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Sonderzeichen aus Spalte entfernen
03.03.2011 00:32:51
Josef

Hallo Peter,
das hast du aber ganz schön gewürfelt;-))
Versuch es mal so.

Sub peter()
  Dim rng As Range, rngF As Range
  Dim lngPos As Long
  
  
  On Error Resume Next
  Set rngF = Columns(2).SpecialCells(xlCellTypeConstants)
  On Error GoTo 0
  
  If Not rngF Is Nothing Then
    For Each rng In rngF
      For lngPos = 1 To Len(rng)
        If Not Mid(rng, lngPos, 1) Like "[0-9 a-z A-Z]" Then
          rng.Characters(lngPos, 1).Text = "#"
        End If
      Next
      rng.Replace "#", ""
    Next
  End If
  
  Set rng = Nothing
  Set rngF = Nothing
End Sub


Gruß Sepp

Anzeige

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige