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

Forumthread: Leerzeichen raus in Zelle NUR Leerzeichen

Leerzeichen raus in Zelle NUR Leerzeichen
07.09.2007 09:31:27
dieter(drummer)
Excel und VBA SoLaLa
Hi Formelprofis,
mein Problem ist: In einer Arbeitsmappe, in den Tabellen 1 bis 53 (benannt), im Bereich F5:N400 (in allen Tabellen der gleiche Bereich) ist Text, Z. B. "Schmitz Huber", oder "Schmitzhuber". Es gibt auch in dem Bereich Zellen nur mit Leerzeichen OHNE Text.
VBA-Makro Ziel: In dem Zellbereich F5:N400 aller Tabelen 1 bis 53, sollen alle Leerzeichen - NUR aus den Zellen die KEINEN TEXT enthalten - entfernt werden! In den Zellen, in denen Text ist soll KEIN Leerzeichen entfernt werden.
So ein VBA-Makro wäre toll. Mit der Bitte um Hilfe und Dank
grüßt
dieter(drummer)

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeichen raus in Zelle NUR Leerzeichen
07.09.2007 09:40:00
c0bRa
Hio...
Das hier nutzt die Zellfunktion =GLÄTTEN(). Hat den Vorteil, dass aufeinanderfolgende Leerzeichen zu einem umgewandelt werden:
Code aus Microsoft Excel Objekt Tabelle1:
Option Explicit
Public Sub test()
    Dim r As Range
    For Each r In Range("F5:N400")
        r.Value = WorksheetFunction.Trim(r.Value)
    Next
End Sub

Rückmeldung nicht vergessen...
c0bRa
Perl ist die einzige Sprache, die vor und nach einer RSA-Verschlüsselung gleich aussieht.

Anzeige
AW: Leerzeichen raus in Zelle NUR Leerzeichen
07.09.2007 09:52:00
dieter(drummer)
Hi CoBra,
Danke für schnelle Hilfe. Funktioniert.
Mit Gruß und ein schönes Wochende
dieter(drummer)

AW: Leerzeichen raus in Zelle NUR Leerzeichen
07.09.2007 09:56:49
Renee
Hi Dieter,
Dann hab ich Dich tatsächlich falsch verstanden, denn c0bRa's Code verändert auch Zellen mit anderem Inhalt als nur Leerstellen!
Greetz Renee

Anzeige
AW: An Renee
07.09.2007 10:05:00
dieter(drummer)
Hi Renee,
Danke für Deinen TIPP. Werde DeinMakro nutzen. Trotzdem Dank an beide.
Mit Dank und Gruß
dieter(drummer)

AW: Leerzeichen raus in Zelle NUR Leerzeichen
07.09.2007 09:53:09
Renee
Hi Dieter,
Wenn ich's richtig verstanden hab, so:

Sub LeereRaus()
Dim rC As Range
For Each rC In Range("F5:N400")
If Len(rC) And rC = WorksheetFunction.Rept(" ", Len(rC)) Then rC.ClearContents
Next
End Sub


Greetz Renee

Anzeige
AW: Dank an CoBra und Renee. Funtz prima. O.T.
07.09.2007 09:59:00
dieter(drummer)
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige