Teilstring aus String entfernen

skaddy · 1970-01-01T00:00:00+00:00

Hallo zusammen Folgendes Problem: Ich habe einen String in einer Excel Zelle, den ich auf ein weiteres Tabellenblat kopieren möchte, jedoch wenn in dem String ein "$" als erstes Zeichen steht folgt an unbestimmerter Stelle ein ";" dann wieder Text, und dann wieder ein ";" und dann wieder Text. Die verschiedenen Texte in den Zellen sind unterschiedlich lang. Hier ein Beispiel: "$Hallo ;Das hier muss ich löschen; Welt" Meine Frage nun: Wie kann ich das erste Zeichen auf "$" prüfen und dann weiter den Teilstring zwischen ; und ; herauslöschen? So Schleifen und kopieren in VBA bekomm ich hin, nur das herausschneiden des Teilstrings weiss ich nicht wie ich das angehen könnte, im Archiv habe ich so nichts gefunden... Bin um jeden Tipp oder Codeschnipsel dankbar... Besten Dank für eure Hilfe skaddy

…Skaddy…

Rem Autor: LSr\CyWorXxl - CDate:20100227/28 - 1Pub:20100228 Herber
Function PickOn(ByVal Bezug, Optional ByVal Wahl = 1, Optional ByVal _
TrennZ As String = " ", Optional ByVal KritBezug As Boolean = True)
Dim dl As Boolean, i As Long, ug As Long, dt As String, _
ac As Range, bt, bezFeld, ergW(), kritFeld, w As Variant
On Error Resume Next
With Application
dt = .International(xlDecimalSeparator)
If IsError(.Caller.Address) Then _
Set ac = ActiveWindow.RangeSelection Else Set ac = .Caller
End With
If Not IsArray(Wahl) Then
dl = (Left(Wahl, 1) = "-")
If dl Then Wahl = Mid(Wahl, 2)
If Not IsNumeric(Wahl) And Instr(Wahl, dt) = 0 Then
i = 1 - CInt(dl)
While i <= Len(Wahl) And IsNumeric(Mid(Wahl, i, 1)): i = i + 1: Wend
dt = Mid(Wahl, i, 1): i = 0
If dt <> " " Then Wahl = Replace(Wahl, " ", "")
Wahl = Split(Wahl, dt)
ElseIf CBool(Instr(Wahl, dt)) Then
Wahl = Split(Wahl, dt)
End If
Else
With WorksheetFunction
If TypeName(Wahl) = "Range" Then Wahl = .Transpose(Wahl)
If IsError(LBound(Wahl, 2)) Then Else Wahl = .Transpose(Wahl)
If IsError(LBound(Wahl, 2)) Then Else PickOn = CVError(xlErrRef): GoTo ex
End With
dl = (Wahl(LBound(Wahl)) < 0)
End If
If IsArray(Bezug) Then
With WorksheetFunction
If TypeName(Bezug) = "Range" Then
bezFeld = .Transpose(Bezug)
Else: bezFeld = Bezug
End If
If IsError(LBound(bezFeld, 2)) Then Else bezFeld = .Transpose(bezFeld)
If IsError(LBound(bezFeld, 2)) Then Else PickOn = CVError(xlErrRef): GoTo ex
If IsArray(KritBezug) Then
If TypeName(KritBezug) = "Range" Then kritFeld = .Transpose(KritBezug)
If IsError(LBound(kritFeld, 2)) Then Else kritFeld = .Transpose(kritFeld)
If IsError(LBound(kritFeld, 2)) Then Else PickOn = CVError(xlErrRef): GoTo ex
Else: kritFeld = KritBezug
End If
End With
If UBound(bezFeld) <> UBound(kritFeld) Then _
PickOn = CVErr(xlErrRef): GoTo ex
ug = LBound(bezFeld): ReDim ergW(UBound(bezFeld) - ug)
For Each Bezug In bezFeld
If IsArray(kritFeld) Then KritBezug = kritFeld(i + ug)
GoSub ew: ergW(i) = PickOn: i = i + 1
Next Bezug
If ac.Columns.Count = 1 Then
PickOn = WorksheetFunction.Transpose(ergW)
Else: PickOn = ergW
End If
GoTo ex
ElseIf IsArray(KritBezug) Then
PickOn = CVErr(xlErrRef): GoTo ex
End If
ew: If CBool(KritBezug) Then
If dl Then PickOn = Bezug Else PickOn = ""
bt = Split(Bezug, TrennZ)
If IsArray(Wahl) Then
For Each w In Wahl
If Abs(w) > 0 Then
If Abs(w) - 1 > UBound(bt) Then Exit For
If dl Then
PickOn = Replace(Replace(PickOn, bt(Abs(w) - 1), "", 1, 1), _
String(2, TrennZ), TrennZ)
Else: PickOn = PickOn & TrennZ & bt(Abs(w) - 1)
End If
End If
Next w
If Not dl Then PickOn = Mid(PickOn, Len(TrennZ) + 1)
ElseIf Abs(Wahl) - 1 > UBound(bt) Or CLng(Wahl) = 0 Then
PickOn = Bezug
ElseIf dl Then
PickOn = Replace(Replace(PickOn, bt(Abs(Wahl) - 1), "", 1, 1), _
String(2, TrennZ), TrennZ)
Else: PickOn = bt(Abs(w) - 1)
End If
Else: PickOn = Bezug
End If
If Not IsEmpty(bezFeld) Then Return
ex: Set ac = Nothing
End Function

Diese Funktion ist eine sog udF und kann im TabBlatt eingesetzt wdn. Sie verlangt mindestens 1 und maximal 4 Argumente…
Arg1: erforderlich; der Bezug auf eine Zelle bzw einen Zellbereich (als Matrixformel) oder ein Datenfeld als Ergebnis eines Ausdrucks.
Arg2: optional; der Teil, der aus einer Zelle bzw einem Element von Arg1 zurückgegeben oder gelöscht (<0) wdn soll; das Argument kann auch ein Zellbereich oder ein Datenfeld sein, das ganze Zahlen enthält. Alternativ hierzu können die auszuwählenden Textteile auch aufgezählt wdn. Das Aufzählungszeichen wird dann automatisch ermittelt. Ein Minus als Löschsymbol darf nur als 1.Zeichen stehen bzw hat nur beim ersten Element eines Datenfeldes Wirkung. Es ist nur entweder Löschen oder Sammeln möglich, nicht beides! Wenn das Argument nicht angegeben wird, wird 1 angenommen. Bei Angabe von 0 bleibt Arg1 unverändert.
Arg3: optional; Zeichen bzw Zeichenkombination, an der der Text lt Arg1 getrennt wdn soll. Bei Nichtangabe wird 1 Leerzeichen angenommen.
Arg4: optional; fehlendes Argument wird als WAHR angenommen; das Argument muss mit Arg1 harmonieren, d.h., ist Arg1 ein Bereich bzw Datenfeld, darf Arg4 entweder nur ein Einzelwert oder ebenfalls ein Bereich/Feld gleicher Elementezahl sein. Anderenfalls darf Arg4 auch nur ein Einzelwert sein.
Sämtliche als Argumente übergebenen Datenfelder und Zellbereiche dürfen nur Vektoren, keine Matrizen sein!
Um die Funktion möglichst universell zu halten, sind hier (in Arg4) die speziellen Bedingg der AfgStellung nicht eingeflossen, d.h., diese müssen extern ausgewertet wdn. Wie, zeigt das anschließende Anwendungsbsp…
=PickOn(A1;-2;";";LINKS(A1)="$")
Die udF sollte auch bei Aufruf durch eine Subroutine fktionieren.
Ich kann nur hoffen, dass sich kein Fehler eingeschlichen hat, denn ich habe das direkt ins Forumsformular geschrieben und nicht getestet…
Gruß+schöSo, Luc :-?

…feststellen konnte, Folks,
sind folgende…
- im Kopf der Fkt entfällt As Boolean nach KritBezug — hatte ich überflüssigerweise nachträglich hinzugefügt;
- statt CVError muss es generell CVErr heißen — passiert mir leider mitunter wg der Analogie zu IsError.
Dann noch ein Hinweis zu Arg2 — das ist von evtl Feldern in Arg1/4 unabhängig und gilt, auch als Feld, stets für alle Arg1-Elemente in einem Arg1-Feld. Deshalb hier in einer Matrixfml möglichst keine matrixabhängigen Fktt wie ZEILE oder SPALTE verwenden! Ansonsten können natürlich auch Matrixkonstanten eingesetzt wdn.
…und zu Arg4 — wenn hier auf einen Bereich oder ein Datenfeld bezug genommen wird, ist zu beachten, dass leere Zellen/Elemente als FALSCH und gefüllte als WAHR interpretiert wdn. Es sollte also schon was drinstehen und wenn es ggf nur WAHR ist.
Da es Skaddy in seinem Bsp wohl doch eher um die Leerzeichen als um die Semikolons geht, liefert die auf der vorlgd udFkt aufbauende Fml nur in flgder Form das gewünschte Ergebnis…
=PickOn(A1;-2;;LINKS(A1)="$")
Wenn, wie es WF vorschlägt, das Leerzeichen immer dem Semikolon folgt oder das Leerzeichen ganz fehlt, muss anders vorgegangen wdn. Die udFkt ersetzt nämlich immer den per negativem Arg2 angegebenen Textteil lt Folge-Trennzeichen(Arg3)-Zählung durch ein Trennzeichen lt Arg3. Auch bei positivem Arg2 wird Arg3 als Trenner zwischen den Textteilen verwendet. Wenn diese anschließend ganz entfallen sollen, müssen sie mit umschließendem WECHSELN entfernt wdn.
Gruß Luc :-?

Forumthread: Teilstring aus String entfernen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Teilstring aus String in Excel entfernen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)