Löschen von Zelleninhalt
09.01.2006 12:17:59
Zelleninhalt
ich brauche mal wieder eure hilfe für einen makro.
und zwar läuft folgender makro im hintergrund
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zellen As Range
Set Zellen = Range("d3:f10")
If Not Intersect(Target, Zellen) Is Nothing Then
Tabelle2.Calculate
Tabelle1.Calculate
Range("E14").GoalSeek Goal:=Range("E15").Value, ChangingCell:=Range("E8")
Range("H14").GoalSeek Goal:=Range("H15").Value, ChangingCell:=Range("H8")
Range("K14").GoalSeek Goal:=Range("K15").Value, ChangingCell:=Range("K8")
Range("N14").GoalSeek Goal:=Range("N15").Value, ChangingCell:=Range("N8")
Range("Q14").GoalSeek Goal:=Range("Q15").Value, ChangingCell:=Range("Q8")
End If
End Sub
Dieser Makro wird aktiviert sobald ich in einer zelle eine neue Auswahl tätige.
Jetzt möchte ich aber, dass vor der Zielwertsuche die Zelleninhalte von K8, N8, Q8 gelöscht werden.
Geht das?
Vielen Dank für eure hilfe
petra
Anzeige