Hi Ihr,
hoffe, Ihr wisst wieder mal mehr als ich... ;-)
Folgende Zielsetzung:
Wird ein Eintrag (Text) in einer Zelle in Spalte A gelöscht, sollen automatisch alle Zellinhalte der gleichen Zeile (bis Spalte 58, ohne Spalte 6) gelöscht werden.
Beispiel: Löschen des Eintrags in A5 = autom. Löschen der Inhalte in B5:E5 u. G5:BF5
Mit folgendem Makro funktionierts einwandfrei - allerdings werden hier die Inhalte ab Spalte B auch dann gelöscht, wenn Einträge in Spalte A nur geändert, nicht aber gelöscht werden... :-(
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Count = 1 Then
Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).ClearContents
Range(Cells(Target.Row, 7), Cells(Target.Row, 58)).ClearContents
End If
End If
End Sub
Weiss jemand von Euch, wie ich das Makro ändern muss, damit nur das komplette Löschen des Inhalts einer Zelle in A zum Löschen der restlichen Zellinhalte der Zeile führt?
Liegt das an der Change-Funktion?
Bin Euch für jede Hilfe dankbar!
VG,
Mic