Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1240to1244
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wiederholungen im UserForm_Initialize vermeiden

Wiederholungen im UserForm_Initialize vermeiden
chandler
Hallo,
ich habe drei Dutzend Selectboxen die den gleichen Inhalt haben, siehe Beispiel:
With Me.cbo4
.Clear
.AddItem "N"
.AddItem "O"
.AddItem "S"
.AddItem "W"
End With
Wie kann ich die unzähligen Wiederholungen im UserForm_Initialize vermeiden, dadurch auch die Performance des Codes erhöhen?
Vorab vielen Dank. Grüße Chandler

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

Betreff
Benutzer
Anzeige
AW: Wiederholungen im UserForm_Initialize vermeiden
24.12.2011 15:21:50
Josef

Hallo Chandler,
erledige das Befüllen der Combos so.
Private Sub UserForm_Initialize()
  Dim strList(3) As String, intIndex As Integer
  
  strList(0) = "N"
  strList(1) = "O"
  strList(2) = "S"
  strList(3) = "W"
  
  For intIndex = 1 To 36
    Me.Controls("cbo" & intIndex).List = strList
  Next
  
End Sub



« Gruß Sepp »

Anzeige
AW: Wiederholungen im UserForm_Initialize vermeiden
24.12.2011 16:53:52
Hajo_Zi
ich würde ja das Activate Ereignis benutzen da UserForm_Initialize in einer Sitzung nur 1x ausgeführt wird.

Funktioniert einwandfrei. Danke
24.12.2011 20:22:46
chandler
Hallo Sepp,
Hallo Hajo_Zi,
is eine gute Idee, zumal funktioniert einwandfrei.
Vielen Dank, Grüße Chandler
Eine ergänzende Frage
25.12.2011 12:29:30
chandler
Hallo,
durch derart Schleifen kann mal ja viele Werderholungen vermeiden, somit
den Code übersichtlicher gestalten und die Performance des Codes erhöhen.
Habe bereits 20 Selectboxen die in gleicher Weise befühlt werden, siehe Beispiel:
With Worksheets("Tabelle1")
cboE1_G1.List = _
.Range(.Cells(10, 1), .Cells( _
.UsedRange.Rows.Count, 1)).Value
End With
Dabei werden die Selectboxen in 3 Gruppen je 5 eingeteilt. Und das macht mir Kopfweh.
1 Gruppe: cboE1_G1, cboE2_G1, cboE2_G1, cboE4_G1 und cboE5_G1
2 Gruppe: cboE1_G2, cboE2_G2, cboE2_G2, cboE4_G2 und cboE5_G2
3 Gruppe: cboE1_G3, cboE2_G3, cboE2_G3, cboE4_G3 und cboE5_G3
Wie könnte da, anlehnend an die vorige Schleife, das ausschauen?
Weiß jemand Rat und kann helfen? Vorab vielen Dank.
Grüße Chandler
Anzeige
vielleicht so
25.12.2011 13:23:56
Erich
Hi,
meinst du so? 

Dim ii As Integer, jj As Integer
For ii = 1 To 5
For jj = 1 To 3
Me.Controls("cboE" & ii & "_G" & jj).List = _
.Range(.Cells(10, 1), .Cells(.UsedRange.Rows.Count, 1)).Value
Next jj
Next ii
Die Comboboxwn werden dabei alle aus dem selben Bereich befüllt.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Supper! Vielen Dank
25.12.2011 17:45:40
chandler
Hallo Erich,
vielen Dank, funktioniert einwandfrei.

302 Forumthreads zu ähnlichen Themen

Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zellenformatierung testen - .InsertIndent
Tom

Guten Morgen,
mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click() For...
01.09.2008 10:56:47
Thread-ID: 1006352
3 Beiträge
Anzeige
MultiPage und ImageCombo - Bilder verschwinden
Alfons

Hallo,
ich habe eine UserForm mit einer MultiPage.
In der ersten Registerkarte ist eine ImageCombo.
Die Bilder für die ImageCombo sind in einer ImageList.
Beim starten der UserForm sind die Bilder in der ImageCombo auch zu sehen.
Wird aber zwischendurch ein anderes Register...
15.10.2008 19:38:13
Thread-ID: 1016667
9 Beiträge
Mit LoadPicture Bild aus dem Internet laden
Tobias

Hallo zusammen,
hab mal wieder ein Frage an das Kompetenzteam :).
Möchte in einer Userform ein Firmenlogo anzeigen lassen aber ich will keine Daten irgendwo ablegen. Sollte die Exeldatei mal irgenwo anderst landen ohne zugehöriges IMG wird das Logo nicht mehr angezeigt das will ich verm...
29.10.2008 09:09:00
Thread-ID: 1020141
4 Beiträge
Formel verbinden
Malivendi

Guten Abend,
habe gerade ein problem und komme nicht weiter. Ich gabe eine formel mit der kann ich in einer Tabelle 2 suchen und vergleichen, jetzt müsste ich die formel so erweitern, dass ich in Tabelle 3 , Tabelle 4 usw. suchen und vergleichen kann. In der ersten Tabelle gebe ich die Bez...
04.11.2008 21:31:00
Thread-ID: 1021733
4 Beiträge
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Bild einblenden
Stefan

Hallo Forum,
habe beim suchen im Forum folgenden Code gefunden:
Dim HWH As Object
Sub CommandButton1_Click() CommandButton1.Caption = "Bild" [A300].Activate Set HWH = ActiveSheet.Pictures.Insert("G:\...\....gif") End Sub
Sub CommandButton2_Click() ActiveSheet.Shapes("Pictur...
07.01.2009 13:19:00
Thread-ID: 1037518
3 Beiträge

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
9
2
1
8
3
3
3
2
4
4
10
1
5
5
1
1
3
2
6
8
4
7
1