Thema Datum  Von Nutzer Rating
Antwort
Rot Excel - Probleme Combobox in Verbindung mit Formel
02.08.2016 20:42:36 vbanob
NotSolved
02.08.2016 22:41:09 Gast29181
NotSolved
02.08.2016 23:12:07 vbanob
NotSolved
02.08.2016 23:25:28 Gast14990
NotSolved
02.08.2016 23:44:02 vbanob
NotSolved
03.08.2016 00:07:16 Gast54889
NotSolved
03.08.2016 09:23:01 vbanob
NotSolved
03.08.2016 10:34:25 vbanob
NotSolved
03.08.2016 11:57:54 vbanob
NotSolved

Ansicht des Beitrags:
Von:
vbanob
Datum:
02.08.2016 20:42:36
Views:
1204
Rating: Antwort:
  Ja
Thema:
Excel - Probleme Combobox in Verbindung mit Formel

Hi Leute,

hier bin ich mal wieder. Beschreibe das Problem anhand der Maske im Arbeitsblatt.

Die Kombinationsfelder bei Päd_MP_1 und 2 sollen die ausgewählten Noten in die grünen Spalten im Arbeitsblatt übertragen. Im Textfeld Durchschnitt soll der Mittelwert aus beiden Noten angezeigt werden. Also der Wert aus der orangenen Spalte.

Problem: Die vorgegebenen Ziffern (1; 1,5; 2; ...) erscheinen in den Kombinationsfeldern nur, wenn ich vorher schon eine Ziffer in die entsprechende Zelle eintrage - Fall1. Wenn nicht, bleiben die Felder leer - Fall 2.
Wenn ich die Änderungen mit dem OK-Buton (CommandButton1) abspeichere (Fall 1), werden die Ziffern zwar übernommen. Die Mittelwert-Formel aus der orangenen Spalte wird nun jedoch gelöscht und es belibt jedoch der alte Wert als Ziffer (!) erhalten. Hier kommt der Code der Maske:
 


Private Sub CommandButton1_Click()
Spalte = 2
zeile = (ListBox1.ListIndex + 2)
Worksheets(12).Cells(zeile, Spalte) = Me.TextBox1
Worksheets(12).Cells(zeile, Spalte + 1) = Me.TextBox2
Worksheets(12).Cells(zeile, Spalte + 2) = Me.TextBox3
Worksheets(12).Cells(zeile, Spalte + 8) = Me.TextBox4
Worksheets(12).Cells(zeile, Spalte + 11) = Me.TextBox5
Worksheets(12).Cells(zeile, Spalte + 9) = Me.ComboBox1
Worksheets(12).Cells(zeile, Spalte + 10) = Me.ComboBox2
End Sub

Private Sub CommandButton2_Click()
Unload UserForm2
End Sub

Private Sub ListBox1_Click()
Spalte = 2
zeile = (ListBox1.ListIndex + 2)
Me.TextBox1 = Worksheets(12).Cells(zeile, Spalte)
Me.TextBox2 = Worksheets(12).Cells(zeile, Spalte + 1)
Me.TextBox3 = Worksheets(12).Cells(zeile, Spalte + 2)
Me.TextBox4 = Worksheets(12).Cells(zeile, Spalte + 8)
Me.TextBox5 = Worksheets(12).Cells(zeile, Spalte + 11)
Me.ComboBox1 = Worksheets(12).Cells(zeile, Spalte + 9)
Me.ComboBox2 = Worksheets(12).Cells(zeile, Spalte + 10)
End Sub
Private Sub ComboBox1_Change()
Me.ComboBox1.AddItem "1"
Me.ComboBox1.AddItem "1,5"
Me.ComboBox1.AddItem "2"
Me.ComboBox1.AddItem "2,5"
Me.ComboBox1.AddItem "3"
Me.ComboBox1.AddItem "3,5"
Me.ComboBox1.AddItem "4"
Me.ComboBox1.AddItem "4,5"
Me.ComboBox1.AddItem "5"
Me.ComboBox1.AddItem "5,5"
Me.ComboBox1.AddItem "6"
End Sub

Private Sub ComboBox2_Change()
Me.ComboBox2.AddItem "1"
Me.ComboBox2.AddItem "1,5"
Me.ComboBox2.AddItem "2"
Me.ComboBox2.AddItem "2,5"
Me.ComboBox2.AddItem "3"
Me.ComboBox2.AddItem "3,5"
Me.ComboBox2.AddItem "4"
Me.ComboBox2.AddItem "4,5"
Me.ComboBox2.AddItem "5"
Me.ComboBox2.AddItem "5,5"
Me.ComboBox2.AddItem "6"
End Sub

Wäre nett, wenn Ihr die Änderungsvorschläge gleich in den Code eintragt. Lerne zwar täglich dazu, bin aber noch blutiger Anfänger.

Vielen Dank!!!


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel - Probleme Combobox in Verbindung mit Formel
02.08.2016 20:42:36 vbanob
NotSolved
02.08.2016 22:41:09 Gast29181
NotSolved
02.08.2016 23:12:07 vbanob
NotSolved
02.08.2016 23:25:28 Gast14990
NotSolved
02.08.2016 23:44:02 vbanob
NotSolved
03.08.2016 00:07:16 Gast54889
NotSolved
03.08.2016 09:23:01 vbanob
NotSolved
03.08.2016 10:34:25 vbanob
NotSolved
03.08.2016 11:57:54 vbanob
NotSolved