ClearContents in bestehendes Makro einbauen?
31.08.2008 23:43:00
Josef_T
Versuche nun seit Stunden, in das Makro ClearContents einzubauen, bekomme das aber einfach nicht hin.
Es sollen nur die Werte, nicht aber die Formeln gelöscht werden.
Kann mir bitte jemand mit einem Tipp oder Lösung helfen?
Sub Zahlung()
Dim Zeile As Long
Dim MA As String
Dim Dat As Long
With Sheets("Ausgaben")
MA = .Cells(3, 3).Value
Dat = .Cells(10, 6)
Zeile = Dat - DateSerial(Year(Dat), 1, 1) + 3
Sheets(MA).Cells(Zeile, 16) = .Cells(10, 8)
Range("F10:H10").SpecialCells(xlCellTypeConstants, 23).ClearContents
End With
End Sub
Danke schon mal
Gruß
Josef