Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kennzeichen für Zellenende - chr(13)?

Kennzeichen für Zellenende - chr(13)?
19.05.2017 12:01:49
Burkhard
Hallo miteinander,
einfache Frage: wie ist in einer Zelle das Textende markiert? Chr(13)? Chr(3)? Chr(10)?
Hintergrund: eine bestehende Funktion schmeißt alle Zeichen zwischen "Delimiter1" und "Delimiter2" weg. Delimiter2 hat aber eine Voreinstellung, und die ist ")".
Die Aufgabe ist nun, alles von Delimiter1 bis zum Ende rauszuwerfen. Was muss ich als Delimiter2 angeben?
Grüße
Burkhard

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kennzeichen für Zellenende - chr(13)?
19.05.2017 12:17:24
Rudi
Hallo,
imho gibt's da kein Kennzeichen.
=links(zelle;finden(delimiter1;zelle)-1)
Gruß
Rudi
AW: Kennzeichen für Zellenende - chr(13)?
19.05.2017 12:38:34
Burkhard
Hallo Rudi,
das Problem ist, dass ich an dieser Funktion nichts ändern kann:

Function EliminateComment(ByVal sCommentString As String, Optional sDelimiter1 As String = "(",  _
Optional sDelimiter2 As String = ")") As String
Dim lPos1 As Integer, lPos2 As Integer
Dim lLen1 As Integer, lLen2 As Integer
Dim s1 As String, s2 As String
On Error GoTo ErrorHandler
EliminateComment = sCommentString
lPos1 = InStr(1, sCommentString, sDelimiter1, vbTextCompare)
If lPos1 > 0 Then
lPos2 = InStr(lPos1, sCommentString, sDelimiter2, vbTextCompare)
If lPos2 > 0 Then
s1 = Trim(Left(sCommentString, lPos1 - 1))
s2 = Trim(Right(sCommentString, Len(sCommentString) - (lPos2 + Len(sDelimiter2) - 1) _
))
EliminateComment = s1 & s2
If ciDebug > 8 Then Debug.Print sCommentString & "==>" & s1 & s2
End If
End If
GoTo CleanUp
ErrorHandler:
DisplayErrorMessage "EliminateComment", Err
Err.Clear
CleanUp:
End Function
Ich brauche also etwas, was ich als Delimiter2 übergeben kann. Habe schon überlegt, vor dem Funtkionsaufruf an den zu übergebenden String etwas anzuhängen, was nach Delimiter1 GARANTIERT nicht vorkommt ...
Grüße
Burkhard
Anzeige
AW: Kennzeichen für Zellenende - chr(13)?
19.05.2017 12:45:36
Rudi
Hallo,
dass ich an dieser Funktion nichts ändern kann:
nicht kannst oder nicht darfst?
an den zu übergebenden String etwas anzuhängen,
gute Idee.
Gruß
Rudi
AW: Kennzeichen für Zellenende - chr(13)?
19.05.2017 12:56:32
Burkhard
Hallo Rudi,
nicht darf.
Was würdest du anhängen? Etwas, was man (fast) nicht eingeben kann, also z.B. ein Chr(unter32)? Aber so, dass Excel dann keine Zicken macht ...
Grüße
Burkhard

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige