Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

COMBOBOX IN USER FORM

Forumthread: COMBOBOX IN USER FORM

COMBOBOX IN USER FORM
16.02.2009 20:28:00
eric1
Combobox wird wie folgt erstellt :
....
Set ctl = Controls("frm1").Controls.Add("forms.combobox.1", "cboboxsaperp1", True)
With ctl
.Left = 270
.Top = 40
.Width = 100
.Height = 18
.Font.Bold = False
.Font.Name = "Tahoma"
.Font.Size = 9
.BackColor = RGB(255, 255, 255)
.TextAlign = 1
.TabStop = True
.TabIndex = 1
.MaxLength = 10
.Locked = True
End With
es sollen nur diese Möglichkeiten ausgewählt werden :
1.offen
2. erledigt
Voreinstellung = offen
Danke Eric1
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
HIER WIRD SO GEFRAGT...
16.02.2009 20:32:00
Knut
Anrede,
Frage...
Gruß
AW: HIER WIRD SO GEFRAGT...
16.02.2009 20:35:00
eric1
Hallo zusammen, sorry das hab ich vergessen ! mein fehler
AW: HIER WIRD SO GEFRAGT...
16.02.2009 20:38:00
eric1
hallo,
hab den code schon mit .value auf 'offen' gestellt ! :
Set ctl = Controls("frm1").Controls.Add("forms.combobox.1", "cboboxsaperp1", True)
With ctl
.Left = 270
.Top = 40
.Width = 100
.Height = 18
.Font.Bold = False
.Font.Name = "Tahoma"
.Font.Size = 9
.BackColor = RGB(255, 255, 255)
.TextAlign = 1
.TabStop = True
.TabIndex = 1
.MaxLength = 10
.Locked = True
.Value = "OFFEN"
End With
Anzeige
ctl.AddItem "offen" und "erledigt"
16.02.2009 20:41:00
NoNet
Hallo Eric,
Deine "Fragestellung" wirkt (zumindest auf mich) aufgrund der fehlenden Anrede/Begrüssung und der nicht gestellten Frage ziemlich unfreundlich. Etwas mehr Mühe darfst Du dir schon geben, wenn Du eine qualifizierte Antwort erwartest !!
Hier dennoch eine Lösung : Ergänze folgende Zeilen unterhalb End With :
ctl.additem "Offen"
ctl.additem "erledigt"
Und : da Du die Eigenschaft .Locked=True gesetzt hast, ist die combobox gesperrt, man kann also nichts auswählen. Besser klappt es mit .Locked=False
Gruß, NoNet
Anzeige
AW: ctl.AddItem "offen" und "erledigt"
16.02.2009 20:44:00
eric1
sorry, hatte vergessen euch zu begrüßen, mein fehler.
eric1
AW: ctl.AddItem "offen" und "erledigt"
16.02.2009 21:01:00
eric1
sorry, hab die höflichkeit der anrede vergessen, mein fehler,
nur wenn ich :
Set ctl = Controls("frm1").Controls.Add("forms.combobox.1", "cboboxsaperp1", True)
With ctl
.Left = 270
.Top = 40
.Width = 100
.Height = 18
.Font.Bold = False
.Font.Name = "Tahoma"
.Font.Size = 9
.BackColor = RGB(255, 255, 255)
.TextAlign = 1
.TabStop = True
.TabIndex = 1
.MaxLength = 10
.Locked = False
.Value = "OFFEN"
End With
ctl.AddItem "OFFEN"
ctl.AddItem "ERLEDIGT"
setze, dann lässt sich die Combobox überschreiben, möchte aber nur :offen und erledigt möglich machen
wie geht das, danke eric1
Anzeige
AW: COMBOBOX IN USER FORM
16.02.2009 20:46:00
eric1
Hallo zusammen, sorry, hab vergessen HALLO zu sagen, MEIN FEHLER !
eric1
AW: COMBOBOX IN USER FORM
16.02.2009 21:07:00
Original
Hi,
kann gar nicht glauben, dass der Code so läuft, oder wird die UF auch zur Laufzeit erzeugt?
Wenn nichts überschrieben werden soll musst du die Eigenschaft Style auf 2 setzen.
mfg Kurt
AW: COMBOBOX IN USER FORM
16.02.2009 21:14:00
eric1
hallo kurt,
die userform wird wie folgt erstellt :
Private Sub userform_initialize()
'---------------------------------------------------------------------------
'*
'* USERFORM
'* NAME, GROESSE, HINTERGRUND
'*
'---------------------------------------------------------------------------
UserForm1.Caption = " tägliche Aufgaben BETA"
UserForm1.BackColor = RGB(205, 205, 193)
UserForm1.Width = 855
UserForm1.Height = 600
die frm :
'---------------------------------------------------------------------------
'*
'* FRAME
'* tägliche Aufgaben und Datum Uhrzeit
'*
'---------------------------------------------------------------------------
Dim ctl As Control
Set ctl = Controls.Add("forms.frame.1", "frm1", True)
With ctl
.Left = 20
.Top = 20
.Width = 550
.Height = 490
.Font.Bold = True
.Font.Name = "Tahoma"
.Font.Size = 10
.BackColor = RGB(205, 205, 193)
.Caption = " tägliche Aufgaben "
End With
und mit style = 2 klappt das super, DANKE
eric1
Anzeige
;

Forumthreads zu verwandten Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
formel vereinfachen
Bastian

guten morgen aus der schönen schweiz :)
ich habe mal wieder (aber ich lerne wirkich dazu, glaubt mir das bitte) ein problem.
ich habe eine formel gebastelt, die zwar funktioniert, die aber gleichzeitig ewig ewig lang ist.
diese würde ich gerne vereinfachen.
ich habe euch dazu ei...
15.08.2008 09:24:00
Thread-ID: 1002044
6 Beiträge
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
ButtonClick in Format Symbolleiste feststellen
Andreas

Hallo Herber Fans,
Ich habe hier im Forum schon gesucht, aber bekomme für meine Problem nur Antworten, die auf eine UserForm bezogen sind. Wie kann ich feststellen, ob der Button (ID: 443) "Fenster fixieren" der "Format"- Symbolleiste gedrückt wurde?
Über commandbars.findcontrol konnt...
18.08.2008 18:24:00
Thread-ID: 1002705
3 Beiträge
Schreibschutz/bedingte Formatierung Makro
Tobi

Hallo,
Ich übertrage mit Hilfe eines Makros (IF-Funktion) Zahlen aus einem Tabellenblatt in ein anderes welches schreibgeschützt ist. Wenn die Bedingung in der Funktion nicht erfüllt wird dann überträgt es "blank" ("").
Die Zellen welche leer "blank" sind, färben sich dann mit Hilfe der...
20.08.2008 14:39:51
Thread-ID: 1003216
5 Beiträge
Anzeige
Excel Daten in HTML Formular übertragen
Johannes

Hallo,
ich bin über einen Thread in einem anderen Forum auf dieses Forum und zwei Threads gestoßen worden, bei denen sich besonders der User Tino als Super-Hilfe herauskristalisiert hat (und dafür ziemlich angeblafft wurde...), weshalb ich mir erhoffe hier bzgl. meines Problems Hilfe zu erh...
21.08.2008 13:48:00
Thread-ID: 1003473
7 Beiträge
Brüche mit kleiner Schrift formatieren
Siegfried

Hallo Excelianer,
der Betreff sagt sicher wenig aus. Ich möchte Zeiten, die auf Viertelstunden gerundet sind, als Brüche darstellen - soweit kein Problem. Jetzt hätte ich aber gern die Viertelstunden nicht in der Standardformatierung, also 1 1/4 z. B., sondern mit kleingeschriebenen Ziffern...
25.08.2008 11:32:00
Thread-ID: 1004409
7 Beiträge
ganze Zeile nach Bedingung formatieren
Tom

Hallo
wie kann ich denn ausgehend von der aktuellen Zeile diese mittels VBA formatieren.
Hintergrund:
Steht in Spalte N der Wert "Ja", dann ändere den Hintergund dieser Zeile von A bis R in grau ab (Interner Farbwert von Excel sollte 15 sein)
Wird diese Formatierung mittels VBA...
26.08.2008 14:48:36
Thread-ID: 1004813
3 Beiträge
Formel: Max in Verbindung mit Mehrfachabfrage
Peter

Hallo !
Folgende Frage:
wie kann ich in einer Mehrfachabfrage den größten (max.) Wert ziehen.
Anmerkung: Die Mehrfachabfrage bekomme ich gut hin, jedoch wenn ich in der einen Formel einen von der Abfrage eingeschränkten Bereich zusätzlich nach einer höchsten Nummer möchte, geht d...
28.08.2008 18:57:50
Thread-ID: 1005572
3 Beiträge
Anzeige
Koordinatenformat Nullen mit Minuszeichen
Gunter

Hallo, liebe Excelprofis, vielleicht kann mir jemand helfen?
Ich möchte, dass Excel Nullen mit einem negativen Vorzeichen darstellt.
Meine Absicht ist, mit Hilfe von Excel Navigationskoordinaten in ein anderes Format zu bringen. In der beigefügten Exceldatei
https://www.herber.de/...
29.08.2008 16:06:00
Thread-ID: 1005885
11 Beiträge
Zellen formatieren, wenn Bedingung NICHT erfüllt
onkelbobby

Hallo,
habe folgendes Makro um Zellen farbig zu markieren:
Sub färben() Dim loletzte As Long Dim loletzte2 As Long Dim i As Integer Dim a As Integer Worksheets(2).Activate loletzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) loletzte2 = IIf(IsE...
02.09.2008 12:41:00
Thread-ID: 1006734
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige