Hallo zusammen,
In dem Makro unten wird erst einmal ein Rang ws.Range("A"&t) mit t=2 definiert. Und dann spring das Makro in die Funktion rein und führt einen Test durch in diesem Range. Das Problem ist, dass der ws.Range("A"&t) mit t=2 nicht mitgenommen wird. "t" ist im Funtions teil Leer. Wie kriege ich es hin, dass die "t" Bestimmung im "Sub" auch in der Funktion beibehalten wird?
danke Euch
Sub Examine()
Dim t As Integer
Dim Results as Boolean
Set ws = Worksheets("R")
Set wt = Worksheets("G")
Set wi = Worksheets("R")
t = 2
Do
For Each cell In ws.Range("A" & t)
Set foundValue = wi.Range("A1:A75").Find(cell.Value)
If Not foundValue Is Nothing Then
If Not IsError(Application.Match("x", wi.Rows(foundValue.Row).Columns("H").Value,0)) Then
If Results=P() Then
ws.Range("A" & t).Copy wt.Range("A" & t): wt.Range("B" & t) = "J": wt.Range("C" & t) = "N"
ELSE:.....
End If ....
End If
Loop Until ws.Range("A" & t) = ""
Function P()
w = True
Set ws = Worksheets("R")
If ws.Range("B" & t).Value = 0 Then w = False 'The already defined"t" is not taken by the function from the sub.
End If
End Function
|