VBA – Programmierung mit Excel Grundlagen

Einfache UserForm 1
13.3 Einfache UserForm 1
Sub Anfang()
Eingabe1.Show
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Wert1.SetFocus
End Sub
Private Sub Steuer_Click()
Worksheets("Tabelle2").Range("A3").Value = Eingabe1.Wert1.Value
End Sub
Private Sub Ende_Click()
End
End Sub
13.4 Einfache UserForm 2
• WORKBOOK_OPEN - PROZEDUR
Private Sub Workbook_Open()
Worksheets(1).Activate
Range("A2").Activate
frmArtikel.Show
End Sub
• WORKSHEET_ ACTIVATE - Prozedur
Private Sub Worksheet_Activate()
Range("A2").Activate
frmArtikel.Show
End Sub
• Prozeduren der Form
Private Sub cmdEintrag_Click()
If cmbArtikel.Text = "" Or cmbPreis = "" Then
MsgBox "Artikel und Preis eintragen !"
Else
Cells(ActiveCell.Row, 1).Value = cmbArtikel.Text
With Cells(ActiveCell.Row, 2)
.Value = cmbPreis.Value
.Style = "Currency"
End With
Cells(ActiveCell.Row + 1, 1).Activate
End If
End Sub
Private Sub cmdEnde_Click()
End
End Sub
Private Sub UserForm_Initialize()
With cmbArtikel
.AddItem "Heft"
.AddItem "Hefter"
.AddItem "Bleistift"
.AddItem "Filzschreiber"
.AddItem "Ordner"
.AddItem "Tinte"
End With
With cmbPreis
.AddItem "1.25"
.AddItem "2.95"
Seite 119