Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2000to2004
2000to2004
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Mit VBA wieder Tastatur aktivieren

Forumthread: Mit VBA wieder Tastatur aktivieren

Mit VBA wieder Tastatur aktivieren
18.12.2024 21:47:44
Erwin
Hallo und guten Abend,

in einer Tabelle muss ich immer wieder Zellen tauschen und habe dafür ein kleines Makro aufgezeichnet: 
Sub Zelle_mit_rechts_tauschen()

' Tastenkombination STRG + y zugewiesen

    Selection.Cut

    ActiveCell.Offset(0, 2).Range("A1").Select

    Selection.Insert Shift:=xlToRight

    ActiveCell.Offset(1, -2).Range("A1").Select

End Sub

Allerdings kann es sein, dass ich nicht nur 1 Zeile nach unten muss, sondern mehrere Zeilen; deshalb möchte ich sofort danach die Tastatur mit den Pfeil nach unten bedienen.
Das geht derzeit nicht, ich muss immer zuerst mit der Maus in die Exceltabelle klicken, damit ich die Pfeiltaste benutzen kann.
ActiveCell.Select bzw. ActiveCell.Activate habe ich schon porbiert, funktioniert aber nicht.
Gibt es eine Möglichkeit - und wenn ja, welche - das umzusetzen?

Danke schon mal im Voraus - Erwin
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit VBA wieder Tastatur aktivieren
18.12.2024 21:54:16
Onur
Ignoriere mal dein jetziges Makro - was genau (Schritt für Schritt) soll das Makro machen?
AW: Mit VBA wieder Tastatur aktivieren
18.12.2024 22:22:20
Uduuh
Hallo,
versuchs mal ohne die Selecterei: 
Sub tauschen()

  Dim tmp

  tmp = ActiveCell

  ActiveCell = ActiveCell.Offset(, 1)

  ActiveCell.Offset(, 1) = tmp

End Sub

Gruß aus'm Pott
Udo
Anzeige
AW: Mit VBA wieder Tastatur aktivieren
19.12.2024 13:06:37
snb
Einfach so: 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    sn = ActiveCell.Resize(, 2)

    ActiveCell.Resize(, 2) = Array(sn(1, 2), sn(1, 1))

    Cancel = True

End Sub

AW: Mit VBA wieder Tastatur aktivieren
18.12.2024 22:34:39
Erwin
Hallo ihr Beiden,

erstmal danke für die Hilfe, der Code von Udo funktioniert natürlich (auch).

Aber auch hier kann ich nach Codeende nicht sofort die Pfeiltaste bedienen; sorry.

Ich habe mal eine kurze Beispieldatei erstellt und hochgeladen: https://www.herber.de/bbs/user/174420.xlsm

Grüße - Erwin
Anzeige
AW: Mit VBA wieder Tastatur aktivieren
18.12.2024 22:37:46
Onur
Ich vermute, es liegt an STRG-Y, das ist von Excel reserviert und bedeutet : Wiederhole den letzten Befehl.
Nimm ein anderes Kürzel.
AW: Mit VBA wieder Tastatur aktivieren
18.12.2024 22:40:30
Erwin
Hallo Onur,

ich habe es auch schon ohne Kürzel gemacht und mit F8... gestartet.
Code läuft, Tastatur nicht.

Erwin
AW: Mit VBA wieder Tastatur aktivieren
18.12.2024 22:48:54
Onur
Nur 
Tastenkombination STRG + y zugewiesen

schreiben bringt nix, du musst sie schon wirklich zuweisen (unter Optionen):
Userbild
Hier die neue Datei, wo auch Udo's Makro, das besser ist als Deins, läuft.
https://www.herber.de/bbs/user/174422.xlsm

Anzeige
AW: Mit VBA wieder Tastatur aktivieren
18.12.2024 22:49:42
Onur
Aktivieren mir STR-Q bzw STR-W.
AW: Mit VBA wieder Tastatur aktivieren - gelöst
18.12.2024 23:00:22
Erwin
Hey,
ich checks nicht, jetzt läuft es :)
Vielleicht habe ich das mit Strg + y falsch gemacht.
Danke für deine Geduld.
Erwin
Gerne !
18.12.2024 23:01:11
Onur
Anzeige
AW: Mit VBA wieder Tastatur aktivieren
18.12.2024 21:55:15
Onur
Und wie kommst du auf die Idee, dass die Tastatur deaktiviert wäre ?
AW: Mit VBA wieder Tastatur aktivieren
18.12.2024 22:09:30
Erwin
Hallo Onur,
aus SAP bekomme ich eine Liste mit Namen, Vornamen, Straße, Hausnr...
Allerdings steht da gerne mal im Vornamen der Nachname oder umgekeht (das liegt an der schlampigen Eingabe).
Ich möchte mit dem Makro die nebeneinander liegenden Zellen tauschen, sodass der Familienname richtigerweise im Familiennamen und dadurch auch der Vorname im Vornamen steht und den Cursor dann eine Zeile nach unten springt, damit ich einen möglichn nächsten Datensetz auch tauschen kann (Strg. + Y habe ich vorgesehen).
Oft muss ich mehrere Zeilen nach unten, und wenn ich nach dem Makro sofort auf die Pfeiltaste der Tastatur drück, passiert nichts :(
Habe ich grade nochmals probiert, ich muss zuerst mit der Maus in die Excelanwendung / Blatt klicken.
Vielleicht muss ich das sheet aktivieren?
Grüße - Erwin
Anzeige
AW: Mit VBA wieder Tastatur aktivieren
18.12.2024 22:15:32
Onur
Sind da noch andere Makros in der Datei?
Denn das, was du beschreibst, kann nicht vom geposteten Makro kommen.
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum