Hey Detlev,
danke Dir.
Und zwar, bin ich gerade dabei diesen Code zu verkürzen. Versuche das etwa um 2/3 zu kürzen. Jedoch soll die Funktion die gleiche sein, also der Code, muss das tun was er im Moment auch tut.
Ich schlag mir Stunden um die Ohren, bekomm aber diesen Code nicht gekürzt.
Kannst Du mir da helfen?
Private Sub CommandButton1_Click()
If TextBox13 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Or _
TextBox5 = "" Or TextBox6 = "" Or TextBox7 = "" Or TextBox8 = "" Or _
TextBox9 = "" Or TextBox10 = "" Or TextBox11 = "" Or TextBox12 = "" Then
MsgBox ("Bitte einen Wert eingeben")
Else
Exit Sub
End If
ActiveSheet.Range("E28") = CInt(Me.TextBox2) 'hier eintragen
ActiveSheet.Range("E29") = CInt(Me.TextBox3)
ActiveSheet.Range("E30") = CInt(Me.TextBox4)
ActiveSheet.Range("E31") = CInt(Me.TextBox5)
ActiveSheet.Range("F28") = CInt(Me.TextBox6)
ActiveSheet.Range("F29") = CInt(Me.TextBox7)
ActiveSheet.Range("F30") = CInt(Me.TextBox8)
ActiveSheet.Range("F31") = CInt(Me.TextBox9)
ActiveSheet.Range("G28") = CInt(Me.TextBox10)
ActiveSheet.Range("G29") = CInt(Me.TextBox11)
ActiveSheet.Range("G30") = CInt(Me.TextBox12)
ActiveSheet.Range("G31") = CInt(Me.TextBox13)
UF_Tabelle_01.Hide 'hier eintragen
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.SetFocus
End Sub
Private Sub CommandButton2_Click()
UF_Tabelle_01.Hide 'hier eintragen
End Sub
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton2.SetFocus
End Sub
Private Sub CommandButton3_Click()
ActiveSheet.Range("E28") = CInt("0") 'hier eintragen
ActiveSheet.Range("E29") = CInt("0")
ActiveSheet.Range("E30") = CInt("0")
ActiveSheet.Range("E31") = CInt("0")
ActiveSheet.Range("F28") = CInt("0")
ActiveSheet.Range("F29") = CInt("0")
ActiveSheet.Range("F30") = CInt("0")
ActiveSheet.Range("F31") = CInt("0")
ActiveSheet.Range("G28") = CInt("0")
ActiveSheet.Range("G29") = CInt("0")
ActiveSheet.Range("G30") = CInt("0")
ActiveSheet.Range("G31") = CInt("0")
Unload Me
UF_Tabelle_01.Show 'hier eintragen
End Sub
Private Sub CommandButton3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton3.SetFocus
End Sub
Private Sub UserForm_Activate()
'Erstes Auswahlfeld Markieren
With TextBox2
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
'Überschrift
Me.TextBox1.Value = ActiveSheet.Range("B36").Text
TextBox2 = ActiveSheet.Range("E28")
TextBox3 = ActiveSheet.Range("E29")
TextBox4 = ActiveSheet.Range("E30")
TextBox5 = ActiveSheet.Range("E31")
TextBox6 = ActiveSheet.Range("F28")
TextBox7 = ActiveSheet.Range("F29")
TextBox8 = ActiveSheet.Range("F30")
TextBox9 = ActiveSheet.Range("F31")
TextBox10 = ActiveSheet.Range("G28")
TextBox11 = ActiveSheet.Range("G29")
TextBox12 = ActiveSheet.Range("G30")
TextBox13 = ActiveSheet.Range("G31")
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Nur Zahlen dürfen eingetragen werden
Select Case KeyAscii
Case Asc("0") To Asc("9")
If InStr(tb1, ",") <> 0 Then
KeyAscii = 0
Else
End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
If InStr(tb1, ",") <> 0 Then
KeyAscii = 0
Else
End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
If InStr(tb1, ",") <> 0 Then
KeyAscii = 0
Else
End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
If InStr(tb1, ",") <> 0 Then
KeyAscii = 0
Else
End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
If InStr(tb1, ",") <> 0 Then
KeyAscii = 0
Else
End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
If InStr(tb1, ",") <> 0 Then
KeyAscii = 0
Else
End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
If InStr(tb1, ",") <> 0 Then
KeyAscii = 0
Else
End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
If InStr(tb1, ",") <> 0 Then
KeyAscii = 0
Else
End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
If InStr(tb1, ",") <> 0 Then
KeyAscii = 0
Else
End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
If InStr(tb1, ",") <> 0 Then
KeyAscii = 0
Else
End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox12_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
If InStr(tb1, ",") <> 0 Then
KeyAscii = 0
Else
End If
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub TextBox13_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
If InStr(tb1, ",") <> 0 Then
KeyAscii = 0
Else
End If
Case Else
KeyAscii = 0
End Select
End Sub
|