Mit VBA einen Zellenwert von -pi() bis pi() 10mal

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Declare Sub Sleep Lib "kernel32" ( _ ByVal dwMilliSeconds As Long) Private lblnExitDo As Boolean Public Sub prcValToPi() Const MAX_COUNT As Long = 10& Dim lngIndex As Long Dim dblValToPi As Double If lblnExitDo Then _ lblnExitDo = Not lblnExitDo With Cells(1, 1) .ColumnWidth = 24 .NumberFormat = "0.000000000000000" End With For lngIndex = 1 To MAX_COUNT Cells(1, 2).Value = "Counter: " & lngIndex With WorksheetFunction dblValToPi = -.Pi Do Cells(1, 1).Value = dblValToPi DoEvents Sleep 100& dblValToPi = dblValToPi + .Pi / 40# Loop While Cells(1, 1).Value < .Pi And Not lblnExitDo End With If lblnExitDo Then Exit For Next End Sub Public Sub prcStopCalc() If Not lblnExitDo Then lblnExitDo = Not lblnExitDo End Sub VBA/HTML - CodeConverter für Office-Foren AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann Projektbetreuung durch mumpel Code erstellt und getestet in Office 14

Hallo Michael,
ok, da fehlen die Dateien, aber wenn Du die Office-64bit-Version meinst, dann sollte es so gehen:

Option Explicit

#If VBA7 Then
   Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" ( _
      ByVal dwMilliseconds As Long)
#Else
   Private Declare Sub Sleep Lib "kernel32.dll" ( _
      ByVal dwMilliseconds As Long)
#End If
  
Private lblnExitDo As Boolean

Public Sub prcValToPi()
  Const MAX_COUNT As Long = 10&
  Dim lngIndex As Long
  Dim dblValToPi As Double
  If lblnExitDo Then _
    lblnExitDo = Not lblnExitDo
  With Cells(1, 1)
      .ColumnWidth = 24
      .NumberFormat = "0.000000000000000"
  End With
  For lngIndex = 1 To MAX_COUNT
      Cells(1, 2).Value = "Counter: " & lngIndex
     With WorksheetFunction
         dblValToPi = -.Pi
         Do
           Cells(1, 1).Value = dblValToPi
           DoEvents
           Sleep 100&
           dblValToPi = dblValToPi + .Pi / 40#
         Loop While Cells(1, 1).Value < .Pi And Not lblnExitDo
     End With
     If lblnExitDo Then Exit For
  Next
End Sub

Public Sub prcStopCalc()
If Not lblnExitDo Then lblnExitDo = Not lblnExitDo
End Sub



VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 14

Andernfalls müsstest Du doch die Dateien mit Fehlercode posten.
Gruß, Mullit

Beliebteste Forumthreads (12 Monate)

Mit VBA einen Zellenwert von -pi() bis pi() 10mal

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mit VBA einen Zellenwert von -pi() bis pi() 10mal

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

334 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread