Kennzeichen für Zellenende - chr(13)?

Forumthread: Kennzeichen für Zellenende - chr(13)?

19.05.2017 14: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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kennzeichen für Zellenende - chr(13)?

19.05.2017 14: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 14: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

AW: Kennzeichen für Zellenende - chr(13)?

19.05.2017 14: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 14: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

Chr(0), gibt's nur per VBA! orT

19.05.2017 15:07:50

Luc:-?

Gruß, Luc :-?
Besser informiert mit …

Kennzeichen für Zellenende - chr(13)?

Forumthread: Kennzeichen für Zellenende - chr(13)?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Kennzeichen für Zellenende - chr(13)?

Forumthread: Kennzeichen für Zellenende - chr(13)?

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

Forumthreads zu verwandten Themen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread