Thema Datum  Von Nutzer Rating
Antwort
Rot Wie werden variable in function von sub beibehalten
15.04.2019 15:12:49 elli
NotSolved
15.04.2019 15:59:39 Flotter Feger
Solved
15.04.2019 16:41:25 elli
NotSolved
18.04.2019 14:20:51 Gast83547
NotSolved

Ansicht des Beitrags:
Von:
elli
Datum:
15.04.2019 15:12:49
Views:
84
Rating: Antwort:
  Ja
Thema:
Wie werden variable in function von sub beibehalten

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Wie werden variable in function von sub beibehalten
15.04.2019 15:12:49 elli
NotSolved
15.04.2019 15:59:39 Flotter Feger
Solved
15.04.2019 16:41:25 elli
NotSolved
18.04.2019 14:20:51 Gast83547
NotSolved