|
Hi,
Ich habe ein Makro erstellt, in dem ich in einer Tabelle eine Zelle markiere und nach einer überprüfung in eine andere Tabelle kopiere.
Der Code funktioniert auch ganz gut.
Jetzt möchte ich kurz vor ende zurückspringen auf eine Tastenabfrage.
Jetzt soll der Code anhalten und auf die Leertaste warten.
In dieser Zeit suche ich eine neue Zelle, die dann von mir markiert wird.
Ich möchte das Makro dabei nicht beenden, sondern nur auf "Standby" setzen bis ich die Zelle markiert und die Leertaste zur Bestätigung gedrückt habe.
Alternativ zur Leertaste kann ich auch das "e" drücken, was das Makro beendet.
Ich habe jetzt schon 2 Tage gegoogelt aber leider noch keine wirkliche Lösung gefunden.
Wobei ich Denke das die Lösung evtl. "warte auf Event" Tasteneingabe "Leertaste" oder "e" gar nicht so schwer ist, wen man VBAisch sprechen kann.
Danke vorab.
Ich habe den Code ungefähr so:
Einstiegscode '=wird nur beim ersten mal durchlaufen um die Fixe Zuordnungen festzulegen.
Tastenabfrage: '= hier soll der Code auf die Tasteneingabe warten
'Abfrage welche Taste gedrückt wurde "Leertaste" oder "e" = Exit
If KeyCode = vbKeySpace Then
GoTo Start
ElseIf KeyCode = vbKeyE Then
GoTo Ende
End If
Start:
'variable Zuordnungen
Quellzelle = ActiveCell
Quellzellenadresse = ActiveCell.Address
Quellzeile = ActiveCell.Row
.
.
Ausführender Code '= Wird bei jedem Leertastendruck durchlaufen.
.
.
GoTo Tastenabfrage
Ende:
Coder der kurz vor Ende durchgeführt wird (z.B. Speichern der Datei)
End Sub
|