Strings vergleichen...
14.06.2004 13:47:04
Anja
ich habe ein risieeges Problem...
also... ich muss erst die Strings aus 2 verschiedenen Spalten vergleichen und zwar sie müssen nicht edentisch sein, nur was ähnliches mit einander haben...
Und da wo sie ähnliclh sind muss ich eine bestimmte Zahl eintragen...
Die Funktion habe ich gefunden, nun wie soll ich sie zu der anderer verknüpfen... es geht absolut nicht...
Bitte Helft mir....
Public
Sub VGL(Text1$, Text2$)
Dim a, b, i%, j%, BoFnd As Boolean
Dim Var As Boolean
If Right(Text1, 1) = "." Then Text1 = Left(Text1, Len(Text1) - 1)
If Right(Text2, 1) = "." Then Text2 = Left(Text1, Len(Text1) - 1)
a = Split(Text1)
b = Split(Text2)
For i = 0 To UBound(a)
For j = 0 To UBound(b)
If b(j) = a(i) Then
BoFnd = True
Exit For
Exit For
End If
Next
Next
VGL = BoFnd
'Var = VGL
End Sub
Hier muss eigentlich VGL Ergebniss übergeben
Sub search()
'Dim fc As Object
' Dim fcn, fc2 As Object
Dim zz#, sp#
Dim fc As String
Dim fc2 As String
Dim Var As Boolean
' Dim strFolder As String
' strFolder = String$(255, vbNullChar)
'fc = Worksheets("Testplan_GTC_Probe").Columns("C")
'fc2 = Worksheets("Test").Columns("D")
Var = VGL("aaa", "aaa")
For zz = 1 To 500
If Var = True Then
Sheets("Testplan_GTC_Probe").Select
Cells(zz, 4).Value = 1
End If
Next