Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
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
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox zeigt nichts an

Forumthread: Combobox zeigt nichts an

Combobox zeigt nichts an
drKnilch
Hi, ich habe mich heute an meine erste Combobox gewagt.
Leider zeigt sie mir nicht´s zur Auswahl an:
Private Sub ComboBox1_Change()
ComboBox1.AddItem "60"
ComboBox1.AddItem "80"
ComboBox1.AddItem "100"
ComboBox1.AddItem "120"
ComboBox1.AddItem "140"
ComboBox1.AddItem "160"
ComboBox1.AddItem "180"
ComboBox1.AddItem "200"
uBreite = ComboBox1.Value
End Sub

Private Sub maxKraft_Berechnung()
If uBreite = "60" Then
maxKraft = ((3 * 210000 * 31.6 * (Worksheets("Tabelle1").Range("C3").Value) * (Worksheets(" _
Tabelle1").Range("C3").Value) * Traegerdurchbiegung) / ((0.5 * (Worksheets("Tabelle1").Range(" _
C3").Value) * (0.5 * (Worksheets("Tabelle1").Range("C3").Value) * (0.5 * (Worksheets("Tabelle1").Range("C3").Value)) * 30 * 30 * 30))
Else
End If
End Sub

Private Sub TextBox4_Change()
maxWasserhoehe = TextBox4.Value
End Sub

Stimmt das soweit auch mit der Werteübernahme?
Speziell auch in der Textbox?
Wäre super, wenn mir jemand weiterhelfen kann...
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Combobox zeigt nichts an
10.11.2011 13:07:41
JOWE
Hallo,
so vllt.? 
Private Sub ComboBox1_GotFocus() 'statt Combobox1_change
With ComboBox1
.AddItem "60"
.AddItem "80"
.AddItem "100"
.AddItem "120"
.AddItem "140"
.AddItem "160"
.AddItem "180"
.AddItem "200"
End With
End Sub

Dann zeigt die Combobox die gewünschten Werte auch zur Auswahl an.
Gruß
Jochen
Anzeige
AW: Combobox zeigt nichts an
10.11.2011 14:08:46
drKnilch
Leider immer noch nicht :-/
trotzdem danke
AW: Combobox zeigt nichts an
10.11.2011 14:39:40
Rudi
Hallo,
etwa so: 
Option Explicit
Dim uBreite As Double
Dim blnCode As Boolean
Private Sub ComboBox1_Change()
If Not blnCode Then uBreite = CDbl(ComboBox1)
End Sub
Private Sub ComboBox1_GotFocus()
Dim i
blnCode = True
ComboBox1.Clear
For i = 60 To 200 Step 20
ComboBox1.AddItem i
Next
blnCode = False
End Sub

schreibst du gerne viel? 
Private Sub maxKraft_Berechnung()
Dim myVar
If uBreite = 60 Then
myVar = Worksheets("Tabelle1").Range("C3").Value
MaxKraft = ((3 * 210000 * 31.6 * (myVar) ^ 2 * Traegerdurchbiegung) _
/ ((0.5 * myVar) ^ 3 * 30 ^ 3))
Else
End If
End Sub

Gruß
Rudi
Anzeige
AW: Combobox zeigt nichts an
11.11.2011 07:49:19
drKnilch
Danke erstmal,
leider zeigt mir die Combobox aber immer noch nichts an :-/
Ob ich gern viel schreib? :-)
Wusste nicht, ob VBA ^3 akzeptiert, darum hab ich´s erstmal umständlich gemacht- danke :-)
Mappe? owT
11.11.2011 09:24:52
Rudi
AW: Mappe? owT
11.11.2011 09:46:38
drKnilch
Was Mappe?
Kann damit leider nix anfangen...
Anzeige
lad die Mappe hoch. owT
11.11.2011 13:21:13
Rudi
ich seh kein(e) UF1...owT
11.11.2011 18:30:20
robert
Anzeige
AW: ich seh kein(e) UF1...owT
14.11.2011 07:43:07
drKnilch
Mist, peinlich...
Meinte die Combobox in UF 2!
Tut mir leid...
;
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