Excel Zelleninhalt löschen wenn in anderer Zelle Text

[irreversibel]

Hallo,

ich bin auf euch gestoßen und hoffe ihr könnt mir helfen.
Ich arbeite grade für die Arbeit an einer Tabelle bezüglich Instandhaltungsarbeiten.
Für diese Excel Datei bräuchte ich ein Makro.

Sinn und Zweck soll ein wenn z.b. in Zelle L10 ein Datum eingetragen wird das der Inhalt in Zelle H10 gelöscht wird.
Das habe ich bisher mit dem Makro ganz gut hingebekommen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("L10").Value <> "" Then Range("H10").Value = ""
End Sub

Nun ist das Problem, dass das alles fortlaufend weiter gehen soll. Sprich für L11 und H11 genau das selbe. Möglichst bis 1500 ...

Ich komme bei der Sache aber leider nicht weiter da ich davon nur wenig Ahnung habe.
Versucht hatte ich das alles per Hand z.B. so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("L10").Value <> "" Then Range("H10").Value = ""
   If Range("L11").Value <> "" Then Range("H11").Value = ""
End Sub

oder

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("L10").Value <> "" Then Range("H10").Value = ""
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
   If Range("L11").Value <> "" Then Range("H11").Value = ""
End Sub

Beides offensichtlich Falsch da er mir Fehler anzeigt bei ersteres das Script total durchdreht :D
Ich hoffe ihr versteht was ich von euch möchte.
Ich danke 1000mal im voraus und wünsche noch ein angenehmes Wochenende.

Liebe grüße

Sven

[Crazy Tom]

nur zur Info

http://www.vba-forum.de/Forum/View.aspx?...Zelle_Text

MfG Tom

[irreversibel]

Ja danke dir schon gelesen ;)
Hat sich somit auch erledigt.
Danke dir nochmal vielmals!