Daten aus dem Userform ins Tabellenblatt übertrage
18.07.2013 12:55:27
Sonja
ich hatte etwas ausprobiert, um Daten aus dem Userform in Tabellenblatt zu übertragen. Ich bekommme immer die Fehlermeldung Laufzeit 9
Kann mir jemand helfen?
Danke
Private Sub cmdOK_Click()
Dim dteDatum As Date
With Sheets(Format(dteDatum, "MMM"))
With .Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0) = dteDatum
.Offset(1, 1) = txtText
.Offset(1, 2) = txtOrt
End With
.Range("A1").Sort _
key1:=.Range("A2"), order1:=xlAscending, _
key2:=.Range("d2"), order1:=xlAscending, _
Header:=xlYes
End With
End Sub