VBA
22.10.2017 14:15:03
Andreas
Hoffe Ihr könnt mir helfen.
Habe die letzten Tage ein Programm erstellt mit welchem ich eine Getränkeliste im excel erstelle.
habe schon einiges durch lesen in foren oder durch youtube auf die reihe gebracht aber jetzt komm ich nicht mehr weiter.
und nun meine eigentliche bitte.
ich will dass es mir die gleichen namen in der exceltabelle zusammenfügt und die dahinterstehenden daten spaltenweise zusammenaddiert und das dann alles in der ersten spalte wo dieser name vorkommt steht.
weiteres hätte ich gerne, wenn ich auf den namen in der listbox doppelklicke, dass es mir die daten hinter dem namen übernimmt und in dem VB programm reinschreibt unter den textboxen "Bier_Offen" und "Limo_Offen"
zu guter letzt wäre noch der button "Bezahlen" welcher die daten des ausgewälten namens umrechnen soll und mir sagen soll wie viel der "Name" zu bezahlen hat
ich hoffe ihr könnt mir ansatzweise helfen
Vielen Dank im Vorraus
MFG Andi
Anbei mein Bestehender Code:
'Bierzähler Minus 1
Private Sub Bier_M_Click()
Text_Bier_Dazu = (Text_Bier_Dazu.Value - 1)
End Sub
'Bierzähler Plus 1Private Sub Bier_P_Click()
Text_Bier_Dazu = (Text_Bier_Dazu.Value + 1)
End Sub
'Eingabefenster Schließen
Private Sub Cancel_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Unload Me
End Sub
'Ausgewählten Namen ins eingabefeld EinfügenPrivate Sub Ganze_Liste_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Text_Name = Ganze_Liste
End Sub
'Limozähler Minus 1
Private Sub Limo_M_Click()
Text_Limo_Dazu = (Text_Limo_Dazu.Value - 1)
End Sub
'Limozähler Plus 1Private Sub Limo_P_Click()
Text_Limo_Dazu = (Text_Limo_Dazu.Value + 1)
End Sub
'Speichern der DatenPrivate Sub Save_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(last, 1).Value = Kassa.Text_Name.Value
ActiveSheet.Cells(last, 2).Value = Kassa.Text_Bier_Dazu.Value
ActiveSheet.Cells(last, 3).Value = Kassa.Text_Limo_Dazu.Value
Kassa.Text_Name = ""
Kassa.Text_Bier_Dazu = "0"
Kassa.Text_Limo_Dazu = "0"
'Sortieren nach Alphabet
Dim Sortierspalte As String
Dim Bereich As String
Bereich = "A2:C51"
Sortierspalte = "A"
ActiveSheet.Range(Bereich).Sort _
Key1:=Range(Sortierspalte & "1"), Order1:=xlAscending, _
Header:=xlGuess, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
'Eingabemaske mit daten füllenPrivate Sub UserForm_Initialize()
Ganze_Liste.RowSource = "A2:A50"
Kassa.Text_Name = ""
Kassa.Text_Bier_Dazu = "0"
Kassa.Text_Limo_Dazu = "0"
End Sub