Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Worksheets("Jahreserfassung").Activate
Range("g400").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Me.TextBox5.Value
Range("k400").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Me.TextBox6.Value
Range("c400").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Format(Date, "DD.MM.YYYY")
Range("e400").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Format(Date, "DD.MM.YYYY")
Worksheets("Jahreserfassung").Activate
Range("i400").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Me.TextBox7.Value
Range("d400").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Format(Date, "DD.MM.YYYY")
With Cells(Rows.Count, 7).End(xlUp)
.Offset(0, 6) = .Value - .Offset(-1, 0).Value
End With
With Cells(Rows.Count, 9).End(xlUp)
.Offset(0, 8) = .Value - .Offset(-1, 0).Value
End With
With Cells(Rows.Count, 11).End(xlUp)
.Offset(0, 7) = .Value - .Offset(-1, 0).Value
End With
With Cells(Rows.Count, 13).End(xlUp)
.Offset(0, 6) = .Value - .Offset(-1, 0).Value
.Offset(0, 2) = .Value * Worksheets("Daten").Range("Q8")
End With
With Cells(Rows.Count, 17).End(xlUp)
.Offset(0, 3) = .Value - .Offset(-1, 0).Value
End With
With Cells(Rows.Count, 18).End(xlUp)
.Offset(0, 3) = .Value - .Offset(-1, 0).Value
End With
Dim ObCb As Control
For Each ObCb In UserForm1.Controls
If TypeName(ObCb) = "TextBox" Then ObCb.Value = ""
Next ObCb
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Set wksQ = Tageserfassung2020
Set wksZ = Tageserfassung2021
With wksQ
wksZ.Range(wksZ.Cells(371, 4), wksZ.Cells(371, 16)).Value = .Range(.Cells(5, 4), .Cells(5, 16)) _
. _
Value
End With
CommandButton4.Enabled = False
Application.ScreenUpdating = True
End Sub
Hallo zusammen,ich brauch mal eure Hilfe,denn ich komme hier nicht weiter
Prozedur blei Set wksQ-Tageserfassung2020 mit der Meldung -Variable nicht definiert - stehen
Sheets sind vorhanden
danke und einen schönen Männertag
Günter