Problem mit Set frm
müller
jetzt bin ich auch angemeldet und hab da mein erstes Problem
ich habe ein userform mit der Schaltfläche Erfassen, dies hat so auch funktioniert, seit gestern jedoch bekomme ich bei klick auf erfassen eine Fehlermeldung und set frm= ist blau hinterlegt
hier der code
Private Sub Erfassen_Click() 'erfassen std
Dim i As Date
Dim e As Date
'Dim f As Date
i = zeit_von
e = zeit_bis
' f = e - i
' f = (Format(f, "h:mm")) 'zuweisung des Formates
' zeit_berech = f
Set frm = UserForm1
Sheets("haupt_std").Activate
Range("a11").Select 'auswahl erste zelle unter kopf
Selection.EntireRow.Insert 'zeile einfügen
Rem Range("a65536").End(xlUp).Offset(1, 0).Select 'hier wird die letzte leere zeile gesucht
With frm
ActiveCell.Value = .datum.Value
ActiveCell.Offset(0, 1).Value = .projekt.Value
ActiveCell.Offset(0, 2).Value = .zeit_von.Value
ActiveCell.Offset(0, 3).Value = .zeit_bis.Value
ActiveCell.Offset(0, 4).Value = .tätigkeit.Value
ActiveCell.Offset(0, 5).Value = .an.Value
ActiveCell.Offset(0, 6).Value = f
End With
End Sub
Hat jemand eine idee wo ichden Schraubendreher ansetze ?
besten Dank
Anzeige