Office: (Office 365) User Form Textbox sperren wenn

Hallo Martin,
was soll ich sagen...........Bin zu dämlich.
Dein Code funktioniert perfekt (war klar). Aber will ich eine andern Konstellation machen läuft es nicht mehr.
Habe folgendes Gemacht.

Code:

Private Sub Zählerart_Change() 'mit mehreren textboxen
Dim sperren(), Textboxen()
Dim KWsperren(), KWTextboxen()
  sperren = Array("Heizung", "Frischwasser warm")
  Textboxen = Array("Stand_bis_HT", "Stand_bis_NT")
  TBSperr sperren, Textboxen
'soll die Boxen (HT/NT/KW)sperren
   KWsperren = Array("Kaltwasser", "Warmwasser", "Frischwasser kalt", "Hauptwasseruhr")
   KWTextboxen = Array("Stand_bis_HT", "Stand_bis_NT", "Stand_bis_KW")
   KTBSperr KWsperren, KWTextboxen 'eigene Funktion?
End Sub

Die KWSperr Funktion habe ich fast gelassen wie die TBSperr Funktion

Code:

Function KTBSperr(Zählerart, TBNamen)
Dim Enab As Boolean, Element As Variant, Farbe As Variant
  With Me
    Enab = False
    For Each Element In Zählerart 'wenn Zählerart=aus Zahlart=>Enab=true
      Enab = IIf(.Zählerart = Element, True, Enab)
    Next Element
    Farbe = IIf(Enab, RGB(217, 217, 217), RGB(255, 255, 255))
    For Each Element In .Controls 'alle textboxen zurücksetzen
      If TypeName(Element) = "TextBox" Then
        Element.BackColor = RGB(255, 255, 255)
        Element.Enabled = True
      End If
    Next Element
    For Each Element In TBNamen
      .Controls(Element).Enabled = Not Enab ' sperrt die TextBoxen
      .Controls(Element).BackColor = Farbe ' Hindergrundfarben
    Next Element
  End With

Es wird dann nur die in KWsperren Zählerarten berücksichtigt. Ich glaube Excel mag mich nicht mehr oder ich bin zu alt für den schei......
Gruß
Martin

 

Hallo Martin,
nicht verzweifeln. Dein Programm tut genau das, was du ihm sagst.
Erst werden "Stand_bis_HT", "Stand_bis_NT" mit TBSperr behandelt.
In dem nachfolgenden KTBSperr wird alles aufgehoben und dann
"Stand_bis_HT", "Stand_bis_NT", "Stand_bis_KW" behandelt.<
1. Frage: was willst du wirklich erreichen?
2. Hinweis: TBSperr und KTPSperr sind, soweit ich das übersehe, identische Subs. Warum dann 2mal?
Gruß der Martin

 

Hallo Martin,
ich kann nicht oft genug Danke sagen das du so geduldig bis.
Ich will erreichen !
kürze es wieder Ab
Zählerart A oder B oder C sperren die TB HT und NT (das klappt ja)
Nun sollen die Zählerarten D oder E oder F oder G die TB HT und NT und KWh nur sperren
und zu guter Letzt,
soll die Zählerart H die TB HT und NT und m³ nur sperren.
Deshalb habe ich gedacht, ich muss für jede Konstellation eine eigene Funktion machen.
Gruß
Martin

 

Hallo Martin,
1. habe ich einen Denkfehler gemacht. Das eingefügte Resetten aller TB ist natürlich Unsinn, weile es bei jedem Aufruf stattfindet und damit vorhergehende Aufrufe der Routine konterkariert. Ist in der beigefügten Fassung behoben, findet nur noch statt, wenn der Parameter ResetAll angegeben ist.
2. Der Sinn eines Subs oder einer Function besteht darin, den gleichen Code mit unterschiedlichen Parametern nur einmal zu schreiben, um das Sub dann mit unterschiedlichen Parametern aufzurufen.
3. Dein Denkweg ist verkehrt herum. Du musst erst die TB betrachten, durch welche Zählerart sie verändert werden und sie dann der Reihe nach durchgehen.
Wenn ich dich richtig verstanden habe, führt das zu:

Code:

Private Sub Zählerart_Change()
  'Sperren von _NT, _HT
  sperren = Array("Heizung", "Kaltwasser", "Warmwasser", "Frischwasser warm", "Frischwasser kalt", "Hauptwasseruhr")
  Textboxen = Array("Stand_bis_HT", "Stand_bis_NT")
  TBSperr sperren, Textboxen, True 'hier werden alle TB resettet
  'Sperren von Stand_bis_KW
  sperren = Array("Kaltwasser", "Warmwasser", "Frischwasser kalt", "Hauptwasseruhr")
  Textboxen = Array("Stand_bis_KW")
  TBSperr sperren, Textboxen
  'Sperren von m³
  sperren = Array("??????") 'Namen ???? anpassen
  Textboxen = Array("?????m3")
  TBSperr sperren, Textboxen
End Sub

Function TBSperr(Zaehlart, TBNamen, Optional ResetAll)
Dim Enab As Boolean, Element As Variant, Farbe As Variant
  With Me
    Enab = False
    For Each Element In Zaehlart 'wenn Zählerart=aus Zahlart=>Enab=true
      Enab = IIf(.Zählerart = Element, True, Enab)
    Next Element
    Farbe = IIf(Enab, RGB(217, 217, 217), RGB(255, 255, 255))
    If Not IsMissing(ResetAll) Then 'alle textboxen zurücksetzen
      For Each Element In .Controls
        If TypeName(Element) = "TextBox" Then
          Element.BackColor = RGB(255, 255, 255)
          Element.Enabled = True
        End If
      Next Element
    End If
    For Each Element In TBNamen
      .Controls(Element).Enabled = Not Enab ' sperrt die TextBoxen
      .Controls(Element).BackColor = Farbe ' Hindergrundfarben
    Next Element
  End With
End Function

Irgendwie komme ich mit A...H und deinem Code nicht ganz klar, ich hoffe aber, der Weg ist nun klarer.
Versuchen wir es mal so...
Gruß der Martin

 

Hallo Martin,
ich verstehe es einfach nicht.
Deine Code funktionieren immer aber sobald ich ihn anpassen oder erweitere will ist aus die Maus.

Code:

Private Sub Zählerart_Change()
  'Sperren von _NT, _HT
  sperren = Array("Heizung", "Frischwasser warm")
  Textboxen = Array("Stand_bis_HT", "Stand_bis_NT")
  TBSperr sperren, Textboxen, True 'hier werden alle TB resettet
'  Sperren von _KW,_HT,_NT
  sperren = Array("Kaltwasser", "Warmwasser", "Frischwasser kalt", "Hauptwasseruhr")
  Textboxen = Array("Stand_bis_KW", "Stand_bis_HT", "Stand_bis_NT")
  TBSperr sperren, Textboxen
  'Sperren von_m³,_HT,_NT
  sperren = Array("Strom allgemein")
  Textboxen = Array("Stand_bis_m3", "Stand_bis_HT", "Stand_bis_NT")
  TBSperr sperren, Textboxen
  'Sperren von _KW,_m³
  sperren = Array("Strom Heizung")
  Textboxen = Array("Stand_bis_m3", Stand_bis_KW)
  TBSperr sperren, Textboxen
End Sub

Vielleicht reden wir aneinander vorbei oder ich kann es nicht richtig rüberbringen was ich will.
folgendes passiert jetzt
generell:
seit ich den Code um Sperren von_KW, _m³ erweiter habe bekomme ich in der Function ab der zeile " .Controls(Element).Enabled = Not Enab ' sperrt die TextBoxen" einen Fehler. (passiert nicht wenn der Code nicht dabei ist)
Es passiert folgendes wenn (Sperren von _KW, _m³ nicht dabei)

bei Sperren von _NT, _HT passiert nichts (keine TB ist gesperrt)
Bei Sperren von _KW, _HT, _NT wird nur die TB KW gesperrt.
Bei Sperren von _m³, _HT,_NT werden die richtigen TB gesperrt.
Nochmal was mache ich falsch?
Gruß
Martin

 

Hallo Martin,
wenn du deinen mit dem nachfolgenden Code vergleichst, wird vermutlich deine Denkblockade aufgelöst.
Es ist nicht zu fragen, bei welcher Zählerart(en) welche Textboxen beeinflusst werden, sondern: welche Textbox(en) werden durch welche Zählerart(en) beeinflusst. Wenn eine textbox im Code 2mal auftreten würde, würde immer nur die letzte Definition wirken...

Code:

Private Sub Zählerart_Change()
  'Regeln von _NT, _HT
  sperren = Array("Heizung", "Kaltwasser", "Warmwasser", "Frischwasser warm", "Frischwasser kalt", "Hauptwasseruhr", "Strom_allgemein")
  Textboxen = Array("Stand_bis_HT", "Stand_bis_NT")
  TBSperr sperren, Textboxen, True 'hier werden alle TB resettet
  'Regeln von Stand_bis_KW
  sperren = Array("Kaltwasser", "Warmwasser", "Frischwasser kalt", "Hauptwasseruhr", "Strom Heizung")
  Textboxen = Array("Stand_bis_KW")
  TBSperr sperren, Textboxen
  'Regeln von m³
  sperren = Array("Strom allgemein", "Strom Heizung")
  Textboxen = Array("Stand_bis_m3")
  TBSperr sperren, Textboxen
End Sub

Gruß der MArtin

 

Hallo Martin,
Hast du den Jubelschrei (nicht wegen Fußball) gehört.
Genau das war es was ich nicht Verstanden habe. Jetzt ist der Groschen aber gefallen.
Viele, Vielen Dank für die Geduld und natürlich für deine Lösung.
Gruß
Martin

 

Na dann, viel Spaß beim nächsten Problem!
Gruß der Martin