Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte in Spalte nach Leerstelle löschen

Werte in Spalte nach Leerstelle löschen
11.07.2007 16:28:00
Tobias
Hallo .. ich möchte in einer Spalte alle Zahlen hinter einem Leerzeichen löschen,
wie kann man das am einfachsten machen
Gruß
Tobi

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in Spalte nach Leerstelle löschen
11.07.2007 16:57:00
Herbert
Hi,
kommt immer nur eine Leestelle vor oder mehrere?
mfg Herbert

AW: Werte in Spalte nach Leerstelle löschen
11.07.2007 17:09:27
Tobias
es gibt nur eine.

AW: Werte in Spalte nach Leerstelle löschen
11.07.2007 17:25:00
Herbert
Hi,
suchen nach:_ * (den Unterstrich nicht eingeben, stattdessen ein Leerzeichen
ersetzen durch: (frei lassen)
mfg Herbert

AW: Werte in Spalte nach Leerstelle löschen
11.07.2007 17:59:16
Gromminger
wie wäre es hiermit

Sub Leerstelle_loeschen
Dim P1%, Var1$, Var2$, Var3$
Dim report as variant
Dim zeile as integer
Do until ActiveWorkbook.Worksheets(1).cells(zeile, 2).value  ""
report = ActiveWorkbook.Worksheets(1).cells(zeile, 2).value
P1 = Application.Find(" ", report, 1)
Var1 = Left(report, P1)
Var2 = right(report, P1)
Var3 = Var1 & Var2
zeile = zeile+1
Loop
End Sub


Anzeige
AW: Werte in Spalte nach Leerstelle löschen
11.07.2007 18:01:00
Gromminger
wer richtig lesen kann ist klar im Vortei :-)

Sub Leerstelle_loeschen
Dim P1%, Var1$, Var2$, Var3$
Dim report as variant
Dim zeile as integer
Do until ActiveWorkbook.Worksheets(1).cells(zeile, 2).value  ""
report = ActiveWorkbook.Worksheets(1).cells(zeile, 2).value
P1 = Application.Find(" ", report, 1)
Var1 = Left(report, P1)
ActiveWorkbook.Worksheets(1).cells(zeile, 2).value = Var1
zeile = zeile+1
Loop
End Sub


301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige