title: VBA not showing any result on worksheet
body: <p>Why there are no results in the worksheet when I run my code. Is there something wrong with my code. Could someone please verify. This is my code:</p>
  
  <pre><code>Private Sub CommandButton1_Click()
  Dim Globalstrahlung, Koll_ein_o, Koll_aus_o, Aussentemp, MIDsolar As Double
  Dim a1, a2, b1, b2, c1, c2, d1, d2, e1, e2, f1, f2, g1, g2, x As Double
  Dim cpTyf, RohTyf As Double
  Dim Psolar, Puse_coll, Coll_eff As Double
  Dim iCntr As Long
  
  For iCntr = 3 To 8640
  
      Globalstrahlung = Range("B" &amp; iCntr)
      Koll_ein_o = Range("C" &amp; iCntr)
      Koll_aus_o = Range("D" &amp; iCntr)
      Aussentemp = Range("E" &amp; iCntr)
      MIDsolar = Range("F" &amp; iCntr)
  
      x = (Koll_ein_o + Koll_aus_o) / 2
  
      x = Range("AW" &amp; iCntr)
  
      'Function cp(t) Tyfocor 35%
      a1 = 3.5199
      b1 = 0.0042
      c1 = -0.00002
      d1 = 0.0000009
      e1 = -0.00000002
      f1 = 0.0000000001
      g1 = -0.0000000000005
  
      cpTyf = a1 + (b1 * x) + (c1 * (x ^ 2)) + (d1 * (x ^ 3)) + (e1 * (x ^ 4)) + (f1 * (x ^ 5)) + (g1 * (x ^ 6))
  
      cpTyf = Range("AX" &amp; iCntr)
  
      'Function Roh(t) Tyfocor 35%
      a2 = 1045
      b2 = -0.453
      c2 = 0.0051
      d2 = 0.00007
      e2 = -0.0000007
      f2 = 0.000000004
      g2 = -0.00000000001
  
      RohTyf = a2 + (b2 * x) + (c2 * (x ^ 2)) + (d2 * (x ^ 3)) + (e2 * (x ^ 4)) + (f2 * (x ^ 5)) + (g2 * (x ^ 6))
  
      RohTyf = Range("AY" &amp; iCntr)
  
      'Collector capacity
  
      Puse_coll = (MIDsolar / 3600) * cpTyf * RohTyf * (Koll_aus_o - Koll_ein_o)
  
      Puse_coll = Range("AZ" &amp; iCntr)
  
      'Solar capacity
      Psolar = Globalstrahlung * 18.12
  
      Psolar = Range("BA" &amp; iCntr)
  
      'Collector efficiency
      If Globalstrahlung = 0 Then
      Coll_eff = 0
  
      ElseIf Globalstrahlung &lt;&gt; 0 Then
      Coll_eff = (Puse_coll) / (Psolar)
  
      End If
  
  Coll_eff = Range("BB" &amp; iCntr)
  
  Range("BB" &amp; iCntr).HorizontalAlignment = xlCenter
  
  Range("BB" &amp; iCntr).NumberFormat = "0.00"
  
  
  Next
  
  End Sub
  </code></pre>