Thema Datum  Von Nutzer Rating
Antwort
21.02.2018 14:38:58 Hermdaddy
NotSolved
21.02.2018 14:52:50 Gast30478
NotSolved
21.02.2018 14:57:15 Hermdaddy
NotSolved
21.02.2018 18:48:21 Hermdaddy
NotSolved
21.02.2018 19:57:43 xlKing
NotSolved
22.02.2018 11:57:50 Hermdaddy
NotSolved
Rot Textboxen gleichzeitig ansprechen
 22.02.2018 13:29:31 Gast51382
NotSolved
22.02.2018 13:38:21 Hermdaddy
NotSolved
22.02.2018 14:20:28 Gast68385
NotSolved
23.02.2018 01:05:10 xlKing
NotSolved
23.02.2018 11:59:56 Hermdaddy
Solved
23.02.2018 16:17:41 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Gast51382		 Datum:
22.02.2018 13:29:31		 Views:
1063		 Rating:
     
Antwort:
  Ja
Thema:
Textboxen gleichzeitig ansprechen

Ich noch einmal, sorry für möglicherweise dumme Fragen..

Wie anfangs bereits erwähnt, sind das nicht alle Textboxen. Andere Textboxen haben einen anderen Bereich, in dem sie entweder grün oder rot angezeigt werden sollen.
Ich wollte nun den Quellcode übernehmen und für den weiteren Sachverhalt verwenden, habe ein neues Klassenmodul namens D_Strecke erzeugt mit folgendem Code

Public WithEvents tbx As MSForms.TextBox
Dim SABW As Double

Private Sub tbx_Change1()

SABW = Sheets("Tabelle1").Cells(2, 12)
   
    If tbx = "" Or tbx = "-" Then
      tbx.BackColor = vbWhite
    ElseIf tbx > (SABW * 2) Or tbx < -(SABW * 2) Then
      tbx.BackColor = vbRed
    Else
      tbx.BackColor = vbGreen
    End If
  
  
  End Sub

und dem dazugehörigen Code in der UserForm

Private Sub UserForm_Initialize2()
   For Each ctrl In Controls
      If TypeName(ctrl) = "TextBox" Then
        If Val(Right(ctrl.Name, 4)) >= 5089 And Val(Right(ctrl.Name, 4)) <= 5107 Then
          tbxcoll.Add New D_Strecke
          Set tbxcoll(tbxcoll.Count).tbx = ctrl
        End If
      End If
   Next ctrl
End Sub


tbxcoll und ctrl sind global (also direkt nach Option Explicit) definiert. 
Bin gerade ein wenig überfordert, Danke schon einmal!

 

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
21.02.2018 14:38:58 Hermdaddy
NotSolved
21.02.2018 14:52:50 Gast30478
NotSolved
21.02.2018 14:57:15 Hermdaddy
NotSolved
21.02.2018 18:48:21 Hermdaddy
NotSolved
21.02.2018 19:57:43 xlKing
NotSolved
22.02.2018 11:57:50 Hermdaddy
NotSolved
Rot Textboxen gleichzeitig ansprechen
 22.02.2018 13:29:31 Gast51382
NotSolved
22.02.2018 13:38:21 Hermdaddy
NotSolved
22.02.2018 14:20:28 Gast68385
NotSolved
23.02.2018 01:05:10 xlKing
NotSolved
23.02.2018 11:59:56 Hermdaddy
Solved
23.02.2018 16:17:41 xlKing
NotSolved