Mausclick auf Zelle generieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub runterlaufen() Dim i As Long, _ VglZeit As Date 'A1 auswählen Range("A1").Select Do 'Eine Zelle runterwandern ActiveCell.Offset(1, 0).Select ' 'Zusätzlich möglich: dabei das ganze Fenster runterscrollen! ' ActiveWindow.ScrollRow = ActiveCell.Row 'eine Sekunde abwarten VglZeit = Now() Do Loop Until Second(Now()) Second(VglZeit) ' 'alternativ: Schleife durchlaufen, Geschwindigkeit ' 'genauer einstellbar, aber vom PC abhängig ' For i = 1 To 50000000 ' Next i Loop Until ActiveCell.Row = 10 End Sub

Hallo Susanne, meinen Code noch mal leicht angepasst - s.u. Dort siehst Du die 50000000, die kannst Du verkleinern oder vergrößern, um die Zeit anzupassen.
Besser wäre allerdings, Dein Makro in mein Makro zu integrieren. Bis jetzt müsste es bei Dir ein Ereignismakro namens "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" geben, das müsste man umbauen. Wenn Du Deine Mappe hochladen kannst oder zumindest den Code dieses Makros posten kannst, können wir weitersehen. Dann dürfte es auch keine Probleme mit der Zeit geben, denn es wird artig alles nacheinander abgearbeitet.
Gruß, Wolli


Sub runterlaufen()
Dim i As Long, _
VglZeit As Date
'A1 auswählen
Range("A1").Select
Do
ActiveCell.Offset(1, 0).Select
For i = 1 To 50000000
Next i
Loop Until ActiveCell.Row = 10
End Sub

Private Sub SelectionChange(ByVal Target As Range) 'Call AddDebugRow("E", "SelectionChange") ' transmit pressed If Target.Column = CC_Symbol And EditMode = False Then Dim O As Long Dim Ret As Long Ret = PlaceO(Target.Row) If Ret > 0 Then ResetSel (Target.Row) End If End If 'Call AddDebugRow("X", "SelectionChange") End Sub

Kool. Dann probier doch mal folgendes:
1.) Den Code, den Du gefunden hast, komplett löschen
2.) Den folgenden Code in Modul1 speichern


Sub runterlaufen()
Dim O As Long, _
Ret As Long
Range("A1").Select
Do
If EditMode = False then
Ret = PlaceO(ActiveCell.Row)
If Ret > 0 Then
ResetSel (ActiveCell.Row)
End If
End If
ActiveCell.Offset(1, 0).Select
Loop Until ActiveCell.Row > 10
End Sub

Bitte führe das Makro zunächst im VBA-Editor schrittweise aus, indem Du wiederholt F8 drückst, nicht, dass was kaputt geht. Die Startzelle kannst Du oben eingeben (ist jetzt "A1"), die Zielzeile unten (ist jetzt 10).
Wenn's gut läuft, kannst Du das Makro auch selbständig durchlaufen lassen.
Ich habe keine Ahnung, was Dein Makro macht, aber es macht jetzt immer noch das gleiche wie vorher :-)
Gutes Gelingen, Gruß, Wolli

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mausclick auf Zelle generieren

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread