Hallo Zusammen
Ich möchte 2 Strings vergleichen, und habe dabei folgendes Problem. Beim ersten Wert ist der Vergleich richtig, beim zweiten nicht mehr und ab dem dritten stimmt es wieder. Kann mir nicht erklären wieso es nur beim zweiten einen String nicht funktioniert? Hier erst mal mein Code:
Die ersten Werte sehen folgendermassen aus:
PK_OnPallet_Selection
PK_OnPallet_Association
TD_OnComponent_DispenseSelection
TD_OnSourceContainer_Selection
TD_OnPallet_Selection
Dim Zelle
Dim ZelleNr
ZelleNr = 2
For Each value In events
Zelle = ActiveDocument.Tables(1).Cell(ZelleNr, 1)
If StrComp(Zelle, value, 1) = 1 Then
mycomp = StrComp(Zelle, value, 1)
Debug.Print mycomp
'ZelleNr = ZelleNr + 1
myValue = "Public Function " & events(counter) & vbCrLf & vbCrLf & vbCrLf & "End Function"
counter = counter + 1
BookmarkNumber = BookmarkNumber + 1
Bookmark = "Text" & BookmarkNumber & ""
ActiveDocument.Bookmarks(Bookmark).Select
Selection.Text = myValue
newBookmarkNumber = newBookmarkNumber + 1
newBookmark = "Text" & newBookmarkNumber & ""
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:=newBookmark
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Else
MsgBox "Da hat etwas nicht funktioniert"
End If
Next
Ich denke das es mit der Art zusammenhängt wie die Strings verglichen werden, da ja die ersten beiden Strings bis zum letzten Wort identisch sind. Wenn ich den Code ausführe und die Variablen in der Bedingung betrachte, sind es beim zweiten String wo's nicht funktioniert zwei verschiedene Strings drin, sollte also eigentlich durch die Else-Schleife laufen.
Wäre froh um Hilfe. Danke euch im Voraus.
Freundliche sonnige Grüsse
|