Live-Forum - Die aktuellen Beiträge
Datum
Titel
01.05.2024 13:28:40
Mit Inputbox eine Spaltenvariable vergeben
01.05.2024 11:28:01
Lotto 6 aus 45 - jede Zahl genau 2 Mal getippt
01.05.2024 11:19:43
Benutzerdefiniertes Zahlenformat
01.05.2024 11:00:09
Arbeitsblatt schützen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makrostart nach Zellauswahl mit Tab

Makrostart nach Zellauswahl mit Tab
26.02.2023 07:53:25
Steve
Hallo Excel Freunde.
Folgendes Problemchen.
Wenn ich mit der Tab-Taste in die Spalte F wechsele und ein Kürzel eingebe, welches zum testen egal ist , dann startet das Makro nicht. Wenn ich die Zelle in Spalte F aber anklicke oder mit den Pfeiltasten die Zelle anwähle, dann geht es.
Hier die Tabelle
https://www.herber.de/bbs/user/158015.xlsm
Vielen Dank im Voraus
Steve

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makrostart nach Zellauswahl mit Tab
26.02.2023 08:17:44
Matthias
Hallo,
Zitat:
Wenn ich mit der Tab-Taste in die Spalte F wechsele und ein Kürzel eingebe, welches zum testen egal ist , dann startet das Makro nicht
Wenn man mit der Tab-Taste in die Spalte F wechselt, dann startet das Makro doch sofort (Worksheet_SelectionChange) bevor man etwas in die Zelle eingibt.
Das funktioniert doch, egal ob Tab- oder Pfeiltasten.
MfG Matthias
AW: Makrostart nach Zellauswahl mit Tab
26.02.2023 08:34:31
Steve
Hmm..bei mir geht das nicht. Wenn ich nach "tabben" das Kürzel eingebe und entered dann springt excel in die nächste Zeile und Spalte A
AW: Makrostart nach Zellauswahl mit Tab
26.02.2023 08:36:23
hary
Moin
Wie Matthias schrieb, startet der Code.
...und ein Kürzel eingebe
Da nimmst du evtl. das falsche Ereignis.
Versuch mal. startet bei Zellaenderung.
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim VE As Variant
    Dim Spalte As Integer
    Dim Zeile As Integer
   Application.EnableEvents = False '--Event aus
    With Target
        If .Row  2 And .Column > 6 Then
        Else
            If .Value > "" And .Offset(-1, -4).Value = "" Then
                .Offset(-1, -4).Value = "super"
            End If
        End If
    End With
    Application.EnableEvents = True '--Event ein
End Sub
gruss hary
Anzeige
AW: Makrostart nach Zellauswahl mit Tab
26.02.2023 08:49:11
Steve
Naja es soll ja beides funktionieren.
Und bei deinem Code führt er nix aus.
AW: Makrostart nach Zellauswahl mit Tab
26.02.2023 09:43:19
hary
Moin
Die Tabelle sieht z.B. so aus.



Tabelle1
 ABCDEF
1Zeit    Kürzel
208:00superbliblubbtadatrara
3      

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

Jetzt beschreib mal mit Worten Was du machst und was passieren soll(te).
Z.B. Ich markiere ZelleA2 und gehe mit TAB nach Rechts usw.
also einzelne Schritte.
gruss hary
Anzeige
AW: Makrostart nach Zellauswahl mit Tab
26.02.2023 10:30:56
Steve
Also wenn ich von Zelle a3 jetzt 900 eingebe und dann mit tab nach f3 gehe
Dort dann ZB super als Kürzel eingebe und dann entere schreibt er kein super in b3
Wenn ich von a3 mit Pfeiltasten nach f3 gehe und super eingebe und entere schreit er super in b3
AW: Makrostart nach Zellauswahl mit Tab
26.02.2023 11:22:52
hary
Moin
Probier mal:
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim VE As Variant
    Dim Spalte As Integer
    Dim Zeile As Integer
    With Target
        If .Row  2 Or .Column > 6 Then
        Else
            If .Value > "" And .Offset(, -4).Value = "" Then
                .Offset(, -4).Value = "super"
            End If
        End If
    End With
End Sub
gruss hary
Anzeige
AW: Makrostart nach Zellauswahl mit Tab
26.02.2023 12:12:16
Steve
Danke, das geht so

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige