AW: Makro mit calculate starten
19.06.2008 06:32:00
Tino
Hallo,
habe Deine Frage auch so verstanden, dass Du eine Handeingabe in A1 gemeint hast.
Hier mal 4 Beispiele mit Calculate- Event, kannst Dir ein passendes raussuchen.
In den Beispielen gehe ich davon aus, dass in A1 die Formel und in B1 der geschriebene werde ist.
'wieder ins Tabellenblatt als Code
'Es erfolgt eine Prüfung ob sich in A1 eine Formel
'befindet
'1. Möglichkeit
'Formel wird 1 zu 1 übertragen in B1
'Formel in A1 bleibt erhalten
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Range("A1").FormulaLocal > "" Then
Range("B1").FormulaLocal = Range("A1").FormulaLocal
End If
Application.EnableEvents = True
End Sub
'2. Möglichkeit
'Formel wird 1 zu 1 übertragen in B1
'und Formel in A1 gelöscht
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Range("A1").FormulaLocal > "" Then
Range("B1").FormulaLocal = Range("A1").FormulaLocal
Range("A1").ClearContents
End If
Application.EnableEvents = True
End Sub
'3. Möglichkeit
'Ergebnis aus Formel wird in B1 geschrieben
'Formel in A1 bleibt erhalten
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Range("A1").FormulaLocal > "" Then
Range("B1").Value = Range("A1").Value
End If
Application.EnableEvents = True
End Sub
'4. Möglichkeit
'Ergebnis aus Formel wird in B1 geschrieben
'und Formel in A1 gelöscht
Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If Range("A1").FormulaLocal > "" Then
Range("B1").Value = Range("A1").Value
Range("A1").ClearContents
End If
Application.EnableEvents = True
End Sub
Gruß Tino
www.VBA-Excel.de