Hallo M.O.,
vielen Dank für die schnelle AW.
Leider habe ich jetzt das Problem das die Tabelle nicht mehr durch das Makro reagiert :(
[code]Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("L5:D35")) Is Nothing Then
Cells(Target.Row, 1) = "0" 'Spalte A
Cells(Target.Row, 2) = "0" 'Spalte B
Cells(Target.Row, 3) = "0" 'Spalte C
Cells(Target.Row, 4) = "0" 'Spalte D
Cells(Target.Row, 5) = "0" 'Spalte E
Cells(Target.Row, 6) = "0" 'Spalte F
Cells(Target.Row, 7) = "0" 'Spalte G
End If
End Sub
Hast du ein verbesserungs vorschlag?
Wenn du nach den Zweck fragen solltes
A bis G sind Gegenstände die Ausgeliehn werden dürfen.
Sie sollen aber nach der Rückgabe auf null gesetzt werden (Rückgabe L).
Hast du eine Idee?