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
F | G | |
1 | '12 33 | 12 |
2 | 123 | 123 |
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)) |
F | G | |
14 | test | test |
15 | test2 | test2 |
16 | die ist ein | die |
17 | zweiter Test | zweiter |
18 | noch ein Wert | noch |
19 | nun ist Schluß | nun |
Formeln der Tabelle | ||||||||||||||
|
For Each rngC In Range(Cells(2, 6), Cells(Rows.Count, 6).End(xlUp)).SpecialCells( _
xlCellTypeConstants)
rngC = Split(rngC, " ")(0)
Next