AW: was sollen wir ...
24.06.2013 11:41:50
Jette
Okay...sorry
hier der quelltext für die userform
Private Sub Übernehmen_Click()
Set Frm = UserForm
Sheets("Gesamt NEU").Activate
Dim i, k As Integer
With Worksheets("Gesamt NEU")
i = .Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
Sheets("gesamt neu").Cells(i, 1) = i + 211
End With
With Frm
Sheets("gesamt neu").Cells(i, 2) = .Datum.Value
Sheets("gesamt neu").Cells(i, 3) = .NeuerEintrag.Value
End With
Unload Me
End Sub
Private Sub UserForm_Initialize()
Datum.Value = Date
Dim i As Integer
ListName.AddItem ("Schmidt")
ListName.AddItem ("Sonstiges")
ListArt.AddItem ("Geg. bis 400,- ")
ListArt.AddItem ("Vergabe von Auftr.")
ListArt.AddItem ("Geschäftsbedarf")
ListArt.AddItem ("HIWI")
ListArt.AddItem ("Personalkosten")
ListArt.AddItem ("Verbrauchsmaterial")
ListArt.AddItem ("Literatur")
ListArt.AddItem ("Dienstreise")
ListArt.AddItem ("Einnahmen")
End Sub