sehr unflexibeler und langer Code
20.02.2008 18:44:16
Thomas
Habe nun folgende Frage zu dem Code
Diese abfrage muss ich ca. 140 mal oder auch mehr machen, mit verschiedenen Produkten
Produkt muss ich auch mal löschen oder neu Einfügen
If ComboBox2.Text = " Produkt l" Then ,
If ComboBox2.Text = " Produkt 2" Then ,
If ComboBox2.Text = " Produkt 2.1" Then,
If ComboBox2.Text = " Produkt 3" Then .usw
Also wenn ich z.B. ein neues Produkt einfugen oder ein altes löschen will ist das
sehr unflexibel und auch ein sehr langer Code wollte nun fragen ob jemand ne Lösung hat
Wie man das kürzer und flexibler machen kann
Private Sub CommandButton2_Click()
If ComboBox2.Text = "Produkt 1" Then
If TextBox6.Text "" Then
Sheets("Tabelle3").Range("D3").Value = Range("D3").Value + CDbl(TextBox6.Text)
End If
If TextBox5.Text "" Then
Sheets("Tabelle3").Range("C3").Value = Range("C3").Value + CDbl(TextBox5.Text)
End If
If TextBox7.Text "" Then
Sheets("Tabelle3").Range("E3").Value = Range("E3").Value + CDbl(TextBox7.Text)
End If
If TextBox7.Text "" Then
Sheets("Tabelle3").Range("D3").Value = Range("D3").Value - CDbl(TextBox7.Text)
End If
If TextBox7.Text "" Then
Sheets("Tabelle3").Range("C3").Value = Range("C3").Value - CDbl(TextBox7.Text)
End If
End If
End Sub
Private Sub UserForm_Initialize()
Dim i As Long
Dim u As Long
ComboBox2.Clear
ComboBox3.Clear
With Worksheets("Tabelle4")
For i = 1 To .Range("A65536").End(xlUp).Row
ComboBox3.AddItem .Cells(i, 1)
Next i
End With
With Worksheets("Tabelle5")
For u = 1 To .Range("A65536").End(xlUp).Row
ComboBox2.AddItem .Cells(u, 1)
Next u
End WithApplication.ScreenUpdating = True
End Sub
Gruß Thomas