folgendes Problem möchte ich so einfach und schnell wie möglich lösen.
Ich habe ein Tabelle in der gewisse Zellen nicht geschützt sind.
Ich würde diese gerne finden und dann deren Inhalt löschen.
Danke für Eure Hilfe.
Gruß
Michael
Sub Clear_Cells(intClearMonth As Integer)
'Loescht alle Werte der gewaehlten Spalte
'Variablendeklaration
Dim intClearStart As Integer
On Error Resume Next
'Durchsuchen des Tabellebblattes
For intClearStart = Planning.pos_zeile_daten_erste To Planning.pos_zeile_letzte
Planning.Cells(intClearStart, Get_Payment_Column(intClearMonth)).ClearContents
Next intClearStart
End Sub