Thema Datum  Von Nutzer Rating
Antwort
Rot Globale Variable: Übergabe funktioniert nicht
10.01.2013 13:31:18 Marten
NotSolved
10.01.2013 13:48:27 Holger
NotSolved
10.01.2013 13:58:07 Gast13958
NotSolved
10.01.2013 14:23:37 Holger
NotSolved
10.01.2013 21:49:05 Gast93186
NotSolved

Ansicht des Beitrags:
Von:
Marten
Datum:
10.01.2013 13:31:18
Views:
2707
Rating: Antwort:
  Ja
Thema:
Globale Variable: Übergabe funktioniert nicht
Hallo, das Problem ist das folgende: 
-Ich mache über eine Userform "Abschnittsabfrage" eine Abschnittsabfrage an den User
-danach wird der User automatisch in eine weitere Userform "Wertabfrage" weitergeleitet, in der Werte aus dem abschnitt eingelesen werden sollen anhand der vorher gestellten abfrage!
- Die Abschnittsvariable AB wurde wie folgt in Modul 1 deklariert:
Global AB As Integer

Option Explicit

Private Sub Workbook_Open()

End Sub

Die abschnittsabfrage wurde dann so in der Userform "Abschnittsabfrage" definier

Public Sub uebernehmen_Click()
    AB = TextBox1.Value
    'Cells(5, 70) = ActiveSheet.UsedRange.Rows.Count
    x = (ActiveSheet.UsedRange.Rows.Count - 4) / 13
    
    If AB > x Or AB < 1 Then
     Unload Me
     MsgBox ("Der angegebene Abschnitt existiert nicht!")
     
  
    Else
        Unload Me
        Wertabfrage.Show (AB)
    End If

End Sub

und die Werabfrage soll dann ermal nur der einfachheit halber folgenden code aus führen:

Public Sub Wertabfrage_Activate(AB As Integer)

  Label17.Caption = "Abschnitt" + AB.tostring.Text
  TextBox8.Value = AB
  Cells(10, 70) = AB

End Sub

Also den Wert AB der vorher eingegeben wurde soll in verschiedenen Formen zurück gegeben werden.

Leider Funktioniert die Rückgabe des wertes garnicht! Alle ausghaben sind leer! Nun vermute ich, das ich da irgendetwas bei der übergabe falsch gemacht habe.

Ich wäre sehr dankbar über jede information die ich bekommen könnte!


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 Globale Variable: Übergabe funktioniert nicht
10.01.2013 13:31:18 Marten
NotSolved
10.01.2013 13:48:27 Holger
NotSolved
10.01.2013 13:58:07 Gast13958
NotSolved
10.01.2013 14:23:37 Holger
NotSolved
10.01.2013 21:49:05 Gast93186
NotSolved