AW: Texte per VBA in einzelne Teile aufteilen
28.04.2007 04:02:00
Luc:-?
Hallo Christian,
entspricht das Folgende deinen Vorstellungen?
Hier sollte ein Bild stehen, aber momentan lässt sich aus unerfindlichen Gründen nicht mal so ein klitzekleines Gif-Bild auf den Server laden. Wartungsmodus war doch bisher hier nicht üblich!? Wie zum Hohn kommt dann auch noch der Standardfehlertext, der mir eigentlich nur bestätigt, dass ich alles genauso richtig gemacht habe wie früher auch. Trotz Überarbeitung der Forumssoftware doch eine Verschlechterung...?!
Na, dann muss es ohne Bsp gehen! Folg Fkt kann im Tabellenblatt oder in einem Makro eingesetzt _
wdn...
Option Explicit
Function Splint(Text, Optional Trenner As String = " ", Optional ByVal AnfPos As Long, _
Optional ByVal EndPos As Long, Optional ByVal LetztEnd As Boolean)
Dim i As Long, j As Long, l As Long, m As Long, TxtVkt, x, y() As String
If AnfPos = 0 And EndPos = 0 Then Splint = Split(Text, Trenner): Exit Function
TxtVkt = Split(Text, Trenner): m = UBound(TxtVkt) + 1
If AnfPos = 0 Then AnfPos = 1: If EndPos = 0 Then EndPos = m
l = EndPos - AnfPos: If l = AnfPos And i l) Then y(l) = x: Exit For
Next x
Splint = y
End Function
Als TabBl-Formel musst du für B3=c:\www\spotlight\excel\forum\suche\meister.html in die 1.Zelle einer Markierung von 6 Zellen die Matrixformel {=Splint(B3;"\";2;7;1)} eintragen. 2 bedeutet, dass erst ab dem 2.Teilstück ausgegeben wird, 7, dass 7 Teilstücke maximal ausgewertet wdn, 1, dass das letzte Teilstück stets in der letzten Zelle der Markierung steht. Die Fkt fkt nur pro Ausgangswert, d.h., Text darf nur 1 Zelle repräsentieren! Bei Einsatz in einem Makro hier eine Schleife verwenden.
Gruß Luc :-?
PS: Im TabBl bitte den besonderen Eintragungsmodus von Matrixformeln beachten!