Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1200to1204
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
Inhaltsverzeichnis

Alles nach dem 1. Leerzeichen löschen

Alles nach dem 1. Leerzeichen löschen
julia
Hi,
ich bräuchte ein Makro.
In Spalte F von F2 bis letzter Eintrag in F.
Lösche alles ab dem 1. Leerzeichen (incl. dem Leerzeichen)
Gruß
Julia

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Alles nach dem 1. Leerzeichen löschen
21.02.2011 10:05:43
Hajo_Zi
Hallo Julia,
warum Makro, mache es doch mit Hilfsspalte.
Tabelle1
 FG
1'12 3312
2123123

verwendete Formeln
Zelle Formel Bereich
G1 =WENN(ISTFEHLER(LINKS(F1;FINDEN(" ";F1)-1));F1;LINKS(F1;FINDEN(" ";F1)-1)) 
G2 =WENN(ISTFEHLER(LINKS(F2;FINDEN(" ";F2)-1));F2;LINKS(F2;FINDEN(" ";F2)-1)) 

Tabellendarstellung in Foren Version 5.38



Anzeige
AW: Alles nach dem 1. Leerzeichen löschen
21.02.2011 10:14:48
ing.grohn
Hallo Julia,
geht das auch?:
Tabelle1

 FG
14test test
15test2test2
16die ist eindie
17zweiter Testzweiter
18noch ein Wertnoch
19nun ist Schlußnun

Formeln der Tabelle
ZelleFormel
G14=WENN(ISTFEHLER(FINDEN(" ";F14)); F14;LINKS(F14;FINDEN(" ";F14)-1))
G15=WENN(ISTFEHLER(FINDEN(" ";F15)); F15;LINKS(F15;FINDEN(" ";F15)-1))
G16=WENN(ISTFEHLER(FINDEN(" ";F16)); F16;LINKS(F16;FINDEN(" ";F16)-1))
G17=WENN(ISTFEHLER(FINDEN(" ";F17)); F17;LINKS(F17;FINDEN(" ";F17)-1))
G18=WENN(ISTFEHLER(FINDEN(" ";F18)); F18;LINKS(F18;FINDEN(" ";F18)-1))
G19=WENN(ISTFEHLER(FINDEN(" ";F19)); F19;LINKS(F19;FINDEN(" ";F19)-1))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Mit freundlichen Grüßen
Albrecht
Anzeige
AW: Alles nach dem 1. Leerzeichen löschen
21.02.2011 10:44:25
julia
Danke - Aber wenn ich das in ein Makro einbauen möchte?
Alles in Spalte F. Ab F2 bis letzter Eintrag in F?
AW: Alles nach dem 1. Leerzeichen löschen
21.02.2011 11:13:28
Rudi
Hallo, Sub Julia() Dim rngC As Range Application.ScreenUpdating = False For Each rngC In Range(Cells(2, 6), Cells(Rows.Count, 6).End(xlUp)) rngC = Split(rngC, " ")(0) Next End Sub
Gruß
Rudi
Index außerhalb des gültigen Bereichs
21.02.2011 12:09:15
julia
rngC = Split(rngC, " ")(0)
leere Zellen?
21.02.2011 12:14:37
Rudi
Hallo,
dann so:
  For Each rngC In Range(Cells(2, 6), Cells(Rows.Count, 6).End(xlUp)).SpecialCells( _
xlCellTypeConstants)
rngC = Split(rngC, " ")(0)
Next

Gruß
Rudi
Danke
21.02.2011 14:52:06
julia
Klappt
Danke :)
Anzeige

21 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige