Supportnet / Forum / Tabellenkalkulation

mehrere Wörter, deren Anzahl ist Variabel, in einer Zelle, formatiert als Text, getrennt durch Leerzeichen. Das letzte Wort hat 1 bis 4 Zeichen (eine Seitenzahl). Es steht vor diesem Wort immer ein Leerzeichen. Wie kann ich das letzte Wort in eine andere Zelle übertragen. Variabel: Anzahl der Leerzeichen; Anzahl der Ziffern im letzten Wort Fest: vor den Ziffern steht immer ein Leerzeichen Die Ziffern sind immer das letzte "Wort" in der Zeichenfolge

Private Sub CommandButton1_Click()

´Variablen deklarieren
Dim myString As String
Dim aString() As String
Dim i As Integer

´wurde eine Eingabe von Zahlen gemacht dann hier wieder ´anfangen
hell:

´Eingabe des Strings wahrscheinlich dann deine Zelle
myString = InputBox("Bitte geben Sie einen Satz ein!", "Eingabe", "Dies ist ein Test")
´Splitten bei einem Leerzeichen
aString = Split(myString, " ")

´Abfrage ob numerisch...
If IsNumeric(myString) = True Then
m = MsgBox("Sie dürfen nur Zeichen eingeben!", vbCritical)
GoTo hell:
End If

´Hier wird das letzte Wort ausgegeben
MsgBox (aString(UBound(aString)))


´Eine Schleife über aString dir wird jedes einzelne Wort ausgegben.
For i = 0 To UBound(aString)
MsgBox aString(i)

Next i



End Sub

Gruß
LittleT

Bei Problemen einfach nochmal melden

hi,
als Formel (der Text steht in A1)
=RECHTS(A1;5-FINDEN(" ";RECHTS(A1;5)))
cu Micha

• Excel: Auswertung Ausgaben 2006-Suche Formel **Dringend**
• Filtern in Excel nach Zeichen und Buchstabenfolgen
• Mit Excel in Textdatei Zeichen einfügen
• Excel Standard-Formatvorlage