Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
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
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
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeichenaneinanderreihung erkennen und eliminieren

Forumthread: Leerzeichenaneinanderreihung erkennen und eliminieren

Leerzeichenaneinanderreihung erkennen und eliminieren
23.03.2021 14:31:27
m.g.
Hallo zusammen,
ich hole mir Werte aus einer CSV-Datei, die wiederum von einem anderen Programm erstellt wird.
Nun habe ich das Problem, dass in den Zellen teilweise viele Leerzeichen sind.
Den Fall dass nur Leerzeichen einer bestimmten Anzahl drin sind, habe ich über eine if-Schleife abgefangen.
Unterschiedliche Einträge füge ich in ein Array und vergleiche diese, anschließend werden die Werte aneinandergehängt.
Hat jemand eine Codeidee?
Ich würde an etwas denken, dass alle Leerzeichen die mehr als ein Leerzeichen hintereinander gelöscht werden?
Müsste ich wahrscheinlich Ziffer für Ziffer abfragen? Oder ist es auch eine schnelle/schöne Variante möglich?
Vielen vielen Dank :) :) :)
Bsp.:
"trennen , Holz "
Sind eigentlich zwei Einträge
"trennen "
"Holz "

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Leerzeichenaneinanderreihung erkennen und eliminieren
23.03.2021 14:32:57
m.g.
p.s. ok das Forum macht genau das was ich möchte *lach*
Deswegen fehlen im Beispiel die 20 Leerzeichen am Ende und in der Mitte....
Im Idealfall ist am Ende dann aber gar kein Leerzeichen mehr danach.

AW: Leerzeichenaneinanderreihung erkennen und eliminieren
23.03.2021 14:39:47
Günther
Moin,
stelle doch einfach einmal die *.csv (gerne anonymisiert) mit einigen Zeilen und dem Wunschergebnis hier ein.
 
Gruß
Günther  |  mein Excel-Blog

Anzeige
AW: Leerzeichenaneinanderreihung erkennen und eliminieren
23.03.2021 14:46:28
peterk
Hallo
Die Excel Funktion "Glätten" entfernt alle doppelten Leerzeichen (und solch am Anfang und am Ende)
Peter

AW: Leerzeichenaneinanderreihung erkennen und eliminieren
23.03.2021 15:24:39
m.g.
Kann ich glätten über einen string in VBA laufen lassen?
Wie spreche ich die Funktion Glätten in VBA an, könnte ja auch direkt die Zelle am Ende glätten.
Dankeschön =) =) klingt vielversprechend!

Anzeige
AW: Leerzeichenaneinanderreihung erkennen und eliminieren
23.03.2021 15:34:53
peterk
Hallo

WorksheetFunction.Trim("   er    d  d         d     ")
liefert folgendes Ergebnis: "er d d d"
'VBA Trim entfernt nur am Anfang und am Ende
Trim("  er    d  d         d     ")
liefert folgendes Ergebnis: "er    d  d         d"

Peter

Anzeige
AW: Leerzeichenaneinanderreihung erkennen und eliminieren
23.03.2021 15:32:29
m.g.
Ok die Lösung in VBA heißt "Trim", unten für andere der Codeschnipsel, wie trim genutzt wird.
Else
zkomm = Worksheets(TabnameCSV).Cells(c, 21).Value
zkomm = Trim(zkomm)
End If
If zkomm Komment(1) And zkomm Komment(2) And zkomm Komment(3) And zkomm Komment(4) And zkomm Komment(5) And zkomm Komment(6) And zkomm Komment(7) And zkomm Komment(8) Then
Komment(g) = zkomm
g = g + 1
End If

Anzeige
AW: nutze doch die Funktion GLÄTTEN() owT
23.03.2021 14:46:36
neopa
Gruß Werner
.. , - ...

AW: 9 sec zu spät owT
23.03.2021 14:47:45
neopa
Gruß Werner
.. , - ...

oder vielleicht doch zu früh?
23.03.2021 14:52:35
Günther
Der TE möchte es doch wohl so haben: 
Sind eigentlich zwei Einträge
"trennen "
"Holz "
also scheinbar getrennte Zeilen und dann noch jeweils mit 1 angehängten Leerzeichen?
 
Gruß
Günther  |  mein Excel-Blog

Anzeige
AW: vielleicht, vielleich aber auch nicht owT
23.03.2021 14:54:20
neopa
Gruß Werner
.. , - ...
;

Forumthreads zu verwandten Themen

Vergleich aus Liste mit Einbindung Minimum/Maximum
Jörg

Hallo liebe Excelfreunde,
ich glaube, ich habe seit gestern einen kleinen Blackout und kann keine Formeln mehr mischen...
Problem: Aus einer Liste mit Werten soll jeweils der Minimum- und Maximumwert (gerundet oder ungerundet) angegeben werden, der als erstes (bei Min) oder letztes (bei...
15.08.2008 14:05:53
Thread-ID: 1002182
4 Beiträge
Anzeige
Vergleich aus Liste mit Einbindung Minimum/Maximum
Jörg

Hallo liebe Excelfreunde,
ich glaube, ich habe seit gestern einen kleinen Blackout und kann keine Formeln mehr mischen...
Problem: Aus einer Liste mit Werten soll jeweils der Minimum- und Maximumwert (gerundet oder ungerundet) angegeben werden, der als erstes (bei Min) oder letztes (bei...
15.08.2008 14:57:54
Thread-ID: 1002190
2 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Sharepoint CheckIn Laufzeitfehler 1004
Iro

Hallo Excel-Gemeinde,
und wieder habe ich ein Problem mit Sharepoint. Wenn ich versuche einzuchecken erhalte ich nur eine Fehlermeldung:
Laufzeitfehler 1004: Die Methode 'CheckIn' ist für das Objekt '_Workbook' fehlgeschlagen
Das Programm ruft die Datei auf, prüft ob es sie einch...
30.10.2008 12:02:28
Thread-ID: 1020555
4 Beiträge
Anzeige
Zu einer Uhrzeit 20 Minuten hinzuzählen?
Wacker

Hallo,
wie kann ich zur jetztigen Uhrzeit 20 Minuten hinzuzählen?
Ich habe es versucht mit:
=jetzt() + 20
Funkioniert aber nicht.
Wer kann mir Helfen?
Kurze Info.
Vielen Dank!
Gruss
Wacker
09.12.2008 11:52:00
Thread-ID: 1031316
5 Beiträge
Zelle farblich wenn in zeile Wert MIN
PointOfView

Einen schönen guten Tag,
ich hoffe mir kann jemand helfen. Im Forum "Clever-Forum" habe ich´s schon mal versucht, bin jedoch kläglich gescheitert. Daher bitte nicht auf Crossposting hinweisen. Hab mich da wieder abgemeldet.
Ich habe eine Tabelle mit reichlich Spalten (kann bis Spalte "I...
17.04.2009 16:39:45
Thread-ID: 1069342
11 Beiträge
Anzeige
Min und Max mit Bedingung ohne Array
Tino

Hallo,
ich bräuchte mal eure Hilfe.
Ich bin auf der Suche nach einer geeigneten Formel, die mir den Min bzw. Max Wert von bestimmten Stationen wieder geben kann.
Habe dies mit dieser Array Formel gelöst.
 CDEFG1  Station0010022  Min0,6 3  ...
07.06.2009 08:16:45
Thread-ID: 1079658
18 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
Spalte A durchsucht klein 100 dann spalte b summe
Piola

Hallo
bräuchte eure Hilfe.
Und zwar brauche eine Formel die, die Spalte A durchsucht nach klein 100 dann soll die Einträge von Spalte B summieren
-----A-----------B--------C
1-Gewicht---Erträge
2---43---------234-----Summe Erträge
3---123--------...
21.07.2009 20:35:25
Thread-ID: 1090356
4 Beiträge
Dateigröße durch Bildverkleinerung minimieren
Henner

Hallo Exceler,
ich hoffe ich kann den recht kompliziert formulierten Betreff nun schnell auflösen.
Ich habe eine in Excel erstellte Liste mit Bildern. Allerdings wurden die Bilder im riesigen Format (100 x 150 cm) in Excel eingefügt und dann in der Größe auf 3 x 4,5 cm geändert. Die Bil...
07.11.2009 13:53:51
Thread-ID: 1115203
4 Beiträge
Berechne Formel 100% bei einfachem Makro
Alexander

Hallo zusammen,
bei folgendem Makro zeigt mir Excel unten links in der Ecke o.g. Meldung ca. eine Minute lang erscheint und Excel hängt.
Private Sub Worksheet_Change(ByVal Target As Range) If ActiveCell.Column = 9 Then Untersparte = ActiveCell.Value Select Case (Untersparte) Case "A" Ce...
15.12.2009 12:29:49
Thread-ID: 1124029
3 Beiträge
Stunden in Minus
WernerB.
Hallo Peter,Du kannst ganz "normal" schreiben:=A1-B1Allerdings solltest Du unterExtras / Optionen / Berechnen
bei "1904-Datumswerte" ein Häkchen setzen.Nachteil: Wenn Du irgendwo ein Datum eingetragen hast, wird dies um ca. vier Jahre verschoben.MfG
WernerB.
16.04.2002 22:29:24
Thread-ID: 113906
3 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