Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1584to1588
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA

VBA
22.10.2017 14:15:03
Andreas
Hallo Leute.
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 1
Private 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ügen
Private 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 1
Private Sub Limo_P_Click()
Text_Limo_Dazu = (Text_Limo_Dazu.Value + 1)
End Sub
'Speichern der Daten
Private 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üllen
Private Sub UserForm_Initialize()
Ganze_Liste.RowSource = "A2:A50"
Kassa.Text_Name = ""
Kassa.Text_Bier_Dazu = "0"
Kassa.Text_Limo_Dazu = "0"
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Beispielmappe bitte
22.10.2017 20:19:05
Werner
Hallo Andreas,
ohne deine Mappe wird das sicherlich nichts. Nur mit dem was du hier schreibst wird dir wohl kaum jemand helfen können.
Gruß Werner
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige