Zelle mit VBA löschen

[Ubi5]

Hallo, vielleicht kann mir jemand weiterhelfen - Danke!

Tieferstehender Code löscht die Zellen "B bis M".
Ich möchte die Zelle "P" auch löschen - bekomme es aber nicht hin.

' Bereich B bis M in Tabelle1 löschen
                Me.Range(Me.Cells(cell.Row, "B"), Me.Cells(cell.Row, "M")).ClearContents

Lg Ubi5

[slowboarder]

Hi
wenn "cell" ebenfalls im selben Tabellenblatt liegt

PHP-Code:

Intersect(Me.Range("B:M,P:P"), Cell.EntireRow).ClearContents


wenn cell auch auf einem anderen Blatt liegen könnte:

PHP-Code:

Intersect(Me.Range("B:M,P:P"), Me.Rows(Cell.Row)).ClearContents


oder ein ganz anderer Weg:

PHP-Code:

Me.Range(Replace("B#:M#,P#", "#", cell.Row)).ClearContents


Gruß Daniel

[Ubi5]

Hallo Daniel - funktioniert einwandfrei der 1. PHP Code.

Recht herzlichen Dank!

Lg Ubi5