Thema Datum  Von Nutzer Rating
Antwort
22.07.2019 15:01:11 Gast16701
NotSolved
Blau Lösung von Leerzeichen innerhalb eines Bereiches
22.07.2019 15:33:00 Torsten
NotSolved
22.07.2019 18:29:33 Gast28798
NotSolved

Ansicht des Beitrags:
Von:
Torsten
Datum:
22.07.2019 15:33:00
Views:
384
Rating: Antwort:
  Ja
Thema:
Lösung von Leerzeichen innerhalb eines Bereiches
Hallo,
so:

Sub Leerzeichen_löschen()

'
' Leerzeichen_löschen Makro
 
On Error Resume Next
Dim Zelle As Range
Dim SuchenNach As String
Dim ErsetzenDurch As String
SuchenNach = " "
ErsetzenDurch = ""
For Each Zelle In ActiveSheet.Range("AB6:AP2500")
 Zelle.Value = Application.Substitute(Zelle.Value, SuchenNach, ErsetzenDurch)
Next Zelle
On Error GoTo 0
End Sub

Gruss


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
22.07.2019 15:01:11 Gast16701
NotSolved
Blau Lösung von Leerzeichen innerhalb eines Bereiches
22.07.2019 15:33:00 Torsten
NotSolved
22.07.2019 18:29:33 Gast28798
NotSolved