Sub
DEL_DOWN()
Range(
"B14"
).
Select
ActiveCell.FormulaR1C1 =
"-"
Range(
"B15"
).
Select
ActiveCell.FormulaR1C1 =
"-"
Range(
"B16"
).
Select
ActiveCell.FormulaR1C1 =
"-"
Range(
"B17"
).
Select
ActiveCell.FormulaR1C1 =
"-"
Range(
"B23"
).
Select
ActiveCell.FormulaR1C1 =
"-"
Range(
"B24"
).
Select
ActiveCell.FormulaR1C1 =
"-"
Range(
"B25"
).
Select
ActiveCell.FormulaR1C1 =
"-"
Range(
"B32:E36"
).
Select
Selection.ClearContents
Range(
"A32"
).
Select
ActiveCell.FormulaR1C1 =
"MSISDN:"
Range(
"A33"
).
Select
ActiveCell.FormulaR1C1 =
"MSISDN:"
Range(
"A34"
).
Select
Range(
"D37"
).
Select
ActiveCell.FormulaR1C1 =
"=SUM(R[-5]C:R[-1]C)"
Range(
"D38"
).
Select
Selection.ClearContents
End
Sub
zu:
Sub
DEL_DOWN_2()
Cells(15, 2) =
"-"
Cells(16, 2) =
"-"
Cells(17, 2) =
"-"
Cells(18, 2) =
"-"
Cells(22, 2) =
"-"
Cells(23, 2) =
"-"
Cells(24, 2) =
"-"
Cells(32, 1) =
"MSISDN:"
Cells(33, 1) =
"MSISDN:"
Worksheets(
"Beratungsprotokoll"
).Range(
"B32:E36"
).ClearContents
Worksheets(
"Beratungsprotokoll"
).Range(
"D38"
).ClearContents
Cells(36, 4).Formular =
"=SUM(R[-5]C:R[-1]C)"
End
Sub
aber bekomme die fehlermeldung:
Die ClearContens-Methode des Range-Objektes konnte nich ausgeführt werden.