Makro läuft nicht, falsches Ereignis?
Bodo
habe folgendes Problem:
unten aufgeführtes makro soll dazu dienen eine Volumenberchnung durchzuführen und zu summieren.
Dabei soll in die Zellen B10 und D10 jeweils Länge und Durchmesser eingetragen werden und der Cursor soll automatisch nach Enter zwischen beiden Zellen hin und herspringen. Das Makro hat wunderbar funktioniert bis ?
jetzt funktioniert es nicht mehr und ich find nicht heraus, woran das liegt.
Der Code liegt hinter dem TabBlatt "FmRechner", ist vermutlich auch viel zu umständlich, entspricht aber meinen eingeschränkten VBA-Kenntnissen.
Wer kann mir helfen.
Gruß Bodo
Private Sub CommandButton1_Click()
Loeschen
End Sub
Private Sub Worksheet_Calculate()
With Sheets("fmRechner")
If .Range("B10").Value = "" Then
Exit Sub
End If
.Range("D10").Activate
If .Range("D10").Value = "" Then
Exit Sub
End If
.Range("E1").Value = 1
i = (.Range("D10").Value) * (.Range("D10").Value)
a = i / 10000
e = a * 314 / 400
.Range("G10").Value = .Range("B10").Value * e
.Range("D15").Value = .Range("D15").Value + .Range("G10").Value
.Range("B10").Select
Sheets("fmRechner").Range("B10:D10").ClearContents
Sheets("fmRechner").Range("B15").Value = Sheets("fmRechner").Range("B15").Value + 1
.Range("G15").Value = Range("D15").Value / Range("B15").Value
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("fmRechner")
If .Range("B10").Value "" Then
.Range("D10").Activate
End If
End With
End Sub
Anzeige