ich würde gerne in einer Zeile das letzte Leerzeichen ermitteln und dort dann den Wert nach dem Leerzeichen in eine neue Spalte kopieren
In etwa so:
SpalteA
Wert1 Wert2 Wert3
SpalteA SpalteB
Wert1 Wert2 Wert3
Viele Grüße und Danke vorab
Crizz
SpalteA
Wert1 Wert2 Wert3
SpalteA SpalteB
Wert1 Wert2 Wert3
Sub x()
Dim w1$, p&
Const zelle = "A1"
w1 = Range(zelle)
p = InStrRev(w1, " ")
If p > 0 Then
Range(zelle).Value = Left(w1, p - 1)
Range(zelle).Offset(, 1).Value = Mid(w1, p + 1, Len(w1) - p)
End If
End Sub
Schöne Grüße,=GLÄTTEN(TEIL(A1;LÄNGE(A1)-VERGLEICH("*"&ZEICHEN(32)&"*";RECHTS(GLÄTTEN(A1);GLÄTTEN(SPALTE(1:1)));0) +1;99))
Einfach in Spalte B einfügen und mit Strg + Umschalt + Enter abschließen und nach unten kopieren. =WECHSELN(A1;" ";"|";LÄNGE(A1)-LÄNGE(WECHSELN(A1;" ";"")))
2. Hilfsspalte kopieren und an gleicher Stelle als Wert einfügenA | B | C | D | |
1 | mehrere | Wert1 Wert2 Wert3 | Wert1 Wert2 | Wert3 |
2 | keins | Wert1 | ||
3 | eins hinten | Wert1 | Wert1 |
verwendete Formeln | |||
Zelle | Formel | Bereich | N/A |
C1:C3 | =WENNFEHLER(LINKS(B1;FINDEN("#";WECHSELN(B1;" ";"#";LÄNGE(B1)-LÄNGE(WECHSELN(B1;" ";""))))-1);"") | ||
D1: D3 | =WENNFEHLER(TEIL(B1;FINDEN("#";WECHSELN(B1;" ";"#";LÄNGE(B1)-LÄNGE(WECHSELN(B1;" ";""))))+1;999);"") |
http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip |
http://Hajo-Excel.de/tools.htm |
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007 |
Add-In-Version 21.10 einschl. 64 Bit |