AW: VBA-Excell Summen
02.07.2019 21:02:10
Werner
Hallo,
vielleicht weil immer noch niemand weiß, was mit was addiert werden soll. In deiner Beispielmappe kann ich nirgendwo eine Spalte Bestand finden.
Warum nimmst du für deine erste Userform zur Auswahl der Materialnummer nicht einfach eine Combobox in der alle Materialnummern zur Auswahl angeboten werden. So sparst du dir die Eintipperei der Materialnummer.
Hier mal der Code für deine Userform1 mit einer Combobox
Cobobox mit Daten füllen:
Private Sub UserForm_Initialize()
Dim loLetzte As Long
With Worksheets("Tabelle1")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
Me.ComboBox1.List = .Range(.Cells(2, "A"), .Cells(loLetzte, "A")).Value
End With
End Sub
Code für Commandbutton
Private Sub CommandButton1_Click()
If Me.ComboBox1.ListIndex = -1 Then
MsgBox "Bitte eine Auswahl treffen."
Me.ComboBox1.SetFocus
Exit Sub
End If
zeile = Me.ComboBox1.ListIndex + 2
Unload Me
UserForm2.Show
End Sub
Code zum Befüllen der Userform2
Private Sub UserForm_Initialize()
TextBox1 = Cells(zeile, "A")
TextBox2 = Cells(zeile, "B")
TextBox3 = Cells(zeile, "H")
TextBox4 = Cells(zeile, "F")
TextBox5 = Cells(zeile, "L")
TextBox6 = Cells(zeile, "M")
TextBox7 = Cells(zeile, "N")
TextBox8 = Cells(zeile, "O")
TextBox10 = Cells(zeile, "I") + Cells(zeile, "J")
End Sub
In Textbox10 werden jetzt mal einfach die Daten aus Spalte I und Spalte J addiert.
Gruß Werner