Meine Meldung der Textbox reagiert nicht

20.02.2025 18:07:49

sigrid

Guten Abend,
ch habe folgendes Makro erstellt:

If TextBox13.value = "" Then

 

    MsgBox "Sie müssen eine Mail-Adresse bei Firmen einsetzen," _

                & Chr(13) & Chr(13) & "bei PRIVAT-Adresse, wenn nicht vorhanden, vorläufig" _

             & Chr(13) & "ein ""f"" einsetzen ! """ _

          & Chr(13) & Chr(13), 48, "   Hinweis für " & Application.UserName

        

         MsgBox "kk"

         TextBox13.SetFocus

        Else



    End If

die Meldung MsgBox "kk" wird angezeigt
aber SetFocus wird Fehler angezeigt.
Wie bekomme ich das hin ?

gr sigrid

AW: Meine Meldung der Textbox reagiert nicht

20.02.2025 18:21:53

ralf_b

Wie bekomme ich das hin ? Kein Ahnung, da du weder das ganze Makro zeigst, noch erklärst wo sich das befindet im Projekt.

Hier das koml. Makro

20.02.2025 18:23:14

sigrid

Hallo,
anbei das kompl. Makr:

Private Sub CommandButton5_Click()   

   If TextBox13.value = "" Then

    MsgBox "Sie müssen eine Mail-Adresse bei Firmen einsetzen," _

                & Chr(13) & Chr(13) & "bei PRIVAT-Adresse, wenn nicht vorhanden, vorläufig" _

             & Chr(13) & "ein ""f"" einsetzen ! """ _

          & Chr(13) & Chr(13), 48, "   Hinweis für " & Application.UserName

        

         MsgBox "kk"

           TextBox13.SetFocus

        Else

    End If

   

End Sub

ich habe festgestellt das die Userform weg war, nach anzeige MsgBox "kk" .

gr sigrid

AW: Hier das koml. Makro

20.02.2025 18:34:07

ralf_b

Also bei mir läuft dein Code wie gewünscht. An dem liegts nicht. Was passiert denn da sonst noch?

AW: Meine Meldung der Textbox reagiert nicht

20.02.2025 18:32:56

Onur

Auch das ist nicht der komplette Code. Das ist nur eine Prozedur im Code.
Poste bitte endlich mal die Datei.

AW: Meine Meldung der Textbox reagiert nicht

20.02.2025 18:39:34

sigrid

Hallo Onur,
anbei wie gewünscht:

Private Sub UserForm_Initialize()



Dim iIndex  As Integer



'--------------- für Bildschirmanpassung --------------------------------------

Dim hwndForm As Long, hwndMenu As Long

Dim intY, intLast, intNext As Integer

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

    On Error Resume Next

  'With UF_Adresseingabe

       ' .sommerUpPosition = 0

      '  .Top = 20

      '  .Left = 10

        

      '  .Height = GetDeviceCaps(GetDC(0&), 8)

      '  .Width = GetDeviceCaps(GetDC(0&), 10)

  '  End With

'        ReleaseDC 0, GetDC(0&)

 ' hwndForm = FindWindow(vbNullString, Me.Caption)

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

    Dim Antwort

 

 If TextBox1.value = "" Then



Antwort = MsgBox("       " _

             & Chr(13) & Chr(13) & "NEUE Kunden-Nummer wird übernommen !  " _

        & Chr(13), vbCritical + vbYesNo, "  ")

   If Antwort = vbYes Then    

    ActiveSheet.Unprotect (getStrPassWort)

    ActiveSheet.Range("O11").value = Format(ActiveSheet.Range("O4"), "0000000")

    TextBox1.value = ActiveSheet.Range("O11").value

    TextBox2.SetFocus

    Else

    

   End If

        ActiveSheet.Unprotect (getStrPassWort)

        Application.Calculation = xlAutomatic

 

  With UF_Adresseingabe

        ' .Height = 230          ' Application.Height

       '  .Width = 240           ' Application.Width

          '0:Manuell

        ' 1: Fenstermitte

        ' 2: Bildschirmmitte

        ' 3: Windows-Standard

       ' .sommerUpPosition = 0 'links oben

       ' .Top = 10

       ' .Left = 300

    End With

     Me.Label107 = Format(ActiveSheet.Range("o4"), "0000000")             'neue kundennummer



    Me.Label10 = Format(Date, "dd.mm.yyyy")             'Datum HEUTE

    Me.TextBox1.Text = Format(ActiveSheet.Range("O11"), "0000000")        'Kundennummer

    TextBox1.Enabled = False                                           'grau hinterlegen

    

    Me.TextBox2.Text = ActiveSheet.Range("o12")         'Anrede

    Me.TextBox3.Text = ActiveSheet.Range("o13")         'Titel

    Me.TextBox4.Text = ActiveSheet.Range("o14")         'Vorname

    Me.TextBox5.Text = ActiveSheet.Range("o15")         'Firmenname /Kundenname

    Me.TextBox6.Text = ActiveSheet.Range("o16")         '2. Firmenname

    

    Me.TextBox12.Text = ActiveSheet.Range("o17")        'Ansprechpartner /Sonstiges

    

    Me.TextBox7.Text = ActiveSheet.Range("o18")         'Strasse

    Me.TextBox8.Text = ActiveSheet.Range("o19")         'Str. Nummer

    Me.TextBox9.Text = ActiveSheet.Range("o20")         'Postleitzahl

    Me.TextBox10.Text = ActiveSheet.Range("o21")        'Ort

    Me.TextBox11.Text = ActiveSheet.Range("o22")        'Land

    Me.TextBox14.Text = Format(ActiveSheet.Range("O23"), "dd.mm.yyyy")        'Datum erfasst

    Me.TextBox13.Text = ActiveSheet.Range("o24")        'Mailadresse

            ActiveSheet.Range("o12").Select

 

With TextBox1

    .SetFocus

   ' .Selsommer = 0

    .SelLength = Len(.Text)

End With



     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _

         :=True, Password:=getStrPassWort

   End If



End Sub

gr sigrid

AW: Meine Meldung der Textbox reagiert nicht

20.02.2025 18:42:21

Onur

Langsam fühle ich mich aber auf den Arm genommen - das ist weder die DATEI noch der komplette Code. Wenn das der komplette Code wäre, wäre der erste Code mit drin - oder ?

AW: Meine Meldung der Textbox reagiert nicht

20.02.2025 18:58:33

ralf_b

In Initialize werden die Controls erst erstellt .Da hat die Textbox immer keinen Text. Ins Initialize gehört nur das rein was die Userform benötigt um zu starten.
Messageboxen usw. machen da keinen Sinn. Nach dem Initialize wird das Activate event gestartet. Das heisst ,das vorher die Userform nicht mal sichtbar ist.

AW: Meine Meldung der Textbox reagiert nicht

20.02.2025 23:04:32

sigrid

Guten Abend,
hallo Ralf, habe umgestellt auf
Private Sub UserForm_Activate()
Gestartet wird die Userform mit:

Public Sub Anschrift_Maske()

    UF_Adresseingabe.Show

End Sub

wenn ich habe diese Zeile rausgenommen: ' TextBox13.SetFocus
jetzt bleibt die Userform offen.

gr sigrid

AW: Meine Meldung der Textbox reagiert nicht

21.02.2025 07:24:49

ralf_b

ein setfocus hat nichts mit dem Verschwinden der Userform zu tun. Aber sei's drum. Warum markierst du den Beitrag als offen? ich erkenne keine weitere Fragestellung.
Ich mache deshalb zu.

so läuft es... --))

21.02.2025 13:31:39

sigrid

Hallo zusammen,
so läuft es:

Private Sub CommandButton5_Click()



 If TextBox13.value = "" Then

    MsgBox "Sie müssen eine Mail-Adresse bei Firmen einsetzen," _

                & Chr(13) & Chr(13) & "bei PRIVAT-Adresse, wenn nicht vorhanden, vorläufig" _

             & Chr(13) & "ein ""f"" einsetzen ! """ _

          & Chr(13) & Chr(13), 48, "   Hinweis für " & Application.UserName

      

      With TextBox13

            .SetFocus

         ' .Selsommer = 0

            .SelLength = Len(.Text)

        End With

            TextBox13.BackColor = &HC0C0FF      'hellrot

         '  weiß =&H80000005&  '&H8000000F      'hellgrau

        Else

        Unload UF_Adresseingabe

    End If

    

End Sub

schönes Wochenende sigrid

Mit Sicherheit möchte ich dich nicht...

20.02.2025 18:55:17

sigrid

Hallo Onur,
sorry aber ich will Dich doch nicht verarschen, Du hast mir schon so oft geholfen !
Das ist das Makro der Userform für die Adress-Eingabe, ich bin davon ausgegangen das
Du das brauchst.

Private Sub CommandButton4_Click()

    

     Application.Calculation = xlCalculationManual

    'Application.Calculation = xlCalculationAutomatic

    

    ActiveSheet.Unprotect (getStrPassWort)



    TextBox1.Enabled = True

    

    Me.TextBox1.Text = ""

    

    Me.TextBox2.Text = ""

    Me.TextBox3.Text = ""

    Me.TextBox4.Text = ""

    Me.TextBox5.Text = ""

    Me.TextBox6.Text = ""

    Me.TextBox7.Text = ""

    Me.TextBox8.Text = ""

    Me.TextBox9.Text = ""

    Me.TextBox10.Text = ""

    Me.TextBox11.Text = ""

    Me.TextBox12.Text = ""    'vorname

    Me.TextBox13.Text = ""    'mailadresse

    Me.TextBox14.Text = ""     'datum

    

    ActiveSheet.Range("o11") = ""

    ActiveSheet.Range("o12") = ""

    ActiveSheet.Range("o13") = ""

    ActiveSheet.Range("o14") = ""

    ActiveSheet.Range("o15") = ""

    ActiveSheet.Range("o16") = ""

    ActiveSheet.Range("o17") = ""

    ActiveSheet.Range("o18") = ""

    ActiveSheet.Range("o19") = ""

    ActiveSheet.Range("o20") = ""

    ActiveSheet.Range("o21") = ""

    ActiveSheet.Range("o22") = ""

    ActiveSheet.Range("o23") = ""

    ActiveSheet.Range("o24") = ""

    '  If Me.TextBox1.Text = "" Then CommandButton6.Enabled = True   'MsgBox " nichts"

    

     TextBox1.Enabled = False   'wieder grau

    ' Application.Calculation = xlCalculationManual

    Application.Calculation = xlCalculationAutomatic

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _

         :=True, Password:=getStrPassWort

     

     TextBox2.SetFocus

With TextBox2

    .SetFocus

   ' .Selsommer = 0

    .SelLength = Len(.Text)

End With



End Sub

das steht alles in der Userform:

Private Sub CommandButton6_Click()

   

    

    ActiveSheet.Unprotect (getStrPassWort)

    

    TextBox1.Enabled = False                       'grau hinterlegen

    ActiveSheet.Range("o11").value = Me.Label107

    TextBox1.value = ActiveSheet.Range("o11").value

    TextBox2.SetFocus

 

End Sub





Private Sub OptionButton1_Click()

    ActiveSheet.Unprotect (getStrPassWort)

  If OptionButton1.value = True Then ActiveSheet.Cells(12, 15) = "An"

        TextBox2.value = ActiveSheet.Range("o12")

       

    With TextBox3

        .SetFocus

       ' .Selsommer = 0

        .SelLength = Len(.Text)

    End With

End Sub



Private Sub OptionButton7_Click()

    ActiveSheet.Unprotect (getStrPassWort)

If OptionButton7.value = True Then ActiveSheet.Cells(12, 15) = "An das"

        TextBox2.value = ActiveSheet.Range("o12")

       

    With TextBox3

        .SetFocus

      '  .Selsommer = 0

        .SelLength = Len(.Text)

    End With

End Sub



Private Sub OptionButton8_Click()

If OptionButton7.value = True Then ActiveSheet.Cells(12, 15) = "An den"

        TextBox2.value = ActiveSheet.Range("o12")

       

    With TextBox3

        .SetFocus

       ' .Selsommer = 0

        .SelLength = Len(.Text)

    End With

End Sub



Private Sub OptionButton9_Click()

    ActiveSheet.Unprotect (getStrPassWort)

If OptionButton9.value = True Then ActiveSheet.Cells(12, 15) = "An die"

        TextBox2.value = ActiveSheet.Range("o12")

       

    With TextBox3

        .SetFocus

       ' .Selsommer = 0

        .SelLength = Len(.Text)

    End With

End Sub







Private Sub OptionButton2_Click()

    ActiveSheet.Unprotect (getStrPassWort)

  If OptionButton2.value = True Then ActiveSheet.Cells(12, 15) = "Frau"

        TextBox2.value = ActiveSheet.Range("o12")

        

    With TextBox3

        .SetFocus

        '.Selsommer = 0

        .SelLength = Len(.Text)

    End With

End Sub

Private Sub OptionButton3_Click()

  If OptionButton3.value = True Then ActiveSheet.Cells(12, 15) = "Herrn"

        TextBox2.value = ActiveSheet.Range("o12")

        

    With TextBox3

        .SetFocus

       ' .Selsommer = 0

        .SelLength = Len(.Text)

    End With

End Sub

Private Sub OptionButton4_Click()

    ActiveSheet.Unprotect (getStrPassWort)

  If OptionButton4.value = True Then ActiveSheet.Cells(12, 15) = "Eheleute"

        TextBox2.value = ActiveSheet.Range("o12")

       

    With TextBox3

        .SetFocus

        .Selsommer = 0

        .SelLength = Len(.Text)

    End With

End Sub

Private Sub OptionButton5_Click()

    ActiveSheet.Unprotect (getStrPassWort)

  If OptionButton5.value = True Then ActiveSheet.Cells(12, 15) = "Familie"

        TextBox2.value = ActiveSheet.Range("o12")

      

    With TextBox3

        .SetFocus

        '.Selsommer = 0

        .SelLength = Len(.Text)

    End With

End Sub

Private Sub OptionButton6_Click()

    ActiveSheet.Unprotect (getStrPassWort)

  If OptionButton6.value = True Then ActiveSheet.Cells(12, 15) = "Firma"

        TextBox2.value = ActiveSheet.Range("o12")

       

    With TextBox3

        .SetFocus

       ' .Selsommer = 0

        .SelLength = Len(.Text)

    End With

End Sub













'----------- Kundennummer --------------

Private Sub TextBox1_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

 

    ActiveSheet.Range("o11") = Format(TextBox1.value, "0000000")

    TextBox1.value = ActiveSheet.Range("o11")

 

With TextBox2

    .SetFocus

   ' .Selsommer = 0

    .SelLength = Len(.Text)

End With



End Sub



'---------- Anrede oder 1. Firmenname -----------

Private Sub TextBox2_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

 

    ActiveSheet.Range("O12") = TextBox2.value

    TextBox2.value = ActiveSheet.Range("O12")



With TextBox3

    .SetFocus

   ' .Selsommer = 0

    .SelLength = Len(.Text)

End With

End Sub





'----- Titel -------------------------

Private Sub TextBox3_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

 

    ActiveSheet.Range("O13") = TextBox3.value

    TextBox3.value = ActiveSheet.Range("O13")

 

With TextBox4

    .SetFocus

   '.Selsommer = 0

    .SelLength = Len(.Text)

End With

End Sub



'------------ Vorname ------

Private Sub TextBox4_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

 

    ActiveSheet.Range("O14") = TextBox4.value

    TextBox4.value = ActiveSheet.Range("O14")

    

With TextBox5

    .SetFocus

    '.Selsommer = 0

    .SelLength = Len(.Text)

End With

End Sub





'--------- Firmen oder Kundenname ----------------------------

Private Sub TextBox5_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

 

    ActiveSheet.Range("O15") = TextBox5.value

    TextBox5.value = ActiveSheet.Range("O15")

    

With TextBox6

    .SetFocus

   ' .Selsommer = 0

    .SelLength = Len(.Text)

End With



End Sub



Private Sub wwTextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

   Select Case KeyAscii

      Case 48 To 57

      Case Else

         KeyAscii = 0

   End Select



End Sub



'---------- 2. Firmenname oder Hinweise Postfach ---------------------

Private Sub TextBox6_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

 

    ActiveSheet.Range("O16") = TextBox6.value

    TextBox6.value = ActiveSheet.Range("O16")



With TextBox12

    .SetFocus

   ' .Selsommer = 0

    .SelLength = Len(.Text)

End With



End Sub





'---------- Ansprechpartner / Sonstiges ---------------------

Private Sub TextBox12_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

 

    ActiveSheet.Range("O17") = TextBox12.value

    TextBox12.value = ActiveSheet.Range("O17")

    

With TextBox7

    .SetFocus

    '.Selsommer = 0

    .SelLength = Len(.Text)

End With



End Sub





'---------- Strasse ----------------------

Private Sub TextBox7_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

 

    ActiveSheet.Range("O18") = TextBox7.value

    TextBox7.value = ActiveSheet.Range("O18")

    

With TextBox8

    .SetFocus

   ' .Selsommer = 0

    .SelLength = Len(.Text)

End With

End Sub



Private Sub wwwTextBox6_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

   If IsNumeric(TextBox6) = False And TextBox6 > "" Then

     MsgBox " Sie dürfen nur Ziffern eingeben", _

           vbCritical, "Error !!!"

        TextBox6 = Left(TextBox6, Len(TextBox6) - 1)

        TextBox6 = "0"

        TextBox6.SetFocus

   With TextBox6

        .SetFocus

       ' .Selsommer = 0

        .SelLength = Len(.Text)

   End With

 End If

End Sub



Private Sub wwTextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

   Select Case KeyAscii

      Case 48 To 57

      Case Else

         KeyAscii = 0

   End Select

End Sub



'---------------- Strasse NUMMER ---------------

Private Sub TextBox8_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

 

    ActiveSheet.Range("O19") = TextBox8.Text   ' raus 27.03.23 19:14.Value

    TextBox8.Text = ActiveSheet.Range("O19")

    

With TextBox9

    .SetFocus

   ' .Selsommer = 0

    .SelLength = Len(.Text)

End With



End Sub







'--------- PLZ und Ort in einer Zeile und wird dann aufgeteilt 04.12.24 ------

'If TextBox9.Text Like "##### ?*" Then '-- 5 Ziffer und weitere Text

  '  TextBox10.Text = Mid(TextBox9.Text, 7)

  '  TextBox9.Text = Left(TextBox9.Text, 5)

'End If

'Range("O20").Value = TextBox9.Text



'ActiveSheet.Range("O20") = Left(TextBox9,5)   'von Onur



'--- nur ziffern eingeben

Private Sub wwTextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If Not Chr(KeyAscii) Like "#" Then KeyAscii = 0

MsgBox " Sie dürfen nur Ziffern eingeben", _

           vbCritical, "Error !!!"

If Len(TextBox9.Text) >= 5 Then KeyAscii = 0

End Sub

'----------Postleitzahl ----------------------

Private Sub TextBox9_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

 

    ActiveSheet.Range("O20") = TextBox9            ' raus 27.03.23 19:14.Value

    TextBox9 = ActiveSheet.Range("O20")

    

With TextBox10

    .SetFocus

   ' .Selsommer = 0

    .SelLength = Len(.Text)

End With



End Sub







'------ n ut text eingeben ---------

Private Sub ddTextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If Chr(KeyAscii) Like "[a-z A-Z Ä ä Ö ö Ü ü . - ß]" = False Then KeyAscii = 0

End Sub



Private Sub wwwTextBox10_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    If Chr(KeyAscii) Like "[a-z A-Z Ä ä Ö ö Ü ü . - ß]" = False Then KeyAscii = 0: MsgBox " Sie dürfen nur TEXT eingeben", _

           vbCritical, "Error !!!"

End Sub



'---------- Ort ----------------------

Private Sub TextBox10_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

 

    ActiveSheet.Range("O21") = TextBox10.value

    TextBox10.value = ActiveSheet.Range("O21")

    

With TextBox11

    .SetFocus

  '  .Selsommer = 0

    .SelLength = Len(.Text)

End With



End Sub





'---------- LAND ----------------------

Private Sub TextBox11_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

 

    ActiveSheet.Range("O22") = TextBox11.value

    TextBox11.value = ActiveSheet.Range("O22")

    

With TextBox14

    .SetFocus

   ' .Selsommer = 0

    .SelLength = Len(.Text)

End With



End Sub





' Me.TextBox14.Text = Format(ActiveSheet.Range("O23"), Date, "dd.mm.yyyy")        'Datum erfasst



'---------- Datum erfassung der Adresse ----------------------

Private Sub TextBox14_AfterUpdate()



 ActiveSheet.Unprotect (getStrPassWort)

 

     ActiveSheet.Range("O23") = Format(TextBox14.value, "dd.mm.yyyy")

    TextBox14.value = ActiveSheet.Range("O23")



With TextBox13

    .SetFocus

   ' .Selsommer = 0

    .SelLength = Len(.Text)

End With

End Sub





'---------- Mailadresse ----------------------

Private Sub TextBox13_AfterUpdate()

 ActiveSheet.Unprotect (getStrPassWort)

 

    ActiveSheet.Range("O24") = TextBox13.value

    TextBox13.value = ActiveSheet.Range("O24")

    

With TextBox13

    .SetFocus

   ' .Selsommer = 0

    .SelLength = Len(.Text)

End With



End Sub

gr sigrid

AW: Mit Sicherheit möchte ich dich nicht...

20.02.2025 19:00:13

Onur

Das ist der ganze Code ???
Du sagst doch "die Userform schliesst sich" aber ich sehe nirgends eine Codezeile, die die Useform überhaupt öffnet.
Wo ist denn das Problem, die Datei zu posten ? Du kannst ja alle "sensiblen" Daten anonymisieren.

Meine Meldung der Textbox reagiert nicht

Forumthread: Meine Meldung der Textbox reagiert nicht

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Meine Meldung der Textbox reagiert nicht

Forumthread: Meine Meldung der Textbox reagiert nicht

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread