Thema Datum  Von Nutzer Rating
Antwort
Rot Säubern_Glätten()
12.02.2017 16:55:26 Sebastian
NotSolved
12.02.2017 18:19:27 Onur
NotSolved
12.02.2017 18:30:59 BigBen
NotSolved
14.02.2017 18:17:33 Sebastian
NotSolved
14.02.2017 18:53:58 lupo1
NotSolved
14.02.2017 19:06:37 Sebastian
NotSolved
14.02.2017 20:04:47 lupo1
NotSolved
14.02.2017 20:23:41 Gast68042
NotSolved
14.02.2017 20:34:33 lupo1
NotSolved
14.02.2017 20:55:52 Sebastian
NotSolved

Ansicht des Beitrags:
Von:
Sebastian		 Datum:
12.02.2017 16:55:26		 Views:
1189		 Rating:
     
Antwort:
  Ja
Thema:
Säubern_Glätten()

Guten Tag ich habe hier dieses Makro welches ich im Netz gefunden habe,

aber irgendwie funktioniert es nich ich weis aber nicht warum kann mir jemand Helfen?

Ich möchte mit dem Makro nur die Markierten Zeilen Glätten und Säuber,

Wenn ich das Makro starte sind die Zeilen aber unverändert, mit der Formel Glätten Fungtioniert es!

Sub Säubern_Glätten() 
Dim cx As Range, str As String
Application.TransitionNavigKeys = False
For Each cx In Selection.Cells
    With cx
    If .Value <> "" And .PrefixCharacter <> "" Then
    str = WorksheetFunction.Clean(.Text) 'Säubern
    str = Trim(str) 'Glätten
    .Clear
    .NumberFormat = "@"
    .Value = str
End If
    End With
Next cx
        MsgBox "Hallo  " & Application.UserName & vbNewLine & _
        "Vorgang erfolgreich ausgeführt" & vbNewLine & _
        "Alle Markierten Zeilen wurden Geglättet und Gesäubert", vbInformation, "Information"
End Sub

Vielen Dank im voraus

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Säubern_Glätten()
12.02.2017 16:55:26 Sebastian
NotSolved
12.02.2017 18:19:27 Onur
NotSolved
12.02.2017 18:30:59 BigBen
NotSolved
14.02.2017 18:17:33 Sebastian
NotSolved
14.02.2017 18:53:58 lupo1
NotSolved
14.02.2017 19:06:37 Sebastian
NotSolved
14.02.2017 20:04:47 lupo1
NotSolved
14.02.2017 20:23:41 Gast68042
NotSolved
14.02.2017 20:34:33 lupo1
NotSolved
14.02.2017 20:55:52 Sebastian
NotSolved