Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle 5 sec. eine Zeile Runter

Alle 5 sec. eine Zeile Runter
04.08.2021 11:47:20
oraculix
Hallo
Ich möchte in Spalte B alle 5 sec. eine Zeile Runter scrollen!
Mein Makro macht es per klick auf den Butten.
Ich bräuchte einen Zeitzähler in dem Makro!
Der sinn des ganzen ist eine Slide Bildershow die mir automatisch Bilder zeigt per klick auf CommandButton5 und wenn ich genügend Bilder gesehen habe mit Esc Taste abbrechen oder auch andere Taste möglich oder auch Maus 

Private Sub CommandButton5_Click()
'Hier 5 Sec. warten
ActiveWindow.SmallScroll , 1
if Esc dann abbrechen
End Sub
Danke
Gruß
Oraculix

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle 5 sec. eine Zeile Runter
04.08.2021 12:16:24
Mister
Hi,
Application.Wait(Now + TimeValue("0:00:5"))
Gruß
Martin
AW: Alle 5 sec. eine Zeile Runter
04.08.2021 12:32:16
oraculix
DANKE
Funktioniert aber nur 1 mal!
Es sollte immer weiter eine Zeile runter glaube da sollte eine Schleife rein die die nächste Zeile Markiert und und weitere 5 Sec. Wartet.
Und dann Fehlt auch noch das Beenden entweder per Maus oder ESC Tastatur oder wie auch immer.

Private Sub CommandButton5_Click()
ActiveWindow.SmallScroll , 1
'Wichtig die nächste Zeile markieren Select weil wenn nicht Select dann wird das Bild Abgeschnitten
Application.Wait Now + TimeSerial(0, 0, 5) '5 Sekunden Pause
' hier sollte eine Schleife rein die das ganze Wiederholt bis ich abbreche
End Sub

Anzeige
AW: Alle 5 sec. eine Zeile Runter
04.08.2021 12:30:58
Nepumuk
Hallo,
im Modul der Tabelle mit dem CommandButton:

Option Explicit
Private Sub CommandButton5_Click()
Call Application.OnKey(Key:="{ESC}", Procedure:="TimerStop")
Call TimerStart
End Sub
In einem Standardmodul:

Option Explicit
Option Private Module
Private ldtmNextStart As Date
Public Sub TimerStart()
Call ActiveWindow.SmallScroll(Down:=1)
ldtmNextStart = Now + TimeSerial(0, 0, 5)
Call Application.OnTime(EarliestTime:=ldtmNextStart, Procedure:="TimerStart", Schedule:=True)
End Sub
Public Sub TimerStop()
With Application
Call .OnKey(Key:="{ESC}")
On Error Resume Next
Call .OnTime(EarliestTime:=ldtmNextStart, Procedure:="TimerStart", Schedule:=False)
End With
End Sub
Gruß
Nepumuk
Anzeige
AW: Alle 5 sec. eine Zeile Runter
04.08.2021 12:42:53
oraculix
jaaaa Super Funktioniert Danke!
Noch ne Kleinichkeit für Dich sicher kein Problem.
Wichtig wäre das die Aktive Zelle immer Markiert wird
Activ.Cell.Select habe ich schon versucht bringt aber nix.
Weil sonst sehe ich das Bild nur Abgeschnitten.
'Spring mit Linksklick immer nach oben und blendet alle Kommentare aus.
Habe ja seit gestern dieses Macro das bewirkt das er immer nach oben Springt wenn eine Zeile markiert wird damit ich das Ganze Bild sehe!
Danke
Gruß
Oraculix

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim objCell As Range
Application.DisplayCommentIndicator = xlNoIndicator
If TypeOf Selection Is Range Then
For Each objCell In Selection
With objCell
If Not .Comment Is Nothing And .Column = 2 Then .Comment.Visible = True
End With
Next
End If
If Target.Column = 2 Then ActiveWindow.ScrollRow = ActiveCell.Row
End Sub

Anzeige
AW: Alle 5 sec. eine Zeile Runter
04.08.2021 12:48:48
Nepumuk
Hallo,
so ok?

Public Sub TimerStart()
Call ActiveCell.Offset(1, 0).Select
Call ActiveWindow.SmallScroll(Down:=1)
ldtmNextStart = Now + TimeSerial(0, 0, 5)
Call Application.OnTime(EarliestTime:=ldtmNextStart, Procedure:="TimerStart", Schedule:=True)
End Sub
Gruß
Nepumuk
AW: Ja genau das war es Vielen Dank !!!
04.08.2021 13:03:12
oraculix
Ja genau das war es Vielen Dank !!!
Gruß
Oraculix
AW: Alle 5 sec. eine Zeile Runter
04.08.2021 12:51:24
Daniel
Hi
lege zum Unterbrechen einen Togglebutton an (am besten in der fixierten immer sichtbaren Zeile 1)
als Code dann:

Private Sub CommandButton5_Click()
dim T as double
Do
ActiveWindow.SmallScroll , 1
T = timer + 5
Do while Timer
gruß Daniel
Anzeige
AW: Alle 5 sec. eine Zeile Runter
04.08.2021 13:13:13
oraculix
Danke Genialer Ansatz. Hier gibt es wirklich Geniale Leute
Dumme Frage Wie erstelle ich den Toogle Button?
Ist das ein Commandbutton den man irgendwie einstellen kann Einstellungen oder so?
Danke
Gruß
Oraculix
AW: Alle 5 sec. eine Zeile Runter
04.08.2021 13:20:14
Daniel
genauso wie den Commandbutton.
heißt auf deutsch "Umschaltfläche"
AW: Danke es Funktioniert
04.08.2021 13:30:38
oraculix
Danke hab es Gefunden.
Jetzt geht alles
Gruß
Oraculix

300 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
in farblich markierte Zelle springen
Maja

Hallo,
ich möchte in einem Excelblatt innerhalb eines bestimmten Zellbereichs diejenigen Zellen farblich anders markieren, die den Wert 0 aufweisen, die Namen dieser Zellen in einer MsgBox ausweisen und bei Klicken auf "OK" der MsgBox zur ersten der ausgegebenen markierten Zeile springen.
13.11.2008 15:11:05
Thread-ID: 1024246
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge

Links zu Excel-Dialogen

CommandButton ToggleButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
4
5
3
2
2
5
1
4
4
4
2
2
2
4
5
2
2
4
2
4
2
3
7
2