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
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
Rot Textboxen gleichzeitig ansprechen
 23.02.2018 11:59:56 Hermdaddy
Solved
23.02.2018 16:17:41 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Hermdaddy		 Datum:
23.02.2018 11:59:56		 Views:
728		 Rating:
     
Antwort:
 Nein
Thema:
Textboxen gleichzeitig ansprechen

Hallo,

Falls es interessiert, ich habe selbständig(!!! :-) ) eine Lösung gefunden, war dann doch recht simpel. Ich habe für jeden meiner Fälle eine eigene Klasse gebaut und in der UserForm einfach folgende Codes implämentiert

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
For Each ctrl In Controls
      If TypeName(ctrl) = "TextBox" Then
        If Val(Right(ctrl.Name, 4)) >= 5131 And Val(Right(ctrl.Name, 4)) <= 5132 Then
          tbxcoll.Add New Indexfehler1
          Set tbxcoll(tbxcoll.Count).tbx = ctrl
        End If
    End If
   Next ctrl
    
   For Each ctrl In Controls
      If TypeName(ctrl) = "TextBox" Then
        If Val(Right(ctrl.Name, 4)) >= 5127 And Val(Right(ctrl.Name, 4)) <= 5128 Then
          tbxcoll.Add New Hoehenfehler
          Set tbxcoll(tbxcoll.Count).tbx = ctrl
        End If
    End If
   Next ctrl

Hat gut geklappt, funktioniert auch für alle 9 unterschiedlichen Fälle und ich bin wunschlos glücklich :-)
Danke für die Hilfe

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
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
Rot Textboxen gleichzeitig ansprechen
 23.02.2018 11:59:56 Hermdaddy
Solved
23.02.2018 16:17:41 xlKing
NotSolved