Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1056to1060
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeichen löschen in allen Tabellen und Zellen?

Leerzeichen löschen in allen Tabellen und Zellen?
13.03.2009 09:32:28
dieter(drummer)
Excel gut ist übertrieben!
Hi VBA Profis,
ich suche eine VBA Lösung, die in allen Zellen, in allen Tabellen der aktiven Arbeitsmappe, die NUR EIN LEERZEICHEN drin haben, das LEERZEICHEN löscht. Dann soll die Zelle leer sein.
Zellen, die einen anderen Inhalt haben, z. B. Text und Zahlen und/oder Formeln und Leerzeichen, dürfen davon nicht berührt werden.
Das Makro löse ich dann per Button aus!
Eine Lösung wäre toll.
Danke vorab für Tipps oder Makro.
Mit Gruß
dieter(drummer)

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeichen löschen in allen Tabellen und Zellen?
13.03.2009 10:11:54
schauan
Hallo,
wo steht denn das eine Leerzeichen? Wenn es zum Bleistift nur vorne oder hinten steht, kann man das mit wegtrimmen.
Wenn z.B. vorne und hinten eins steht, soll es nicht entfernt werden? Es wären ja dann zwei und nicht nur eins.
Gruß, Andre
AW: Leerzeichen löschen in allen Tabellen und Zellen?
13.03.2009 10:22:00
dieter(drummer)
Hi Andre,
Danke für schnelles drum kümmern. Das Leerzeichen steht irgendo in en Zellen und es handelt sich NUR um das Leerzeichen in den Zellen. Sonst ist NICHTS in den Zellen.
Gruß
dieter(drummer)
AW: Leerzeichen löschen in allen Tabellen und Zellen?
13.03.2009 10:54:49
schauan
Hallo Dieter,
muss es dann unbedingt VBA sein? Filter die Zellen, benutzerdefiniert, enthält und das Leerzeichen eingeben, und ersetze dann das Leerzeichen durch nix. Für VBA könntest Du das dann auch aufzeichnen.
Anzeige
AW: Leerzeichen löschen in allen Tabellen und Zellen?
13.03.2009 10:55:03
Jogy
Hi.
Probier das mal aus: 

Sub leerZeichenWeg()
Dim wsh As Worksheet
Dim zeLLe As Range
Application.ScreenUpdating = False
For Each wsh In ActiveWorkbook.Sheets
For Each zeLLe In wsh.UsedRange
If zeLLe.Formula = " " Then
zeLLe.ClearContents
End If
Next
Next
Application.ScreenUpdating = True
End Sub

Gruss, Jogy

besser so...
13.03.2009 11:04:05
Jogy
Hi.
So wäre es natürlich deutlich schneller: 

Sub leerZeichenWeg()
Dim wsh As Worksheet
Application.ScreenUpdating = False
For Each wsh In ActiveWorkbook.Sheets
wsh.UsedRange.Replace What:=" ", Replacement:="", LookAt:=xlWhole
Next
Application.ScreenUpdating = True
End Sub

Gruss, Jogy

Anzeige
AW: Dank an Schauan und Jogy. Jogys funtzt prima!
13.03.2009 11:08:50
dieter(drummer)
Danke an euch für schnelle Hilfe.
Danke Jogy für Makro. Funtz super!
Ein schönes Wochenende aus NRW mit Gruß
dieter(drummer)
AW: besser so...
13.03.2009 15:39:23
dieter(drummer)
Hallo Jogy,
Danke nochmal für das Makro. Läuft super. Kannst Du mir das Makro noch so erweitern, dass in einer Infobox mir am Ende die komplette Anzahl der gefunden Zellen - in der ganzen Arbeitsmappe - angibt, in denen das Leerzeichen in den Zellen gelöscht wurde, die NUR das Leerzeichen drin hatten?
Dein Makro:

Sub leerZeichenWeg()
Dim wsh As Worksheet
Application.ScreenUpdating = False
For Each wsh In ActiveWorkbook.Sheets
wsh.UsedRange.Replace What:=" ", Replacement:="", LookAt:=xlWhole
Next
Application.ScreenUpdating = True
End Sub


Wäre super!
Danke für evtl. Zusatzlösung.
Gruß
dieter(drummer)

Anzeige
AW: Frage an Jogy evtl. Zusatzlösung?
13.03.2009 16:28:09
dieter(drummer)
Hallo Jogy,
Danke nochmal für das Makro. Läuft super. Kannst Du mir das Makro noch so erweitern, dass in einer Infobox mir am Ende die komplette Anzahl der gefunden Zellen - in der ganzen Arbeitsmappe - angibt, in denen das Leerzeichen in den Zellen gelöscht wurde, die NUR das Leerzeichen drin hatten?
Dein Makro:

Sub leerZeichenWeg()
Dim wsh As Worksheet
Application.ScreenUpdating = False
For Each wsh In ActiveWorkbook.Sheets
wsh.UsedRange.Replace What:=" ", Replacement:="", LookAt:=xlWhole
Next
Application.ScreenUpdating = True
End Sub


Wäre super!
Danke für evtl. Zusatzlösung.
dieter(drummer)

Anzeige
AW: Frage an Jogy evtl. Zusatzlösung?
18.03.2009 13:37:21
Jogy
Hi.
Bei der Lösung so weit ich weiß nein.
Bei der anderen ginge es:

Sub leerZeichenWeg()
Dim wsh As Worksheet
Dim zeLLe As Range
Dim replCount As Long
Application.ScreenUpdating = False
For Each wsh In ActiveWorkbook.Sheets
For Each zeLLe In wsh.UsedRange
If zeLLe.Formula = " " Then
zeLLe.ClearContents
replCount = replCount + 1
End If
Next
Next
MsgBox ("Es wurden " & replCount & " Ersetzungen vorgenommen.")
Application.ScreenUpdating = True
End Sub

Ist bei großen Datenmengen aber recht lahm.
Gruss, Jogy

AW: Danke Jogy für Zusatzlösung! Funzt!
18.03.2009 14:18:37
dieter(drummer)
Ho Jogy,
Danke für Deine Zusatzlösung. Funzt prima.
Eine schönen Tag noch.
Mit Dank und Gruß
dieter(drummer)
Anzeige

325 Forumthreads zu ähnlichen Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
Anzeige
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Eine Zahl mit vorhandener Zahlenliste vergleichen
Niklas

Hallo Leute!
Es geht darum, eine eingegebene Zahl mit einer vorhandenen Zahlenliste vergleichen und die beiden nächstgelegenen Zahlen der Zahlenliste verwenden!
zur veranschaulichung:
ich habe die die zahlenliste : 1 , 2, 3, 4, 5, 6, 7
der eingegebene Wert ist z.B 1.5 dann soll...
17.10.2008 09:49:22
Thread-ID: 1017045
8 Beiträge
vorgegebene Summe aus Zahlen berechnen
mArsupiLami

Moin!
Ich benötige um regelmäßige Fehlerkorrekturen laufen zu lassen ein Script, dem ich eine Summe vorgebe und eine Range aus Zahlen (von mir aus Zellen A:A), das mir die Zusammenstellung aus Zahlen berechnet, die meine gesuchte Summe ergeben (Noch besser: Alle Kombinationen aus der Zahlen...
21.11.2008 11:25:35
Thread-ID: 1026668
6 Beiträge
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Autofilter - Anzahl vorh. Sätze
KViertel

Hallo in die Runde,
In einem Tabellenblatt wird In VBA ein Autofilter gesetzt. Die dabei angezeigten Sätze sollen in ein anderes Tabellenblatt kopiert werden. Wenn jetzt keine Sätze vorhanden sind, wird die Sub abgebrochen. In der Recherche habe ich einen Hinweis zu Subtotal gefunden, weiß...
11.12.2008 11:45:00
Thread-ID: 1031999
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
11
3
4
3
4
7
5
3
2
4
2
2
5
2
7
11
2
4
4
3
4
5
2
1