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
<em><strong>Cells(zl, sp).Value = anzahlLT</strong></em>
End If
End If
End If
End Sub