Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Herausforderung die 2.

Forumthread: Herausforderung die 2.

Herausforderung die 2.
27.02.2006 03:42:23
Richard
Diesmal wird's echt schwer!
Ich habe einen String, der mehrzeilig ist:
STRING:
//testäää
//testäää
ggägägägä //testääää
/testäää
:ENDE STRING
Jetzt wende ich die Replace Function an:
Replace(STRING, "ä", "1")
Das Ergebnis sieht folglich so aus:
ERGEBNISSTRING:
//test111
//test111
gg1g1g1g1 //test1111
//test111
:ENDE STRING
Es soll aber so aussehen:
WUNSCHSTRING:
//testäää
//testäää
gg1g1g1g1 //testääää
//testäää
:ENDE STRING
Die Replace-Lösung soll nun ab "//" bis zum ZeilenEnde alles ignorieren und damit verschonen!
So helfe man mir in großer Not -
denn dies soll sein des Euren Brot.
So will ich euch ewig dankbar sein,
denn ich sei nunmal kein undank Schwein!
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Herausforderung die 2.
27.02.2006 07:54:56
Heiko
Moin Richard,
z.B. so:

Function fcnErsetzen(strText As String, strAbHierNichtMehr As String) As String
Dim arrHelp() As String
Dim lngI As Long, lngHelp As Long
' Wenn die Zeilenumbrüche nicht alles VbLf sind sondern auch vbCr dann diese Zeile aktivieren.
' strText = Replace(strText, vbCr, vbLf)
arrHelp = Split(strText, vbLf)
For lngI = LBound(arrHelp) To UBound(arrHelp)
lngHelp = InStr(arrHelp(lngI), strAbHierNichtMehr)
If lngHelp > 0 Then
arrHelp(lngI) = Replace(Left(arrHelp(lngI), lngHelp - 1), "ä", "1") & _
Right(arrHelp(lngI), Len(arrHelp(lngI)) - lngHelp + 1)
Else
arrHelp(lngI) = Replace(arrHelp(lngI), "ä", "1")
End If
Next lngI
fcnErsetzen = Join(arrHelp, vbLf)
End Function



Sub test1()
Dim strHelp As String
strHelp = fcnErsetzen("//testäää " & vbLf & _
"//testäää" & vbLf & _
"ggägägägä //testääää" & vbLf & _
"//testäää", "//")
MsgBox strHelp
End Sub



Sub test2()
Dim strHelp As String
strHelp = fcnErsetzen(ActiveSheet.Range("C1").Text, "//")
MsgBox strHelp
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige