Wert in Excel nach 1,3 Sekunden erhöhen
Schritt-für-Schritt-Anleitung
Um den Wert einer Zelle in Excel alle 1,3 Sekunden um 1 zu erhöhen, kannst Du den folgenden VBA-Code nutzen. Dieser Code verwendet die Application.OnTime-Methode und einige API-Aufrufe, um präzise Zeitintervalle zu ermöglichen.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen > Modul, um ein neues Modul zu erstellen.
- Füge den folgenden Code in das Modul ein:
Option Explicit
Public Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Public lnghWnd As Long
Private bolZeit As Boolean, strNumberformat As String
Private lngStarttime As Long
Private wksTime As Worksheet, rngZiel As Range
Private lngCount As Long
Private Const dblZeitDiff As Double = 1.3 ' Zeitdifferenz in Sekunden
Sub Zaehler_Start()
If lngStarttime > 0 Then
MsgBox "Zähler läuft schon! Bitte ggf. erst Zähler stoppen.", vbInformation + vbOKOnly, "Zähler erhöhen alle " & dblZeitDiff & " Sekunden"
Else
Set wksTime = ActiveSheet ' Arbeitsblatt in dem hochgezählt werden soll
Set rngZiel = wksTime.Range("D5") ' Zelle mit Zähler
lngCount = 0 ' Dieser Wert wird alle 1,3 Sekunden hochgezählt
lngStarttime = timeGetTime
lnghWnd = FindWindow("xlMain", vbNullString)
SetTimer lnghWnd, 0, 1300, AddressOf proc_Display ' 1300 Millisekunden
End If
End Sub
Sub Zaehler_Stopp()
If lngStarttime = 0 Then
MsgBox "Bitte Zähler erst starten.", vbInformation + vbOKOnly, "Zähler erhöhen alle " & dblZeitDiff & " Sekunden"
Else
KillTimer lnghWnd, 0
lngStarttime = 0
End If
End Sub
Private Sub proc_Display(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Dim dblLaufZeit As Double
dblLaufZeit = (timeGetTime - lngStarttime) / 1000 ' Laufzeit in Sekunden
If dblLaufZeit > lngCount * dblZeitDiff Then
rngZiel.Value = rngZiel.Value + 1
lngCount = lngCount + 1
End If
End Sub
- Schließe den VBA-Editor und kehre zu Excel zurück.
- Drücke
ALT + F8, wähle Zaehler_Start und klicke auf Ausführen, um den Zähler zu starten.
- Um den Zähler zu stoppen, führe
Zaehler_Stopp aus.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode ist die Verwendung von Application.OnTime, um die Zeitsteuerung zu realisieren. Dies funktioniert jedoch nicht so präzise wie die API-Methoden. Hier ist ein einfaches Beispiel:
Sub Zaehler_Alle_1_3_Sekunden()
Dim rngZiel As Range
Set rngZiel = ActiveSheet.Range("D5")
rngZiel.Value = rngZiel.Value + 1
Application.OnTime Now + TimeValue("00:00:01.3"), "Zaehler_Alle_1_3_Sekunden"
End Sub
Diese Methode hat jedoch einige Einschränkungen hinsichtlich der Genauigkeit.
Praktische Beispiele
Angenommen, Du möchtest den Zähler in Zelle D5 in einem Arbeitsblatt namens "Zähler" erhöhen:
- Stelle sicher, dass Du die oben genannten Codes in ein Modul eingefügt hast.
- Ändere die Zelle, die erhöht werden soll, indem Du die Referenz in
Set rngZiel = wksTime.Range("D5") anpasst.
- Starte den Zähler und beobachte, wie sich der Wert alle 1,3 Sekunden erhöht.
Tipps für Profis
- Debugging: Nutze die
Debug.Print-Anweisung, um den Fortschritt des Zählers in der Immediate-Fenster von VBA zu verfolgen.
- Erweiterungen: Du könntest den Code erweitern, um den Zähler zu stoppen, wenn ein bestimmter Wert erreicht ist.
- Optimierung: Überlege, ob Du den Timer in eine Klasse umwandeln möchtest, um mehrere Zähler gleichzeitig zu verwalten.
FAQ: Häufige Fragen
1. Wie kann ich den Zähler anhalten?
Du kannst den Zähler anhalten, indem Du die Zaehler_Stopp-Subroutine ausführst.
2. Ist dieser Code mit älteren Excel-Versionen kompatibel?
Der vorgestellte Code wurde unter Excel 2010 getestet, sollte jedoch auch in neueren Versionen funktionieren. Achte darauf, dass die API-Funktionen unterstützt werden.
3. Kann ich den Zähler in einer anderen Zelle einfügen?
Ja, ändere einfach die Range-Referenz in Set rngZiel = wksTime.Range("D5") auf die gewünschte Zelle.