Optionsfeld bestimmt eintragung des Datensatzes in die Tabelle
Moin zusammen,
ich möchte über 2 Optionsbutton (Einnahme und Ausgabe) bestimmen in welche Spalte der Betrag geschrieben werden soll.
Das ganze wird bisher über eine Userform realisiert. Muss die Abfrage beim cmd_Eintrag (also dem Button zum eintragen in das Tabellenblatt erfolgen) oder vorher.
Zur Zeit habe ich das erst mit textboxen gemacht:
Private Sub cmd_Eintragen_Click()
Worksheets("Eingabe").Activate
Dim lastrow As Integer, i As Integer
' Letzte Zeile suchen
lastrow = [a65536].End(xlUp).Row + 1
'Zähler für die Buchungsnummer
autozaehler = ([a65536].End(xlUp).Row + 1) - 9
' Daten aus der Buchen_Anlegen übertragen
Cells(lastrow, 1) = autozaehler
Cells(lastrow, 2) = Me.txt_Datum.Value
Cells(lastrow, 3) = Me.txt_Beschreibung.Value
Cells(lastrow, 4) = Me.txt_Erfolg.Value
Cells(lastrow, 5) = Me.txt_Betrag.Value
Cells(lastrow, 6) = Me.txt_Kategorie.Value
' Datenfelder löschen
With Me
.txt_Datum.Value = ""
.txt_Beschreibung.Value = ""
.txt_Erfolg.Value = ""
.txt_Betrag.Value = ""
.txt_Kategorie.Value = ""
End With
Sheets("Startseite").Select
End Sub
Je nachdem ob Ausgabe oder Eingabe gewählt wurde muss/soll Spalte D oder E angesprochen werden. Wie kann man das realisieren?
ich möchte über 2 Optionsbutton (Einnahme und Ausgabe) bestimmen in welche Spalte der Betrag geschrieben werden soll.
Das ganze wird bisher über eine Userform realisiert. Muss die Abfrage beim cmd_Eintrag (also dem Button zum eintragen in das Tabellenblatt erfolgen) oder vorher.
Zur Zeit habe ich das erst mit textboxen gemacht:
Private Sub cmd_Eintragen_Click()
Worksheets("Eingabe").Activate
Dim lastrow As Integer, i As Integer
' Letzte Zeile suchen
lastrow = [a65536].End(xlUp).Row + 1
'Zähler für die Buchungsnummer
autozaehler = ([a65536].End(xlUp).Row + 1) - 9
' Daten aus der Buchen_Anlegen übertragen
Cells(lastrow, 1) = autozaehler
Cells(lastrow, 2) = Me.txt_Datum.Value
Cells(lastrow, 3) = Me.txt_Beschreibung.Value
Cells(lastrow, 4) = Me.txt_Erfolg.Value
Cells(lastrow, 5) = Me.txt_Betrag.Value
Cells(lastrow, 6) = Me.txt_Kategorie.Value
' Datenfelder löschen
With Me
.txt_Datum.Value = ""
.txt_Beschreibung.Value = ""
.txt_Erfolg.Value = ""
.txt_Betrag.Value = ""
.txt_Kategorie.Value = ""
End With
Sheets("Startseite").Select
End Sub
Je nachdem ob Ausgabe oder Eingabe gewählt wurde muss/soll Spalte D oder E angesprochen werden. Wie kann man das realisieren?
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 76082
Url: https://administrator.de/forum/optionsfeld-bestimmt-eintragung-des-datensatzes-in-die-tabelle-76082.html
Ausgedruckt am: 05.04.2025 um 17:04 Uhr
1 Kommentar