Besondere Ausgabe des ersten und letzten Wortes

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Christian
Mich freuts, dass ich dir helfen konnte! :-)
Ja, na klar kannst du Fragen stellen...jede, die du willst (na ja, Sinn + Verstand sollten die Fragen schon haben :-) )
Aber deine aktuellen Fragen (und auch die vorhergehenden) erfüllen diese Bedingung :-)
Nein, Makros passen sich wie Formeln nicht selbst an.
Und ja, wenn du für alle D's + E's die richtigen Spaltenbuchstaben einträgst, dann sollte der Code auch genau nur die für dich richtigen Spalten befüllen.
Mist! Gerade sehe ich deine neue Nachricht :-)
Da hab dann mal ICH geschlampt...hehe
Ja klar, wenn ein Satz mit "The" beginnt, muss da NICHT ein " " folgen, es könnte auch ein "o" oder "ater" folgen...hehe
Ändere mal in der Function fcFirstLast diese Zeile
Left(LCase(wort), 3) "the" Then
um in

Left(LCase(wort), 4)  "the " Then

Hilft das?
Und konnte ich auch deine Fragen beantworten?
Wenn du noc mehr Fragen hast, dann nur her damit. Dafür ist ja dieses und jedes andere Forum gemacht worden.
Ciao
Thorsten

Hallo Christian,
ein Vorschlag mit userdefined function (udf).
Diese Funktionen passen sich bei Einfügen und Löschen von Spalten entsprechend an.
in ein allgemeines Modul:

Option Explicit
Function udfFirstWord(rngSrc As Range) As String
Dim strWords() As String, strWrd As String
Dim strLeft As String, strRght As String
Dim k As Long
strWords = Split(Trim(rngSrc))
For k = 0 To UBound(strWords)
strWrd = strWords(k)
If Not (k = 0 And strWrd = "The") Then
If Len(strWrd) > 1 And InStr(strWrd, ".") = 0 Then
strLeft = Split(strWrd, "-")(0)
Exit For
End If
End If
Next
For k = UBound(strWords) To 0 Step -1
strWrd = strWords(k)
If Len(strWrd) > 1 And InStr(strWrd, ".") = 0 Then
strRght = Split(strWrd, "-")(0)
Exit For
End If
Next
If strLeft  strRght Then
udfFirstWord = strLeft
End If
End Function
Function udfLastWord(rngSrc As Range) As String
Dim strWords() As String, strWrd As String
Dim strLeft As String, strRght As String
Dim k As Long
strWords = Split(Trim(rngSrc))
For k = 0 To UBound(strWords)
strWrd = strWords(k)
If Not (k = 0 And strWrd = "The") Then
If Len(strWrd) > 1 And InStr(strWrd, ".") = 0 Then
strLeft = Split(strWrd, "-")(0)
Exit For
End If
End If
Next
For k = UBound(strWords) To 0 Step -1
strWrd = strWords(k)
If Len(strWrd) > 1 And InStr(strWrd, ".") = 0 Then
strRght = Split(strWrd, "-")(0)
Exit For
End If
Next
If strLeft  strRght Then
udfLastWord = strRght
End If
End Function

Einträge in der Tabelle:
in D1: =udfFirstWord(A1)
in E1: =udfLastWord(A1)
Diese wie gewohnt nach unten ziehen.
Beachte: jede Funktion berechnet das erste und das letzte Wort. Dies ist erforderlich, da im Fall von gleichem ersten und letzten Wort ein Leerstring erzeugt werden soll.
Gruß
ChristianM

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1		Hilfsspalte löscht am Ende Leerzeichen
2	Heute 123 Sonntag blau grün rosa Monat	Heute 123 Sonntag blau grün rosa Monat	Heute	Monat
3	123 456 Willi	123 456 Willi	123	Willi
4	9123 7777 Test	9123 7777 Test	9123	Test

	A	B	C	D
1		Hilfsspalte löscht am Ende Leerzeichen
2	Heute 123 Sonntag blau grün rosa Monat	Heute 123 Sonntag blau grün rosa Monat	Heute	Monat
3	123 456 Willi	123 456 Willi	123	Willi
4	9123 7777 Test	9123 7777 Test	9123	Test

Besondere Ausgabe des ersten und letzten Wortes

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread