Löschvorgang
02.09.2004 16:49:57
Frank
untere Code von P@ulchen funktioniert bis auf eine Einschränkung,
wenn Ich in Zelle F14 einen Wert eingebe und den Löschvorgang starte
setzt er mir in alle Zellen von F14:O14 eine Null ist auch OK.
Aber wenn Ich einen Wert in die Zelle F15 eingebe und starte den Vorgang
dann übernimmt er mir diesen Wert in die Zellen F16:014
und dieses Problem habe Ich auch in den Zellen F17 bis F44
Sub Neue_Diverse_Einzelberechnung()
' Neue_Berechnung Makro
Makro am 01.09.2004 aufgezeichnet
If MsgBox("Möchten Sie den Löschvorgang durchführen ?", vbYesNo, "Achtung") = vbNo Then
MsgBox "Löschvorgang wurde abgebrochen !"
Exit Sub
Else
Range("F14").Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "0"
Range("F14:F44").Select
Selection.AutoFill Destination:=Range("F14:O44"), Type:=xlFillDefault
Range("F14:O44").Select
Range("F14").Select
MsgBox "Löschvorgang wurde durchgeführt !"
End If
End Sub
Gruß
Frank