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

SetFocus funktioniert nicht

Forumthread: SetFocus funktioniert nicht

SetFocus funktioniert nicht
27.11.2024 17:49:02
Daniel Eberhard
Guten Abend

Ich möchte wenn ich bei der MsgBox auf Abbrechen klicke, der Cursor im TextFeld1 bleibt. Leider funktioniert mein Code nicht. Was mache ich falsch? 



Private Sub TextBox1_AfterUpdate()

    

    Dim Cancel As MSForms.ReturnBoolean

    

    If Klick = "False" Then

        Exit Sub

    Else

        Select Case MsgBox("Sollen Ihre Änderungen gespeichert werden?", vbYesNoCancel + vbQuestion, "Warnung")

            Case vbYes

                Worksheets("Tabelle1").Shapes("Textfeld 2").DrawingObject.Text = TextBox1.Text

            Case vbNo

                TextBox1 = Worksheets("Tabelle1").Shapes("Textfeld 2").DrawingObject.Text

            Case vbCancel

                Me.TextBox1.SetFocus

                Exit Sub

        End Select

    End If

End Sub


Freundliche Grüsse
Daniel Eberhard
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SetFocus funktioniert nicht
27.11.2024 18:31:39
Daniel Eberhard
Irgendetwas hat nicht ganz funktioniert!
Besten Dank für Eure Vorschläge.

Freundliche Grüsse
Daniel Eberhard
AW: SetFocus funktioniert nicht
27.11.2024 19:27:33
daniel
Hi
du verwendest für diese Anforderung das falsche Event.
besser hier das EXIT-Event nehmen und mit "Cancel = True" das Verlassen der Textbox verhindern: 

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    

    Dim Cancel As MSForms.ReturnBoolean

    

    If Klick = "False" Then

        Exit Sub

    Else

        Select Case MsgBox("Sollen Ihre Änderungen gespeichert werden?", vbYesNoCancel + vbQuestion, "Warnung")

            Case vbYes

                Worksheets("Tabelle1").Shapes("Textfeld 2").DrawingObject.Text = TextBox1.Text

            Case vbNo

                TextBox1 = Worksheets("Tabelle1").Shapes("Textfeld 2").DrawingObject.Text

            Case vbCancel

                Cancel = True

        End Select

    End If

End Sub


Gruß Daniel
Anzeige
AW: SetFocus funktioniert nicht
27.11.2024 19:36:03
Daniel Eberhard
Hallo Daniel

Das habe ich auch schon versucht. Funktioniert soweit auch. Aber die MsgBox erscheint dann auch obschon der Text gar nicht verändert wurde. Kann ich das irgendwie umgehen?

Gruss Daniel Eberhard
AW: SetFocus funktioniert nicht
27.11.2024 19:47:14
daniel
ja, das kannst du umgehen.
das hattest du aber nicht gefragt.
ich habe dir deine Frage beantwortet und du hast nicht "Danke" gesagt.
das finde ich unhöflich, deswegen hab ich jetzt keine Lust mehr, dir deine zweite Frage genauer zu beantworten.
Anzeige
AW: SetFocus funktioniert nicht
28.11.2024 09:49:41
Kuwer
Hallo Daniel Eberhard,

nimm dafür das BeforeUpdate-Ereignis: 
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

    If Not Klick = "False" Then

        Select Case MsgBox("Sollen Ihre Änderungen gespeichert werden?", vbYesNoCancel + vbQuestion, "Warnung")

            Case vbYes

                Worksheets("Tabelle1").Shapes("Textfeld 2").DrawingObject.Text = TextBox1.Text

            Case vbNo

                TextBox1 = Worksheets("Tabelle1").Shapes("Textfeld 2").DrawingObject.Text

            Case vbCancel

                Cancel = True

        End Select

    End If

End Sub

Gruß, Uwe
Anzeige
AW: SetFocus funktioniert nicht
27.11.2024 19:52:49
Daniel Eberhard
Hallo Daniel
Ok, sorry, hätte mich sicher nachher bedankt.
Aber vielleicht hilft mir ja jemand anders?

Gruss Daniel Eberhard

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