Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
856to860
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
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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

182 Forumthreads zu ähnlichen 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
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
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
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
Textformat mit Leerzeichen
Ralf_P

Hallo,
ich möchte in einem Schleifendurchlauf den Zellen einen Text mit 10 Zeichen zuordnen.
Das heißt, wenn der Zellwert "ABC" ist, müssen 7 Leerzeichen vorangestellt werden.
Wenn der Zellwert ABCDE" ist, müssen 5 Leerzeichen vorangestellt werden.
Geht das auch über Cells(x, 1)...
19.04.2010 13:12:19
Thread-ID: 1152575
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
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
1
2
15
4
5
3
6
6
2
7
1
3
2
3
13
4
4
3
4
4
7
2
2
5