Application-definde or object-definde error

Bild

Betrifft: Application-definde or object-definde error
von: Michael
Geschrieben am: 06.11.2015 15:46:17

Hallo Forum,
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    <---------------
            If ActiveCell.Value = "PT" Then
                ActiveCell.Offset(0, 1).Select
            End If
        Wend
        ActiveCell.Offset(0, 7).Select
        UeStd = ActiveCell.Value
        If UeStd < 0 Then
            UeStd = 0
        End If
        ActiveCell.Offset(0, 11).Select
        Vac = ActiveCell.Value
        ActiveCell.Offset(0, 1).Select
        Absent = ActiveCell.Value
    
        MA = MA + 1
        SUeStd = SUeStd + UeStd
        SVac = SVac + Vac
        SAbsent = SAbsent + Absent
    
        Sheets("Einstellungen").Select
        ActiveCell.Offset(1, 5).Select
        Group = ActiveCell.Value
    Wend
Lastline:         Sheets("Berechnung nach Gruppen").Select
    ThisWorkbook.Sheets("Berechnung nach Gruppen").Unprotect ("xyz")
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = MA
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = SUeStd
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = SAbsent
    ActiveCell.Offset(0, 1).Select
    ActiveCell.Value = SVac
    ActiveCell.Offset(1, -4).Select
    
Next y
ThisWorkbook.Sheets("Berechnung nach Gruppen").Unprotect ("xyz")
    
End Sub

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

Bild

Betrifft: AW: Application-definde or object-definde error
von: Tino
Geschrieben am: 07.11.2015 09:07:53
Hallo,
kann dir nicht sagen warum dein Code einen Fehler erzeugt.
Kann ihn so nicht testen.
Aber vielleicht ist dies hier ein Grund dafür?!
http://www.online-excel.de/excel/singsel_vba.php?f=61
Gruß Tino

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA-Code zum Generieren von ics.-Dateien"