VBA String vergleichen (StrComp) geht Nicht
17.04.2016 18:21:15
Björn
habe gerade ein Problem dabei einen String zu vergleichen. Ich übergebe einen String an eine Funktion und checke in der Funktion ob der String einem anderen String entspricht. Obwohl die Strings identisch sind gibt mir StrComp 1 zurück.
Wo ist mein Fehler:
Public Function SheetRename(objSheet As Object, NewName As String) As Boolean
'Problem NewName enthält string daher vergleich True. STrings aber nicht gleich ! das _
checken
'NewName enthält "einszweidreivierfuenfsechssiebenachtneun"
Dim content As String
'NewName = Trim(NewName) Kein Unterschied
content = "einszweidreivierfuenfsechssiebenachtneun"
If Len(NewName) > 31 Then 'Prüfung auf Länge Blattname
MsgBox NewName & Chr(10) & content ' Es steht zweimal das gleiche Untereinander
MsgBox StrComp(NewName, content, vbTextCompare) 'Warum True (1)?
If StrComp(NewName, "einszweidreivierfuenfsechssiebenachtneun", vbTextCompare) = 0 Then
' in diese If muss ich rein aber die Bedingung ist FALSE ?
objSheet.Name = "Textblock1227"
GoTo QuitRename
End If
End If
objSheet.Name = NewName
QuitRename:
End Function
Zusatz:
NewName ist ein ausgelesener String aus einer Word Kopfzeile. content ="" ist CopyPaste aus der selben Datei - die die String sehen optisch identisch aus sind sie aber nicht ?
LG
Björn