Thema Datum  Von Nutzer Rating
Antwort
Rot Makro anhalten bis Tastendruck erfolgt ist
17.10.2023 13:42:35 Bernd
NotSolved
17.10.2023 15:16:30 xlKing
Solved
18.10.2023 09:18:53 Bernd
NotSolved
18.10.2023 01:44:59 Gast7777
NotSolved
18.10.2023 08:55:15 Bernd
NotSolved
18.10.2023 15:08:43 Gast7777
NotSolved
18.10.2023 16:14:00 xlKing
NotSolved
19.10.2023 12:01:48 Bernd
NotSolved
19.10.2023 23:50:01 xlKing
Solved
20.10.2023 09:20:23 Bernd
NotSolved

Ansicht des Beitrags:
Von:
Bernd
Datum:
17.10.2023 13:42:35
Views:
256
Rating: Antwort:
  Ja
Thema:
Makro anhalten bis Tastendruck erfolgt ist

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
 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Makro anhalten bis Tastendruck erfolgt ist
17.10.2023 13:42:35 Bernd
NotSolved
17.10.2023 15:16:30 xlKing
Solved
18.10.2023 09:18:53 Bernd
NotSolved
18.10.2023 01:44:59 Gast7777
NotSolved
18.10.2023 08:55:15 Bernd
NotSolved
18.10.2023 15:08:43 Gast7777
NotSolved
18.10.2023 16:14:00 xlKing
NotSolved
19.10.2023 12:01:48 Bernd
NotSolved
19.10.2023 23:50:01 xlKing
Solved
20.10.2023 09:20:23 Bernd
NotSolved