Überschreiben von Zellinhalten verhindern
07.07.2005 10:17:35
Zellinhalten
ich mache über zwei Textboxen in einer UserForm Eingaben. In die erste Textbox wird der Monat geschrieben, in die 2.Textbox kommen die Stunden pro Monat. Durch anklicken eines CommandButtons werden die Stunden entsprechend des Monats in die Zelle für den Monat geschrieben. Habe das folgendermaßen gemacht:
Private Sub CommandButton1_Click()
If TextBox1.Text = "1" Then [Zwischenrechnung!B3] = TextBox2.Text
If TextBox1.Text = "2" Then [Zwischenrechnung!C3] = TextBox2.Text
If TextBox1.Text = "3" Then [Zwischenrechnung!D3] = TextBox2.Text
If TextBox1.Text = "4" Then [Zwischenrechnung!E3] = TextBox2.Text
If TextBox1.Text = "5" Then [Zwischenrechnung!F3] = TextBox2.Text
If TextBox1.Text = "6" Then [Zwischenrechnung!G3] = TextBox2.Text
If TextBox1.Text = "7" Then [Zwischenrechnung!H3] = TextBox2.Text
If TextBox1.Text = "8" Then [Zwischenrechnung!I3] = TextBox2.Text
If TextBox1.Text = "9" Then [Zwischenrechnung!J3] = TextBox2.Text
If TextBox1.Text = "10" Then [Zwischenrechnung!K3] = TextBox2.Text
If TextBox1.Text = "11" Then [Zwischenrechnung!L3] = TextBox2.Text
If TextBox1.Text = "12" Then [Zwischenrechnung!M3] = TextBox2.Text
End Sub
Wie kann ich verhindern, dass wenn aus Versehen der falsche Monat eingegeben wird , welcher eigentlich schon berechnet wurde, die Stunden überschrieben werden?
Gruss Holger