Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Schaltflächen auswählen verhindern

Forumthread: VBA-Schaltflächen auswählen verhindern

VBA-Schaltflächen auswählen verhindern
07.09.2016 10:56:50
Lukas
Hallo,
ich habe eine Userform gestaltet. Da die Datei sehr umfassend ist, habe ich eine kleine Datei erstellt, die nur dieses eine Problem darstellt. Sie können diese hier downloaden:
https://www.herber.de/bbs/user/108062.xlsm
Das Problem:
Wenn Sie im Textfeld Enter drücken, wird Code ausgeführt. Obwohl ich im Code dann mit SetFocus das Textfeld aktiviere wird der Knopf ausgewählt. Wie kann ich das verhindern?
Ich möchte also, dass man direkt nachdem man Enter gedrückt hat weiterschreiben kann. Die Knöpfe müssen allerdings bleiben.
Danke für eure Hilfe schon im Voraus!
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Schaltflächen auswählen verhindern
07.09.2016 12:23:01
MatthiasG
Hallo Lukas,
setze die "Default"-Eigenschaft des "Weiter"-Buttons auf True, dann kannst Du Dir die ganze Keypressed-Abfrage sparen:
Im UF-Modul reicht dann: 

Private Sub CommandButton1_Click()
If Tabelle1.Cells(1, 1).Value = "" Then
Tabelle1.Cells(1, 1).Value = TextBox1.Text
Else
Tabelle1.Cells(Tabelle1.UsedRange.Rows.Count + 1, 1).Value = TextBox1.Text
End If
TextBox1.Text = ""
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub
Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub
Gruß Matthias
Anzeige
AW: VBA-Schaltflächen auswählen verhindern
07.09.2016 16:20:39
Lukas
Danke für deine Antwort! In diesem Fall hilft es mir allerdings nicht weiter. In meiner großen Datei wird nämlich durch einen Enter-Druck in manchen Fällen eine weitere Userform aufgerufen. Auf dieser steht nur eine Information und es gibt einen Knopf. Wenn man diesen mit Enter bestätigt, wird sie geschlossen und man ist wieder bei der alten. Durch dieses Enter wird allerdings bei meiner 1. Userform der 2. Button ausgelöst. Gibt es eine Möglichkeit einfach zu verhindern, dass der Fokus überhaupt auf einen Button gesetzt werden kann?
Anzeige
AW: VBA-Schaltflächen auswählen verhindern
07.09.2016 20:16:31
Mullit
Hallo,
versuchs so, in Dein Form-Modul: 
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
   If Tabelle1.Cells(1, 1).Value = "" Then
      Tabelle1.Cells(1, 1).Value = TextBox1.Text
      TextBox1.Text = ""
   Else
      Tabelle1.Cells(Tabelle1.UsedRange.Rows.Count + 1, 1).Value = TextBox1.Text
      TextBox1.Text = ""
      Call Application.OnTime(EarliestTime:=Now, Procedure:="prcTimer")
   End If
End If
End Sub

In Dein Standardmodul: 
Option Explicit

Public Sub Start()
Call UserForm1.Show
End Sub

Public Sub prcTimer()
Call UserForm1.TextBox1.SetFocus
End Sub

Gruß, Mullit
Anzeige
;

Forumthreads zu verwandten Themen

Gesperrte Schaltfläche
Christian

Hallo,
bin absoluter VBA- Anfänger und habe folgende Frage:
Ich möchte gerne eine Schaltfläche zur Ausführung eines Makros erstellen, die beim Öffnen der Datei verfügbar ist. Dies soll jedoch nicht über eine Schaltfläche aus der Sysmbolleiste erfolgen, da diese Schaltfläche in einem ung...
21.06.2009 10:21:58
Thread-ID: 1083195
5 Beiträge
Schaltflächen: Format-Bug
Peter

Hallo Leute,
in mein Programm habe ich diverse Befehlsschaltflächen eingebaut. Leider kommt es hin und wieder vor, dass das Textformat der Schaltfläche (Caption) durch die Schaltflächenbetätigung stetig größer bzw. kleiner wird. Hin und wieder vergrößert bzw. verkleinert sich auch die gesam...
25.06.2009 14:10:20
Thread-ID: 1084338
3 Beiträge
Schaltfläche und Vergrößerungsfaktor
Wolfgang

Hallo liebe Experten,
ich habe zwei Fragen:
1. Früher konnte ich die excel-Schaltflächen selbst zeichnen, heute gelingt mir das nicht mehr. Geht das mit Office 2003 noch?
2. Kann ich den default-Wert der Vergrößerung (in der Symbolleiste: Standard) der auf 100% festliegt ändern? Ich...
26.06.2009 20:26:11
Thread-ID: 1084657
5 Beiträge
Ausrichtung Befehlsschaltfläche
berni

Liebe Excel-lenzen!
Ich hatte einmal den Short-Cut intus, aber leider in der zwischenzeit wieder vergessen.
Also: Wenn ich untereinander verschiedene Schaltflächen aus der Formularsammlung untereinander aufgelistet habe, gab es doch irgendwie eine Möglichkeit, per Shortcut die unteren a...
30.06.2009 19:09:55
Thread-ID: 1085343
3 Beiträge
Anzeige
Gif auf Schaltfläche
ReSt

Guten Morgen
Da hätte ich mal eine Frage. Kann man auf eine Activ X-Schaltfläche eine gif-Animation legen?
Bis jetzt hat sich bei mir noch nichts bewegt.
Gruss Reto
05.07.2009 10:33:28
Thread-ID: 1086448
5 Beiträge
Schaltflächenmakro
Michael

Servus,
ich bin noch blutiger Excel/VBA Anfänger und will mir ein paar kleine Ecxel Makros bauen. Ich habe eine Tabelle mit zwei Schaltflächen. Schalftfläche "Ordner" soll prüfen ob im selben Verzeichnis wie der Excel Datei bereits ein Ordner mit dem Name aus den Spalten A "Artikel" und B "...
07.07.2009 13:09:26
Thread-ID: 1086922
2 Beiträge
Anzeige
Makro ausführen mit Schaltfläche
Alex

Hi @ all,
ich habe mal wieder ein Problem.
Und zwar hab ich folgendes Makro in einer Vorlage:
Sub FilternKopierenTGA() Dim rngAct As Range With Worksheets("TGA") .Cells.Clear Range("N1").AutoFilter _ Field:=14, Criteria1:="TGA" 'Filtern Spalte N nach TGA Set rngAct = Range("A2"...
08.07.2009 13:38:12
Thread-ID: 1087178
5 Beiträge
Makroschaltfläche
Hübner

Hallo liebe Helfer,
ich habe gleich 2 Probleme, sicherlich könnt Ihr mir wieder helfen.
Thema: Dateienumstellung von 2003 auf 2007
1.
gibt es eine Möglichkeit in 2007 das beim Aufzeichnen von einem Makro eine vorhandene Schaltfläche (die mit einem Makro hinterlegt ist, erstellt...
14.07.2009 21:02:25
Thread-ID: 1088359
2 Beiträge
Schaltfläche auszeichnen
Hübner

Hallo liebe Helfer,
ich habe ein Probleme, sicherlich könnt Ihr mir wieder helfen.
gibt es eine Möglichkeit in 2007 das beim Aufzeichnen von einem Makro eine vorhandene Schaltfläche (die mit einem Makro hinterlegt ist, erstellt mit 2003)mit aufgezeichnet wird?
In 2003 ging dies prob...
14.07.2009 14:31:23
Thread-ID: 1088468
7 Beiträge
Anzeige
2 Makros mit einer Schaltfläche ausführen?
Alex

Hi @ all!
Ich hab mal eine Frage:
Is es möglich zwei Makros, die sich auf unterschiedliche Blätter beziehen mit einer Schaltfläche auszuführen.
Das erste Makro filtert und kopiert Daten in das Tabellenblatt in welchem anschließend Zeilen eingefärbt werden sollen
Danke schon mal<...
16.07.2009 23:02:18
Thread-ID: 1089255
3 Beiträge
ListFilRange bei Befehlsschaltflächen
Pfannen-Meister

Guten Tag,
nachdem mir hier heute Vormittag schon geholfen wurde, müßte ich nochmals Hilfe in Anspruch nehmen:
Wenn ich mit Befehlsschaltflächen arbeite, so kann ich im Feld "ListFilRange" eine bestimmte Menge an Excel-Feldern auswählen, deren Inhalt mit Hilfe der Befehlsschaltfläche s...
06.08.2009 15:23:31
Thread-ID: 1094074
3 Beiträge
Anzeige
Schaltflächen verschwinden
Fritz

Hallo,
ich habe das Problem, dass nachdem eine Excel-Tabelle Monatelang in einer Firmenumgebung einwandfrei funktioniert hat (als Freigegebenes Dokument mit einigen Makros) nun plötzlich beim anwenden des Autofilters wahllos Schaltflächen "verschwinden" lässt.
Das Dokument wird von ver...
17.08.2009 13:06:59
Thread-ID: 1096418
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige