Application-definde or object-definde error
06.11.2015 15:46:17
Michael
folgender Code funktioniert nicht mehr richtig:
Sub Data()
Application.ScreenUpdating = False
Sheets("Berechnung nach Gruppen").Select
Cells(3, 2).Select
For y = 1 To 6
x = ActiveCell.Value
Sheets("Einstellungen").Select
Cells(3, 15).Select
Group = ActiveCell.Value
MA = 0
SUeStd = 0
SVac = 0
SAbsent = 0
While Not IsEmpty(Group)
While Group x
ActiveCell.Offset(1, 0).Select
Group = ActiveCell.Value
If IsEmpty(Group) Then
GoTo Lastline
End If
Wend
ActiveCell.Offset(0, -5).Select
Name = ActiveCell.Value
Sheets("Abrechnungday").Select
Cells(21, 3).Select
While Name ActiveCell.Value
ActiveCell.Offset(1, 0).Select es wurden einige Anpassungen in den Spalten vorgenommen, dementsprechend aber im Offset angepasst. Trotzdem erhalte ich diesen Fehler und kann mir nicht erklären wieso (siehe Pfeil)
Gruß
Michael
Anzeige