ich habe mir einen Code aufgezeichnet der nur mit Alt F8 arbeitet.
Kann mir jemand helfen das er automatisch arbeitet?
Danke für dir Hilfe
Sub VEundVLBerechnen()
Dim ez As Integer 'Eislastzone
Dim vl As Currency 'Leiterlast
Dim ve1 As Currency 'Eislast für Zone 1
Dim ve2 As Currency 'Eislast für Zone 2
Dim ve3 As Currency 'Eislast für Zone 3
Dim Vertikal As Currency 'Vertikal Last
ez = Worksheets("EG").Range("E36").Value
vl = Worksheets("EG").Range("R18").Value
ve1 = Worksheets("EG").Range("AA5").Value
ve2 = Worksheets("EG").Range("AA6").Value
ve3 = Worksheets("EG").Range("AA7").Value
If ez = "1" Then
Range("V15") = vl + ve1
ElseIf ez = "2" Then
Range("V15") = vl + ve2
ElseIf ez = "3" Then
Range("V15") = vl + ve3
End If
End Sub