VBA 32 zu 64 bit
22.12.2022 15:36:28
Herbert
kann mir da jemand von euch helfen ?
vielen Dank
Option Explicit
Declare
Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As LongPtr)
Public Sperre As Boolean
Sub Laufschrift_starten()
Dim Bereich As Range
Dim Wiederholungen As Integer
'Variable "Sperre" den boolschen Wert False zuweisen
Sperre = False
'Makro kann auch mit der Tastenkombination "Strg Untbr" gestoppt werden
Application.EnableCancelKey = xlErrorHandler
'Der Variablen "Bereich" den Bereich D12 zuweisen
Set Bereich = Range("O2")
'Bei Auftreten eines Fehlers zur Sprungmarke "errorhandler" springen
On Error GoTo errorhandler
'For/Next-Schleife zur Wiederholung der Anordnung des Textes in Zelle D12
For Wiederholungen = 100 To 5000
'Mit Variable "Sperre" wird das Makro gestoppt, wenn diese den boolschen Wert "True" hat
If Sperre = False Then
Bereich.Value = Right(Bereich.Value, Len(Bereich.Value) - 1) + _
Left(Bereich.Value, 1)
'Steuerung an das Betriebssystem zurückgeben
DoEvents
'Wartezeit von 100 Millisekunden
Sleep 1
Else
Exit Sub
End If
Next Wiederholungen
errorhandler:
End Sub
Sub Laufschrift_stoppen()
'Variable "Sperre" den boolschen Wert True zuweisen um das Makro _
"Laufschrift_starten" zu stoppen
Sperre = True
End Sub