[1] Überschriften (Elemente) im Tabellenblatt eintragen

[2] UserForm gestalten

[2.1] Alle Elemente als Label einfügen

[2.2] Passende Steuerelemente auswählen


[2.3] Alle Steuerlemente benennen

[TIPP] Tabelle anlegen

[3] Code schreiben

[3.1] UserForm Initialize

Private Sub UserForm_Initialize()

 

'Titel:

TextBox_Titel = "Buchtitel eingeben"

'Autor:

TextBox_Autor = "Autor eingeben"

'Kategorie:

With ListBox_Kategorie

    .AddItem "Krimi"

    .AddItem "Thriller"

    .AddItem "Liebesroman"

    .AddItem "Historischer Roman"

    .AddItem "Sachbuch"

    .AddItem "Fantasy"

    .AddItem "..."

End With

'Jahr:

    Dim i As Integer

    With ComboBox_Jahr

        For i = 1900 To 2017

            .AddItem CStr(i)

        Next

    End With

'Auflage:

SpinButton_Auflage.Min = 1

SpinButton_Auflage.Value = 1

TextBox_Auflage.Text = SpinButton_Auflage.Value

'Sprache:

CheckBox_Deutsch.Value = False

CheckBox_Englisch.Value = False

'Format:

OptionButton1.Value = True

 


[3.2] Button_Eingabe Click

Private Sub Button_Eingabe_Click()

 

'Erste freie Zeile ausfindig machen

Dim last As Integer

last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

'Titel:

Cells(last, 1).Value = TextBox_Titel

'Autor:

Cells(last, 2).Value = TextBox_Autor

'Kategorie:

Cells(last, 3).Value = ListBox_Kategorie.Value

'Jahr:

Cells(last, 4).Value = ComboBox_Jahr

'Auflage:

Cells(last, 5).Value = TextBox_Auflage.Value

'Sprache:

If CheckBox_Deutsch.Value = True Then Cells(last, 6).Value = CheckBox_Deutsch.Caption

If CheckBox_Englisch.Value = True Then Cells(last, 6).Value = Cells(last, 6).Value & " ," & CheckBox_Englisch.Caption

'Format:

If OptionButton1.Value = True Then Cells(last, 7).Value = "Buch"

If OptionButton2.Value = True Then Cells(last, 7).Value = "EBook"

If OptionButton3.Value = True Then Cells(last, 7).Value = "Hörbuch"

 

End Sub

 

[3.2] Weitere Codes

Private Sub SpinButton_Auflage_Change()

TextBox_Auflage.Text = SpinButton_Auflage.Value

End Sub

 

Private Sub Button_Abbrechen_Click()

Unload Me

End Sub

 



Auf einen Blick - Alle Folgen der VideoReihe!

Du hast ein Thema das noch nicht behandelt wurde? Lass es mich wissen :)


Jetzt abonnieren & kein Video

mehr verpassen!

Meine Arbeit unterstützen

Meine Empfehlungen

(Bücher und mehr)