Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
464to468
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
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nur bei ENTER Makro-Start !

Nur bei ENTER Makro-Start !
06.08.2004 12:40:32
Michael
Servus Aktive des Forums,
folgendes Anliegen :
ich möchte in die Zelle F2 einen Suchtext
eingeben und die Eingabe mit ENTER beenden,
gleichzeitig wird das Makro "Suchen()"
gestartet.
Der Makrostart soll nur durch die
Betätigung der ENTER-Taste erfolgen,
jedoch nicht durch die Betätigung der
Tab- und Cursor-Tasten, sowie das Versetzen
des Cursors in eine andere Zelle.
Folgender Code von Harry setzt oben
beschriebenes Anliegen leider nicht ganz um :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" Then
Call Suchen
End If
End Sub

Dieser Code funktioniert, jedoch wird das Makro "Suchen()"
auch ausgeführt, wenn die Tab-Taste betätigt wird und wenn
der Cursor aus der Zelle F2 in eine andere Zelle plaziert
wird.
Wer wei eine Lösung in sehr kompakter Ausführung ?
Vielen Dank für Euer Angagement im Vorraus.
Gruss Michael

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur bei ENTER Makro-Start !
Ulf
''Code ins Modul der Tabelle
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$2" Then bolChangeg = True
End Sub

''-----------------------------------------------------------

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$F$2" Then
Call verbiegen
Else
Call geraderuecken
End If
End Sub

''------------------------------------------------------------
''Code in ein Standardmodul
Option Explicit
Public bolChangeg As Boolean
Sub verbiegen()
Application.OnKey "~", "Meldung"
End Sub
''-----------------------------------------------------------
Sub geraderuecken()
Application.OnKey "~"
End Sub
''-----------------------------------------------------------
Sub Meldung()
If bolChangeg Then
MsgBox "F2 durch Enter geändert!"
End If
''Statt der Msgbox dein Code
End Sub
Ulf
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige