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:
981		 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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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