Thema Datum  Von Nutzer Rating
Antwort
24.10.2007 15:16:00 Rob
NotSolved
24.10.2007 17:06:25 Holger
NotSolved
Rot Aw:Aw:Zugriff auf viele Textboxen über eine Zählva
 25.10.2007 13:05:10 Rob
NotSolved

Ansicht des Beitrags:
Von:
Rob		 Datum:
25.10.2007 13:05:10		 Views:
1075		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Zugriff auf viele Textboxen über eine Zählva
Hallo Holger,

Hat super geklappt! Vielen herzlichen Dank!!!

Grüßle
Rob

Holger schrieb am 24.10.2007 17:06:25:

Hallo Rob,
natürlich gibt es mehrere Möglichkeiten. Hier eine, die auch der Anfänger leicht erledigen kann.
Deine TextBoxen sind vermutlich mit der Eigenschaft TextBoxn.Visible=False versehen (kann im Eigenschaftenfenster gesetzt oder kontrolliert werden, wenn die Steuerelemente angeklickt sind). Diese Eigenschaft kannst du im Programm auf TextBoxn.Visible=True setzen, je nachdem welche Zeile in dem DropDownMenu ausgewählt wurde. Für ein DropDownMenu in der Menu-Zeile der Anwendung (Word, Excel, ...) müsstest über das Menu Extras-Anpassen und dann unter Kategorien Makros den einzelnen Drop-Down-Menu-Zeilen Makros zuordnen, die dann ausgeführt werden sollen. Du kannst die Auswahl z.B. auch in einer ListBox treffen lassen. Nehmen wir an, dass du dich für die ListBox entscheidest, also z.B. eine ListBox1 in deiner UserForm mit der TextBoxMatrix unterbringst. Da letztere unsichtbar ist, kannst du die ListBox auch so positionieren, dass sie die TextBoxen überlappt.


Private Sub UserForm_Initialize() 'Füllt die ListBox1 mit den Zahlen 1 bis 8
For i = 1 To 8
ListBox1.AddItem i
Next i
End Sub

Private Sub ListBox1_Click()
ListBox1.Visible=False 'Macht die ListBox unsichtbar
a = ListBox1.ListIndex + 1 'der ListIndex (Zeilennummer) beginnt bei null
TextBox1.Visible=True
TextBox2.Visible=True
TextBox3.Visible=True
TextBox4.Visible=True
TextBox5.Visible=True
if a=1 then exit sub
TextBox6.Visible=True
TextBox7.Visible=True
TextBox8.Visible=True
TextBox9.Visible=True
TextBox10.Visible=True
if a=2 then exit sub

usw. bis

TextBox31.Visible=True
TextBox32.Visible=True
TextBox33.Visible=True
TextBox34.Visible=True
TextBox35.Visible=True
if a=7 then exit sub
TextBox36.Visible=True
TextBox37.Visible=True
TextBox38.Visible=True
TextBox39.Visible=True
TextBox40.Visible=True

End Sub

Es geht mit Objektvariablen wesentlich einfacher, doch ist das noch nichts für den Anfänger.
Ich habe das Programm nicht getestet, es sollte aber laufen. Hoffentlich konnte ich dir helfen.
Holger


Rob schrieb am 24.10.2007 15:16:00:

Hallöchen,

folgendes: Ich habe eine Tabelle von Textboxen (5*8) und diese sind unsichtbar. Das Formular soll so sein, das wenn der Anwender die Zahl 3 aus einem Dropdown Menü auswählt, die ersten drei Zeilen dieser Tabelle sichtbar werden. Gibt es da eine Möglichkeit mit einer Zählvariable auf diese Textbox1, textbox2 usw. zuzugreifen? Wenn ja, wie wäre da die Syntax?

Für ne Idee wäre ich dankbar, bin Anfänger :-)
Benutze VBA 6.0

Grüßle
Rob

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
24.10.2007 15:16:00 Rob
NotSolved
24.10.2007 17:06:25 Holger
NotSolved
Rot Aw:Aw:Zugriff auf viele Textboxen über eine Zählva
 25.10.2007 13:05:10 Rob
NotSolved