Hallo Andreas,
vielen Dank für Deine Bemühungen.
Ich hbae jetzt so viel mit Deinem Code herumexperimentiert. Leider blicke ich jetzt überhaupt nicht mehr durch.
Teilweise bekomme ich Fehlermeldungen, mit Anweisungsende wird erwartet, oder Fehler beim kompilieren: Then oder GoTo wird erwartet.
Ich hbae leider keine Ahnung davon. Sorry!
Ich habe es folgt umgebaut:
Sub debugging()
Dim rohwert_Worksheets("Auftragsübersicht") As String
Dim IntWert_Tabelle4 As Integer
rohwert_Worksheets("Auftragsübersicht").Cells("O88") = Worksheets("Tabelle4").Cells(5, 5).Value
if rohwert_Worksheets("Auftragsübersicht").Cells("O88") "Fehlt" then
IntWert_Tabelle4 = cint(rohwert_tabelle4) end if
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Cells(Target.Row, 6) = Cells(Target.Row, 5)
If Target.Column = 5 Then
On Error GoTo Err_Exit
Application.EnableEvents = False
Cells(Target.Row, 7).Value = Cells(Target.Row, 7).Value + Target
End If
Err_Exit:
Application.EnableEvents = True
End Sub
Auch habe ich die Zellen in Text formatiert, wie Du gesagt hast.
Gruß
Andreas
|