Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeichen löschen beim verlassen der Zelle

Forumthread: Leerzeichen löschen beim verlassen der Zelle

Leerzeichen löschen beim verlassen der Zelle
23.03.2007 21:59:00
Lenhard
Moin Moin!
Ich benötige ein VBA-Skribt, welches alle (!) Leerzeichen aus einer Zelle nimmt, wenn man die Zelle verläßt.
Bei meinen Recherchen bin ich hier im Forum auf folgendes gestoßen (https://www.herber.de/forum/archiv/12to16/t13062.htm)... 

Sub LeerZeichen()
Dim rng As Range
For Each rng In Range("E9:E10").Cells
rng.Value = WorksheetFunction.Trim(rng.Value)
Next rng
End Sub

Direkt in das Makroskript des Tabellenblattes kopiert passiert allerdings nix.
'Private Sub LeerZeichen() als 1. Zeile brachte auch keine Änderung.
Bei einer Text-Eingabe mit Leerzeichen in die Zelle E9 und/oder E10 bleiben alle Leerzeichen nach verlassen der Zelle erhalten.....
Was mache ich falsch? Wo sind meine Verständnis-Fehler? ...oder muss es vielleicht ein ganz und gar anderes VBA-Skript sein?
Gruß
Lenhard
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Leerzeichen löschen beim verlassen der Zelle
23.03.2007 22:14:47
Josef
Hallo Lenard,
gehört ins Modul der Tabelle.
' **********************************************************************
' Modul: Tabelle2 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E9:E10")) Is Nothing Then
    On Error GoTo ErrExit
    Application.EnableEvents = False
    Target(1, 1) = Replace(Target(1, 1), " ", "")
End If

ErrExit:
Application.EnableEvents = True
End Sub

Gruß Sepp
Anzeige
AW: Leerzeichen löschen beim verlassen der Zelle
23.03.2007 23:11:00
Lenhard
Jo!! Danke Sepp! Das wars!
Das sieht ja ganz anders aus, als das was ich da gefunden hatte... ?!
Ich hatte nur zwei Schwierigkeiten (...da ich ja VBAmäßig noch viel lernen muss! ...und will!):
Ich hatte Dein Skript wie beschrieben ins Modul der Tabelle gesetzt und es kamen Fehlermeldungen. Mir fiel auf, das bereits ein Skript mit der gleichen Über- und Endschrift im Modul stand. Ich habe einfach folgendes gemacht...

Private Sub Worksheet_Change(ByVal Target As Range)
'  Hier das erste Skript
'  Hier Dein Skript, Sepp
'  ...und ich glaube, hier kann noch ein weiteres Skript rein
' ...usw. usw. usw.
End Sub
Weiter stellte ich fest, dass ich ja diese Funktion auch in der Spalte daneben benötigte... ...und ärgerte mich, es nicht im Forum erwähnt zu haben. Mir kam folgende Idee: E9:E10, F9:F10 ...einfach dazu geschrieben und es klappte!
Da ich will, dass weitere VBA-Neulinge genauso wie ich noch viel lernen, erwähne ich das!
Besten Dank noch mal Sepp!!
Gruß
Lenhard
Anzeige
AW: Leerzeichen löschen beim verlassen der Zelle
23.03.2007 22:16:41
Sigi
Hi Lenhard,
folgender Code löscht Blanks nach Änderung:
ins Klassenmodul der Tabelle: 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Txt As String
Txt = Target.Text
Target.Value = BlanksRaus(Txt)
End Sub
in ein allgemeines Modul: 

Public Function BlanksRaus(Text As String) As String
BlanksRaus = WorksheetFunction.Substitute(Text, " ", "")
End Function
Gruß
Sigi
Anzeige
AW: Leerzeichen löschen beim verlassen der Zelle
23.03.2007 23:15:21
Lenhard
Vielen Dank Sigi! Ich habe das Skript von Sepp genommen.
Trotzdem besten Dank nochmal!
Gruß
Lenhard
AW: Leerzeichen löschen beim verlassen der Zelle
23.03.2007 22:19:16
Kay
Hallo Lenhard,
so wie ich das sehe gehört dies in ein Normales Modul.
MfG
Kay
AW: Leerzeichen löschen beim verlassen der Zelle
23.03.2007 23:17:00
Lenhard
Danke Kay! ...aber wie Du siehst haben mir Sepp und Sigi schon "excel"ent geholfen!
Besten Dank!
Gruß
Lenni
Anzeige
;

Forumthreads zu verwandten Themen

Formelsuche Zelleninhalt trennen
Christian

Hallo,
ich bräuchte 3 Formel die mir einen Zelleninhalt trennen
...habs nie so mit der Finden-formel :-)
Zelleneintrag in A1 : 6 / 0  (6)
soll getrennt werden
B1:6
C1:0
D1:6
Es gibt nie Leereinträge!
Danke für Hilfe
06.10.2008 10:21:22
Thread-ID: 1014349
3 Beiträge
Fremdzeichen beim Export in Textdatei
Josef

Hallo!
Manchmal wird bei der Eingabe eines längeren Textes in eine Zelle ein Return gesetzt. Wenn man dann diese Datei in ein Textfile speichert, so erhält man in der Textdatei an diesen Stellen ein leeres Quadrat. Wie kann man bitte verhindern, dass in der Textdatei solche Zeichen gesetzt...
06.04.2009 10:20:01
Thread-ID: 1067048
2 Beiträge
Anzeige
Teil bis zum ersten blank
walter

Moin moin,
ich habe Textfelder, xxxxxx yyy cc, wobei ich nur die ersten Zeichen mit zum ersten Blank per Teil() separieren möchte.
Kann mir jemand helfen und sagen, wie ich die Formel aufbauen muß, sodaß der Extract mit zum ersten balnk verläuft ?
Danke im Voraus
mfg
Walter...
06.04.2009 11:55:39
Thread-ID: 1067075
3 Beiträge
Anzeige
Von rechts kopieren bis zum ersten ";"
Flo

Eine kurze Frage,
ich habe Zellen in meiner Tabelle,
in denen mehrere Werte stehen. Diese Werte sind durch ";" getrennt.
Also z.B. Zelle A1: "1;2;3"
Nun will ich, dass es mir in einer anderen Zelle nur die letzte Ziffer, also in diesem Fall 3 anzeigt.
Ich habe es mit der fo...
08.04.2009 15:19:13
Thread-ID: 1067754
16 Beiträge
Anzeige
formel für Text trennen
Reinhardt

Hallo, bitte helft mir .
Ich kriege die Formel nicht hin für die Abtrennung des Wortes "Wohnung "
Wohnung D 229/227
Wohnung D 136
Wohnung D 264
Wohnung D 164
Wohnung D 434
Wohnung A 324
Wohnung A 109
Wohnung 337
Wohnung A 225
Wohnung C 261
Gruß Re...
16.06.2009 15:37:48
Thread-ID: 1081938
5 Beiträge
Anzeige
Excel 2003: Nach Leerzeichen trennen
Florian

Mahlzeit zusammen.
Folgende Aufgabenstellung versuche ich zu lösen:
Liste mitz ca. 5.000 Zeilen, bestehend aus Artikelnummer, Bezedichnung und Preis.
Die Länge der Datensätze ist unterschiedlich, die Anzahl der Leerstellen dazwischen auch.
Ich möchte nun die Artikelnummer (alph...
01.07.2009 14:35:01
Thread-ID: 1085734
6 Beiträge
Filtern nach Teilen eines Zelleintrags
Boris

Hallo Forum,
Ich suche eine Möglichkeit einen Filter zu setzten auf Teile eines Zelleintrags.
Hier ein Beispiel
leiter.......Teilnehmer............... Gruppe
FP............otto1........................1
ES............otto1, otto6.............4
FP............ otto1,otto2,...
22.09.2009 12:19:11
Thread-ID: 1104606
4 Beiträge
Springen bis zum ersten leeren Feld
Gerd

Guten Morgen,
ich möchte gerne in der Spalte A von oben das erste Feld suchen, das leer ist. Dann soll dieses Feld markiert werden. Es wäre mir eine große Hilfe, wenn ich nicht immer von Hand dieses Feld suchen müßte.
Dies ist ein super Forum, macht weiter so.
Viele Grüße
Gerd
22.02.2010 08:50:36
Thread-ID: 1140209
7 Beiträge
Leerzeichen nach Text in Zelle löschen
Helmut

Liebe Forenuser,
ich habe noch eine Frage für heute:
Wie kann ich die Leerzeichen nach einem Text in allen Zellen in einem Tabellenblatt löschen?
Genauer:
Wenn ich z.B. in eine Zelle hineingehe, dann stehe ich oft nicht genau nach dem letzten Zeichen in der Zelle, sondern weiter...
07.05.2010 13:54:48
Thread-ID: 1156080
3 Beiträge
Werte bis zum ersten ; in Zelle löschen
Helmut

Hallo Forenuser,
ein kleines Problem:
Wie kann ich alle Zeichen bis zum ersten Strichpunkt in einer Zelle löschen?
Also:
200;3AB;5V
soll werden:
3AB;5V
Oder:
0-3400;8ZU;9;9
soll werden:
8ZU;9;9
Danke im Voraus!
LG, Helmut
10.05.2010 14:12:57
Thread-ID: 1156436
8 Beiträge
Werte bis zum ersten ; in Zelle löschen
Helmut

Hallo Forenuser,
ein kleines Problem:
Wie kann ich alle Zeichen bis zum ersten Strichpunkt in einer Zelle löschen?
Also:
200;3AB;5V
soll werden:
3AB;5V
Oder:
0-3400;8ZU;9;9
soll werden:
8ZU;9;9
Danke im Voraus!
LG, Helmut
10.05.2010 14:25:02
Thread-ID: 1156441
2 Beiträge
Zellen in Zeilen trennen nach Trennzeichen
Rainer

Hallo! Ich habe ein kleines Problem und bin mir sicher ihr könnt mir da weiterhelfen.
In einem Tabellenblatt habe ich Daten diesen Struktur
ABC'DEF'GEH
ZTER'HZE'JOE'ZTE
Was ist suche, ist eine Funktion, die mir dieses Blatt durchläuft (das ist kein problem) und dann jedesmal wen...
11.05.2010 10:03:40
Thread-ID: 1156591
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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