Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kombinationsfeld VBA zeigt keinen Inhalt

Forumthread: Kombinationsfeld VBA zeigt keinen Inhalt

Kombinationsfeld VBA zeigt keinen Inhalt
04.04.2017 11:28:08
Patrick
Hallo zusammen,
ich habe heute das erste Mal eine Userform genutzt. Hierbei habe ich auch Kombinationsfelder _ angelegt. Leider funktionieren sie nicht wie gewünscht, der gewollte Inhalt wird nur angezeigt, wenn in das Feld mindestens ein Buchstabe/Zahl eingetragen wird. 

Private Sub Uhrzeit_Change()
Dim varInhArr As Variant
varInhArr = Array("09:00", "09:30", "10:00", "10:30", "11:00", "11:30", "12:00", "12:30", "13:   _
_
_
00", "13:30", "14:00", "14:30", "15:00", "15:30", "16:00", "16:30", "17:00")
Uhrzeit.List = varInhArr
ActiveSheet.Unprotect
Range("D5") = Uhrzeit.Value
ActiveSheet.Protect
End Sub

Was muss ich tun damit der Dropdown auch mit Inhalt gefüllt ist, ohne dass vorher das Feld manuell gefüllt werden muss?
Vielen Dank für jede Hilfe!
Gruß,
Patrick
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kombinationsfeld VBA zeigt keinen Inhalt
04.04.2017 12:05:11
Werner
Hallo Patrick,
der Code zum Befüllen der Combobox muss ins Initialize-Ereignis deiner Userform.
Dazu rechtsklick auf deine Userform - im rechten Pulldown Initialize auswählen -
diesen Code dann dort rein kopieren: 
Dim varInhArr As Variant
varInhArr = Array("09:00", "09:30", "10:00", "10:30", "11:00", "11:30", _
"12:00", "12:30", "13:00", "13:30", "14:00", "14:30", "15:00", "15:30", _
"16:00", "16:30", "17:00")
Uhrzeit.List = varInhArr
diesen Code dann ins Uhrzeit_Change Ereignis 
ActiveSheet.Unprotect
Range("D5") = Uhrzeit.Value
ActiveSheet.Protect
Gruß Werner
Anzeige
AW: Kombinationsfeld VBA zeigt keinen Inhalt
04.04.2017 13:51:12
Patrick
Grandios, vielen Dank. Es hat alles geklappt.
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
04.04.2017 13:59:11
Werner

Forumthreads zu verwandten Themen

Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Anzeige
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Datei wird nicht gefunden obwohl sie da ist
franc

Die Datei wird gefunden aber wenn es darum geht diese zu öffnen dann bringt er den Fehler das er die nicht gefunden hat ...
Das eigenartige ist, das es am Anfang funktionierte.
Sub skill() Dim varZeile As Variant, strDatei As String If Dir("C:\Dokumente und Einstellungen\Administrator...
30.04.2009 14:54:40
Thread-ID: 1072196
4 Beiträge
Datei öffnet nicht mehr!!
Andreas

Hallo Forum,
habe eine Excel-Datei erstellt und kann sie jetzt nicht mehr öffnen.
Beim Versuch sie zu öffnen startet excel und unten links kommt auch der kleine "ladebalken".
Doch dann gehts nicht weiter.
Kann man mir helfen, oder ist die arbeit hin?
Gruß Andreas
06.07.2009 22:25:21
Thread-ID: 1086797
4 Beiträge
Wert wird nicht angezeigt
Markus

Hallo,
habe folgendes Problem:
Ich lasse mir einen Wert per VBA ausrechnen und dann mit Range... im Tabellenblatt anzeigen.
Das Problem ist, dass der Wert nicht angezeigt wird.
Wenn ich denn Programmcode per Einzelschritt debugge, dann wird der Wert komischerweise angezeigt!
...
20.07.2009 11:00:55
Thread-ID: 1089939
6 Beiträge
Geöffnete Datei wird nicht angezeigt...
Ruediger

Hallo zusammen,
ich habe eine Datei - mit einigen Verknüpfungen auf eine andere Datei - versuchen wollen zu öffnen. Ich werde auf gefragt, ob ich aktualisieren will oder nicht. Drücke ich aktualisieren als auch nicht aktualisieren, wird die Datei zwar geöffnet, aber nicht angezeigt.
Wo...
22.07.2009 17:02:42
Thread-ID: 1090605
3 Beiträge
Summe zeigt nichts an
walli

Guten Morgen,
ich habe eine Summe gebildet von
=SUMME(C8:Y8)
das sind die Werte jeweils pro Monat,es wird mir nichts
angezeigt, nur wenn ich die Monate alle mit Zahlen belegt habe.
mfg walli
10.10.2009 11:45:31
Thread-ID: 1108715
6 Beiträge
WAV-Datei einbetten und beim Öffnen abspielen
Martha

Hallo liebe Forumler,
ich möchte eine bestimmte WAV-Datei (kein Standardsound!) so in meine Excel-Datei einbinden, dass Sie beim Öffnen einmalig abgespielt wird.
Dabei soll im VBA-Modul nicht auf eine WAV-Datei in einem Windows-Ordner verwiesen werden, sondern der Wavesound quasi in der...
25.11.2009 15:09:59
Thread-ID: 1119997
8 Beiträge
Anzeige
Userform wird nicht bei allen angezeigt
Rudolf

Hallo
Beim öffnen einer grossen Excel-Arbeitsmappe wird u.a. eine Userform auch geöffnet:
folgender Code:
Private Sub Workbook_Open() On Error Resume Next UserForm2.Show (0) End Sub Leider aber wird diese Userform (die die Navigation und weitere Schaltflächen für die Arbeitsmappe e...
26.01.2010 11:58:02
Thread-ID: 1133017
8 Beiträge
Datei wird nicht gefunden
Dirk

Hallo Forumsmitglieder,
ich brauche dringend Hilfe bei folgendem Problem.
Folgender Code bereitet Probleme: Private Sub Workbook_Open() Workbooks.Open "L:\X-Arbeitsordner\LOG\Datenbank Zeitmessung.xls" End Sub Wenn ich mich an unserem Netzwerk in der Firma anmelde, und den oben aufgefü...
01.02.2010 10:31:00
Thread-ID: 1134732
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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