Hallo Tom,
ich hätte für dein Problem noch eine andere Lösung, die meiner Meinung nach etwas einfacher ist, als die von Martin (Code ist viel kürzer)!
Das Makro funktioniert bei mir fehlerfrei!
Gruß
Robert
Der Code muss in das Tabellen-Modul kopiert werden:
Private Sub Worksheet_Change(ByVal Target As Range)
' Zeile (Z) und Spalte (S) der geänderten Zelle ermitteln!
Z = Target.Row
S = Target.Column
' höchste Zeile (Z_max) und höchste Spalte (S_max) ermitteln, die ausgehend von der geänderten Zelle gefüllt ist!
Z_max = ActiveSheet.Cells(Rows.Count, S).End(xlUp).Row
S_max = ActiveSheet.Cells(Z, Columns.Count).End(xlToLeft).Column
' alle Werte rechts der geänderten Zelle löschen!
If S = S_max Then Exit Sub
For i = S + 1 To S_max
' wenn Zellinhalte und Formate gelöscht werden sollen!
' Cells(Z, i).Clear
' wenn nur Zellinhalte gelöscht werden sollen!
Cells(Z, i).ClearContents
Next
End Sub
|