Timer
18.06.2020 15:21:37
KathrinBo
mit der Hilfe von Nepumuk habe ich vor ein paar Tagen bereits einen Timer erstellt.
Ich möchte aus Tabellenblatt 1 ab Spalte C, 10 Zeilen ab Zeile 18 (Länge ist 16 Spalten) in Hilfstabelle kopieren. Das ganze soll aufhören, wenn in Spalte C keine Daten mehr sind.
Jetzt habe ich ein Problem: Meine Daten werden nicht aus Tabellenblatt 1 kopiert sondern aus einem völlig anderen, weiß jemand, was ich falsch mache? Die Reihenfolge der Daten scheint mir auch völlig wirr.
Dim blnStopp As Boolean
Sub BerechnungStarten()
blnStopp = False
Call Berechnung
End Sub
Sub Berechnung()
If Not blnStopp Then
Application.StatusBar = Format(Now, "DD.MM.YYYY HH:MM:SS")
Application.OnTime Now + TimeValue("00:10:00"), "Berechnung"
If slngRow = 0 Then slngRow = 18
With ThisWorkbook.Worksheets("Tabellenblatt 1")
.Cells(slngRow, 3).Resize(10, 16).SpecialCells(xlCellTypeFormulas).Copy Destination:= _
Worksheets("Hilfstabelle").Cells(1, 1)
slngRow = slngRow + 10
If slngRow > .Cells(.Rows.Count, 3).End(xlUp).Row Then slngRow = 0
End With
Call Aktualisieren
Else
Application.StatusBar = False
End If
End Sub
Sub BerechnungStopp()
blnStopp = True
End Sub
Kathrin