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...
ich meine wie muss die zweite Funktion lauten wie soll ich Zu Text1, und Text2 die Texte aus spalte A und B zufügen?
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