Excel VBA USERFORM - Befehle aus Folge 1: Die erste Userform erstellen

Sub Button_Cancel_Click()

 

'Fenster schließen

Unload meinFormular

 

End Sub

 _________________________________________________

Sub Button_Take_Click()

 

Dim last As Integer

 

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

 

ActiveSheet.Cells(last,1).Value = CDate(meinFormular.Text_Datum.Value)

ActiveSheet.Cells(last,2).Value = meinFormular.Text_Begriff.Value

ActiveSheet.Cells(last,3).Value = CCur(meinFormular.Text_Zahl.Value)

 

End Sub

_________________________________________________

 

 

Sub UserForm_Initialize()

 

'Werte, die Zubeginn im Eingabefeld stehen

meinFormular.Text_Datum.Value = Date

meinFormular.Text_Begriff.Value = "Gebe einen Begriff ein"

 

End Sub

_________________________________________________

 

 




Alle Folgen auf einen Blick

Befehlsschaltfläche und Textfeld


Kombinationsfeld / ComboBox (DropDown Menu erstellen)


Kontrollkästchen / CheckBox


Optionsfeld / OptionBox


Drehfeld / SpinButton


Listenfeld / ListBox


Umschaltfläche / ToggleButton


Multiseiten / MultiPage


Register / TabStrip


Eine einfache Datenbank in 20min erstellen


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)