Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
736to740
736to740
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Listenfeldindex

Listenfeldindex
27.02.2006 18:09:54
alex
HAllo Forum,
ich habe eine USerform mit einigen listboxes die ich langsam auffuelle.
Da ich keine Scrollpfeile haben will veraendere ich die Groesse der Listbox in jedem Programmdurchlauf.
Im Moment sieht es folgendermassen aus
ListBox13.Height = 5 + 14 * (index)
ListBox13.IntegralHeight = False
ListBox13.Visible = True
Dies muesste ich aber fuer jede Listbox machen (nicht sehr schoen)
Ich wuerde das ganze lieber in einer Schleife laufen lassen.
z.B. for n = 1 to 20 'ich habe 20 Listboxen die ich anpassen muss
ListBox(n).Height = 5 + 14 * (index)
ListBox(n).IntegralHeight = False
ListBox(n).Visible = True
next n
Was mache ich falsch ? Oder kann man die listboxen nicht auf diesem Wege Listbox(n)ansprechen?
Danke
Alex

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listenfeldindex
27.02.2006 18:15:59
Peter
Servus,
bei dir müsste das Stichwort Controls reichen.
MfG Peter
?
27.02.2006 18:19:56
alex
?
AW: ?
27.02.2006 18:27:21
Reinhard
Hi Alex,
ungetestet:

for each c in activesheet.controls
if c.name like "Listbox*" then
c.height=100
end if
next c

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
AW: funktoniert leider nicht :-(
27.02.2006 18:48:34
alexander
funktoniert leider nicht :-(
AW: funktoniert leider nicht :-(
27.02.2006 18:51:34
Reinhard
Hi Alexander,
dann halt so:
for each c in userform.controls   'bzw userform1.controls
if c.name like "Listbox*" then
c.height=100
end if
next c

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
nach ner kleinen Aenderung hats funktioniert
27.02.2006 19:48:48
ALEX
Danke
For Each c In UserForm1.Controls
LBox = c.Name Like "ListBox*"
If LBox = True Then
c.Height = 5 + 14 * (index)
ListBox13.IntegralHeight = False
ListBox13.Visible = True
End If
Next c

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige