Thema Datum  Von Nutzer Rating
Antwort
Rot Excel/VBA - Speicherproblem in Maske
03.08.2016 19:25:55 vbanob1
NotSolved
03.08.2016 20:32:44 Gast14762
NotSolved
04.08.2016 11:30:32 vbanob1
NotSolved
04.08.2016 11:33:29 vbanob1
NotSolved
04.08.2016 19:56:52 Gast12533
NotSolved
05.08.2016 12:02:58 vbanob1
NotSolved
06.08.2016 11:46:34 Gast82322
NotSolved
07.08.2016 12:31:53 vbanob1
NotSolved
07.08.2016 16:14:50 Gast42173
NotSolved
07.08.2016 16:39:38 vbanob1
Solved

Ansicht des Beitrags:
Von:
vbanob1
Datum:
03.08.2016 19:25:55
Views:
1274
Rating: Antwort:
  Ja
Thema:
Excel/VBA - Speicherproblem in Maske

Hallo Comunity,

in der Hoffnung, dass mir doch noch jemand auf die Sprünge helfen kann:


 

Ich habe Probleme mit den beiden Kombinationsfeldern im Frame Noten und der Ausgabe im Textfeld Durchschnitt. In den Kombinationsfelder soll man Noten in 0,5 Schritten auswählen können. Diese sollen in die Spalten K und L übertragen werden.

Problem 1 - das funktioniert nur, wenn amn vorher schon manuell Noten in die entsprechenden Zellen einträgt.

Im Textfeld Druchschnitt soll der Wert aus der Spalte J ausgegeben werden. In der Spalte J befindet sich die Formel Mittelwert in Bezug auf K und L..

Problem 2 - die über die Maske eingegebenen Ziffern werden offensichtlich nicht als Zahl erkannt, denn der Mittelwert wird weder in der Zelle (J2) noch in der Maske angezeigt.

 

Code:

Private Sub CommandButton1_Click()
Spalte = 2
zeile = (ListBox1.ListIndex + 2)
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

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/VBA - Speicherproblem in Maske
03.08.2016 19:25:55 vbanob1
NotSolved
03.08.2016 20:32:44 Gast14762
NotSolved
04.08.2016 11:30:32 vbanob1
NotSolved
04.08.2016 11:33:29 vbanob1
NotSolved
04.08.2016 19:56:52 Gast12533
NotSolved
05.08.2016 12:02:58 vbanob1
NotSolved
06.08.2016 11:46:34 Gast82322
NotSolved
07.08.2016 12:31:53 vbanob1
NotSolved
07.08.2016 16:14:50 Gast42173
NotSolved
07.08.2016 16:39:38 vbanob1
Solved