VBA - Userform Aufruf/Ändern Speichern
20.01.2021 20:34:17
Tobias
ich bin ei absoluter Excel Anfänger und versuche mich gerade an der Userform.
Zur Erklärung:
Aktuell wird meine Userform mit Starten von Excel geladen. Das möchte ich eig. nicht. Wie kann ich dies lösen?
Diese Userform habe ich so angelegt das sie ein Tabellenblatt mit den eingegeben Daten füttert und abspeichert. Zudem habe ich erreicht, das diese Userform eine 2. Userform öffnet in dem ich nun die Daten bearbeiten möchte.
In einer ComboBox kann ich nun die Nachnamen auswählen und möchte nun erreichen, dass diese Daten automatisch in die Textboxen ausliest und die OptionButtons ausfüllt. Hier komme ich nicht weiter.
Habe hier im Forum ein von 2011 archivierten Beitrag gefunden, leider hab ich keinen Zugriff auf diesen Code um weiterzuarbeiten.
Userform 2
Option Explicit
Private Sub ComboBox1_Change()
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub Userform_Initialize()
' Gibtin einem Vorgegebenen Bereich die Daten wieder. In dem Fall sind es alle Namen, die in _
_
die Datenbank eingetragen wurden.
Bearbeiten.ComboBox1.RowSource = "Datenbank!A2:A70"
End Sub
Aufbau meiner Datenbank
Nachname Vorname Geburtsdatum Geschlecht TZ / GT Gruppe
Nachname habe ich nun mit einer Combobox aufrufen lassen.
Vorname soll wenn möglich in einem Textfeld eingelesen werden
Geburtsdatum ebeson
Geschlecht 2 OptionButtons
TZ / GT sind 2 OptionButton, hier müsste er erkennen welcher Eintrag es ist und den Punkt in den ensprechenden Opionbutton setzen
Ebenso bei Gruppe. Hier gibt es 3 weitere Option Buttons.
Userform 1
Option Explicit
Private Sub Button_Abbrechen_Click()
Unload Me
End Sub
Private Sub Button_Bearbeiten_Click()
Bearbeiten.Show
End Sub
Private Sub Button_Eingabe_Click()
'versuche Tabellenblatt auszuwählen
Sheets("Datenbank").Activate
'erste freie Zeile ausfindig machen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Nachname
Cells(last, 1).Value = TextBox_Nachname
'Vorname
Cells(last, 2).Value = TextBox_Vorname
'Geburtsdatum
Cells(last, 3).Value = TextBox_Geburtsdatum
'Geschlecht
If OptionButton_männlich.Value = True Then Cells(last, 4).Value = "männlich"
If OptionButton_weiblich.Value = True Then Cells(last, 4).Value = "weiblich"
'Betreuungsform
If OptionButton_Teilzeit.Value = True Then Cells(last, 5).Value = "TZ"
If OptionButton_Ganztag.Value = True Then Cells(last, 5).Value = "GT"
'Gruppe
If OptionButton_Mäusezimmer.Value = True Then Cells(last, 6).Value = "Mäusezimmer"
If OptionButton_Sternenzimmer.Value = True Then Cells(last, 6).Value = "Sternenzimmer"
If OptionButton_Blumenzimmer.Value = True Then Cells(last, 6).Value = "Blumenzimmer"
Unload Me
End Sub
Private Sub Eingabe_Initialize()
'Nachname
TextBox_Nachname = ""
'Vorname
TextBox_Vorname = ""
'Geburtsdatum
TextBox_Geburtsdatum = ""
'Geschlecht
OptionButton_weiblich.Value = True
OptionButton_männlich.Value = True
'Betreuungsform
OptionButton_Teilzeit.Value = True
'Gruppe
OptionButton_Mäusezimmer.Value = True
End Sub
Private Sub UserForm_Click()
End Sub
Vielleicht kann mir hier jemand helfen. Vielen Dank im Voraus