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
1152to1156
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
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform - Code Verbindung

Userform - Code Verbindung
F.
Hallo,
ich habe eine Tabelle1, ein Modul1 und eine Userform1 angelegt und unter einem Dateinamen abgespeichert.
In die Userform1 habe ich 6 stk Combobox eingebaut, die alle die Zahl 1-5 zur Auswahl haben sollen.
Den Code habe ich geschrieben, habe aber keinerlei Verbindung (Ereignis) vom Objekt während der (Test)laufzeit zum Code. Mit anderen Worten es passiert nichts.
Wenn ich den Code z.B. in einen CommandButton einbinde, funktioniert es halbwegs.
Hat jemand eine Idee warum die Comboboxes nicht mit dem Code in Verbindung stehen?
Danke für Anregungen.

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

Betreff
Benutzer
Anzeige
Beispieldatei wäre sinnvoll oT
20.04.2010 14:58:55
Bertram
AW:Bahnhof
20.04.2010 15:00:04
Michael
Hallo,
ohne deinen Code zu sehen, wird das nix!
Gruß
Michael
AW: AW:Bahnhof
20.04.2010 15:51:54
F.
BEGINN CODE MODUL1
Option Explicit
Public Tablatt, mappe, ComboBox1 As Object
Sub auto_open()
UserForm1.Show
Set mappe = ThisWorkbook
Set Tablatt = mappe.Sheets("Tabelle1")
Workbooks("Berechnungshilfe_Gruben.xls").Activate
End Sub
ENDE CODE MODUL1
BEGINN CODE USERFORM1
Private Sub ComboBox1_Change()
Dim x as Interger
With ComboBox1
For x = 1 To 5
ComboBox1.AddItem x
Next
End With
End Sub
Sub ComboBox1_Click()
Dim x as Interger
With ComboBox1
For x = 1 To 5
ComboBox1.AddItem x
Next
End With
End Sub ENDE CODE USERFORM1
... aber egal was ich in combobox1 reinschreibe, es passiert nichts.
Ich glaube dass ich mit der Combobox1 kein Ereignis auslöse?
Oder das Ereignis keine Auswirkung auf den Code hat?
Anzeige
Sorry, aber das ist Murks...
20.04.2010 16:01:42
Bertram
...Hallo F.,
mal abgesehen davon, dass es den Datentyp Interger nicht gibt, reagiert die Combobox schon, allerdings bestimmt nicht wie gewünscht.
Was soll denn wann passieren?
Gruß
Bertram
AW: Sorry, aber das ist Murks...
20.04.2010 17:37:24
F.Venjacob
ja, stimmt, der Code ist wirklich Murks,
... aber das ist auch nicht mein eigentliches Problem.
Ich "baue" meinen Code meistens zusammen, indem ich
anfange und durch zwischenzeitliches
testen den Code korrigiere.
Aber da ich hier überhaupt keine Reaktion über das Ereignis
ComboBox1_Click habe, kann ich leider auch nichts testen.
Nur seltsam dass der folgende Code über einen Button bewirkt
dass die Combobox1 anschließend die Werte 1-5 enthält.
Private Sub CommandButton2_Click()
With ComboBox1
For x = 1 To 5
ComboBox1.AddItem x
Next
End With
End Sub

Anzeige
AW: Sorry, aber das ist Murks...
20.04.2010 17:44:06
robert
Aber da ich hier überhaupt keine Reaktion über das Ereignis
ComboBox1_Click habe, kann ich leider auch nichts testen.

hi,
was soll denn bei Combobox1_Click passieren?
das wäre von interesse
gruß
robert
AW: Sorry, aber das ist Murks...
20.04.2010 17:51:09
F.Venjacob
Ja, stimmt,
dadurch soll die Combbox1 nur die Werte 1,2,3,4,5 zur Auswahl
enthalten.
Anschließend wähle ich einen aus , z.b.
Combobox1.Value
Den Wert schreibe ich dann in Tabelle1
versteh dich nicht ganz..
20.04.2010 18:01:59
robert
..meinst du das ?
gruß
robert
Private Sub ComboBox1_Click()
Range("A10") = ComboBox1.Value ' A10 ist nur beispiel
End Sub

Anzeige
AW: versteh dich nicht ganz..
20.04.2010 18:10:11
F.Venjacob
Danke,
ich hab mir das Problem noch mal duch den Kopf gehen lassen
und bin selbst drauf gekommen:
Mit dem Starten der userform1 wird nun die Combobox1 gefüllt.
Private Sub UserForm_Initialize()
With ComboBox1
For x = 1 To 5
ComboBox1.AddItem x
Next
End With
End Sub
Danke für eure Hilfsbereitschaft.
Gruß friedel

300 Forumthreads zu ähnlichen Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Anzeige
@ 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
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
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 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
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
Excel-Daten in ein Excel-Formular übertragen
Martin

Hallo
Ich habe folgende Problemstellung: Ich habe einerseits eine Datenbank mit Adressfeldern (Tabelle "Daten") und ich habe ein Excel-Formular (Tabelle "Protokoll") kreiert. Nun möchte ich eine Art Serienbrief im Excel erstellen, d.h. jede Zeile in der Daten-Tabelle soll ein eigenes Protok...
08.09.2008 17:43:25
Thread-ID: 1008225
7 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox CommandButton

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
3
5
3
4
3
5
6
1
6
3
2
2
1
1
1
3
5
7
3
6
15
3
3
1
14