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

_________________________________________________

 

 




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)