Super schnelle Antwort, Danke!

hat ohne Probleme Funktioniert!

Da ich dich einmal nun an der Leitung habe;

Option Explicit

Sub Korrektur()

Dim zl As String
Dim sp As String
Dim zusaetzlicheLTK As Integer
Dim anzahlLTK As Integer
Dim umgebuchtLT As Integer
Dim Schicht As Long
Dim Netzwerk As Object
Dim anzahlLT As Integer




zusaetzlicheLTK = InputBox("Möchten Sie den Füllstand der Gasse korrigieren?" & vbCr & "Ja:       1" & vbCr & "Nein:   2")

                    If StrPtr(zusaetzlicheLTK) = 0 Then
                    Exit Sub
                    Else
                        Select Case zusaetzlicheLTK
                                            
                            Case 1:
                            
                            
                            
                            
                            GoTo anzahlLT:
                            Case 2:
                            GoTo Ende1:
        
                        End Select
                    End If


anzahlLT:


    If Cells(2, 10).Value = "umbuchen" Then
                
                sp = 7
                zl = ActiveCell.Row
           
                
           
                    
                    If Cells(2, 10).Value = "einbuchen" Then
                     
                        umgebuchtLT = InputBox("Anzahl der Teile", "Anzahl der neu errechneten Teile")
                        
                        If StrPtr(umgebuchtLT) = 0 Then
                        Exit Sub
                        Else
                        
                        anzahlLT = umgebuchtLT
                        Cells(zl, sp).Value = anzahlLT
                
                 
                        End If
                    

                        
                    End If
    End If

                    
End Sub

bei

Cells(zl, sp).Value = anzahlLT

wirft er mir einen Fehler raus! Anwedungs oder Objektfehler, warum?

Beste Grüße