VBA Userform Button Speichern und neuen Wert in Textbox
03.02.2024 01:19:07
DLMuc
nach dem ich hier schon sehr viele Tipps, Trick's und Hilfestellungen gefunden habe, komme ich voran. Aber bei einem Problem hängt es bei mir massiv bzw. ich finde überhaupt keine Lösung und hoffe auf Unterstützung von Euch.
Istzustand:
Es besteht eine UF die über einen Code mit vorhanden Daten aus einer Tabelle bestückt wird. Die Werte werden in Textboxen eingetragen und sind nicht veränderbar, sie dienen nur zur Unterstüzung.
Beispiel:
Name: Andre (TextboxVorname nicht veränderbar)
Gesamtrechnung: 12,50 (TextboxRechnung nicht veränderbar)
Bezahlt: leer (TextboxBezahlt veränderbar)
Ich trage in die TB den Bezahlten Betrag ein und betätige den Button Buchen. Daraufhin wird der Wert in die Tabelle (Ordnungsgemäß) eingetragen und die UF schließt sich.
Aufgabe:
Weiterer Button (Buchen & Weiter) der im Prinzip das gleiche macht wie der Speichern Button, nur soll in die TBVorname und TB Rechnung der nächste Wert aus der Liste geladen und angezeigt werden. So das ich jede Person aus meiner Liste nacheinander abarbeiten kann.
Kann mir hierfür vielleicht jemand eine Tipp bzw. Hilfestellung geben ich wäre Euch sehr dankbar!
Option Explicit
Private p_aktuelleZeile As Long
Public Property Let aktuelleZeile(ByVal neueAktuelleZeile As Long)
p_aktuelleZeile = neueAktuelleZeile
End Property
Private Sub ButtonAbbrechenBezahlen_Click()
Unload.Me
End Sub
Private Sub ButtonAbbrechenBezahlen_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ButtonAbbrechenBezahlen.BackColor = RGB(0, 112, 192)
End Sub
Private Sub ButtonBuchen1_Click()
With shMitglieder
.Cells(p_aktuelleZeile, 12).Value = TextBoxBezahlt.Value
End With
'UserForm schließen
Unload Me
End Sub
Private Sub ButtonBuchen1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ButtonBuchen1.BackColor = RGB(0, 112, 192)
End Sub
Private Sub UserForm_Activate()
'Daten laden
With shMitglieder
TextBoxVorname.Value = .Cells(p_aktuelleZeile, 2).Value
TextBoxRechnung.Value = .Cells(p_aktuelleZeile, 11).Value
TextBoxRechnung.Value = Format(TextBoxRechnung, "#,##0.00 ")
End With
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call HoverEffektEntfernen
End Sub
Private Sub HoverEffektEntfernen()
ButtonBuchen1.BackColor = RGB(0, 152, 212)
ButtonAbbrechenBezahlen.BackColor = RGB(0, 152, 212)
End Sub