excel

Hallo,
habe eine komplexe Kalkulationstabelle mit sehr vielen numerischen Eingabefeldern.
Und auch sehr vielen Dropdownauswahlisten direkt im Sheet.
Die Dropdowns werden werden über Selection_Change aufgerufen und der Inhalt dann jeweils
über Macros berechnet und befüllt
Wenn ich nun mit den Pfeiltasten mich im sheet hoch, runter, links und rechts bewege, bleibe ich an den Dropdowns - Zellen "hängen" bis diese geladen sind, das dauert immer ca. 0,1 bis 0,9 sec je nach dem.
Das Navigieren im sheet über die Pfeiltasten ist deshalb zäh wie Honig.
Das Problem habe ich in den simplen Code übersetzt mit einem Lösungsansatz der aber nicht funktioniert.
'------------------------
' im Worksheet
' damit wird das Navigieren mit den Pfeiltasten sehr zäh
' -----------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i For i = 1 To 3000 If ArrowKeyPress Then Exit For ' sollte den "Ladevorgang" abbrechen [a1] = i Next End Sub

'------ in Modul
'------ funktioniert aber nicht

Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
Private Const VK_LEFT = &H25 ' Linke Pfeiltaste
Private Const VK_UP = &H26 ' Obere Pfeiltaste
Private Const VK_RIGHT = &H27 ' Rechte Pfeiltaste
Private Const VK_DOWN = &H28 ' Untere Pfeiltaste

Public Function ArrowKeyPress() As Boolean ' funktioniert so nicht ' If GetAsyncKeyState(VK_UP) 0 Then ArrowKeyPress = True End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static rngAlt As Range If rngAlt Is Nothing Then Set rngAlt = ActiveCell If Abs(Target.Row - rngAlt.Row) + Abs(Target.Column - rngAlt.Column) 1 Then '--- hier der Code zum Befüllen End If Set rngAlt = Target(1) End Sub

Hi
ich habe jetzt mal prinzipiell sowas hingezimmert, das das gewünschte Verhalten zeigt.
man kann nämlich mit DoEvents ein laufendes Makro kurz unterbrechen, um zu schauen was zwischenzeitlich in Excel so passiert ist und anfallende Events sofort auszuführen und nicht erst, wenn das Makro durchgelaufen ist.
Damit kann man dann auch ein laufendes Makro anhalten.
im Modul des Tabellenblatts dieser Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Anhalten = True
Application.OnTime Now, "MarkroStarten"
End Sub

in einem allgemeinen Modul dann diese beiden, das zweite ist die Schleife zum erstellen der Listbox.

Option Explicit
Public Anhalten As Boolean
Sub MarkroStarten()
Anhalten = False
Application.OnTime Now, "ListboxFüllen"
End Sub
Sub ListboxFüllen()
Dim t As Double
t = Timer + 1
Do While Timer

das zweite Makro ist dann dein Arbeitsmakro.
hier kannst du dann anstelle der Timer-Schleife mit Do_Loop (hab ich eingebaut, um eine definierte Wartezeit zu bekommen) deine Arbeitsschleife einstellen.
Wichtig ist, dass das DoEvents und das IF...Exit Sub innerhalb dieser Schleife vorkommt.
beim schnellen durchklicken erscheint keine Messagebox, erst wenn du länger als die Wartezeit auf der Zelle bleibst wird sie angezeigt, also so wie gewünscht.
Gruß Daniel

Dim AnhaltenA As String Dim AnhaltenB As String Private Sub Worksheet_SelectionChange(ByVal Target As Range) AnhaltenB = AnhaltenA ListboxFüllen AnhaltenA = Target.Row & Target.Column End Sub Sub ListboxFüllen() Dim i For i = 1 To 9999 'Schleife zum befüllen DoEvents If AnhaltenA AnhaltenB Then Exit Sub Cells(ActiveCell.Row, ActiveCell.Column) = i Next i End Sub

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

excel

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread