Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
620to624
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
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Userform TAB

Userform TAB
10.06.2005 22:04:53
Alois
Hallo
Ich habe da eine Userform.
Wenn in Textbox 1 acht Zeichen stehen, soll automatisch Textbox 2 aktiviert werden, so das ich dort weiter eingeben kann.
Geht so was
Bitte um eure Hilfe
Alois


      
Private Sub TextBox1_Change()
    
If BoEnter = True Then Exit Sub
    
If Len(TextBox1) = 2 Then
        
If InStr(TextBox1, ".") = 0 And BoEnter = False Then TextBox1 = TextBox1 & "."
    
ElseIf Len(TextBox1) = 5 Then
        
If Len(TextBox1) - Len(Application.Substitute(TextBox1, ".", "")) < 2 Then
            TextBox1 = TextBox1 & "."
            
If Len(TextBox1) = 8 Then
                Range("cx2").Value = TextBox1
               
                Unload Me
            
End If
        
End If
    
ElseIf Len(TextBox1) = 8 Then
     
    
End If
    Range("cx2").Value = TextBox1
    
End Sub
Private Sub TextBox2_Change()
    
If BoEnter = True Then Exit Sub
    
If Len(TextBox2) = 2 Then
        
If InStr(TextBox2, ".") = 0 And BoEnter = False Then TextBox2 = TextBox2 & "."
    
ElseIf Len(TextBox2) = 5 Then
        
If Len(TextBox2) - Len(Application.Substitute(TextBox2, ".", "")) < 2 Then
            TextBox2 = TextBox2 & "."
            
If Len(TextBox2) = 8 Then
                Range("cx3").Value = TextBox2
               
                Unload Me
            
End If
        
End If
    
ElseIf Len(TextBox2) = 8 Then
     Application.OnTime Now + _
      TimeSerial(0, 0, 1), "Filter_Datumbereich"
      Application.OnTime Now + TimeValue("00:00:03"), "Schließenform2"
    
End If
    Range("cx3").Value = TextBox2
    
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Userform TAB
10.06.2005 22:12:26
Ramses
Hallo
du musst doch bloss die Anweisung "Textbox2.SetFocus" einfügen ?
If Len(TextBox1) = 8 Then
Range("cx2").Value = TextBox1
'Weshalb "Unload Me" ?
'Da kommst du NIE auf die Textbox2

Unload Me
Textbox2.SetFocus
End If
End If
' Und was soll hier passieren ?
Das ist die gleiche Bedingung wie oben,

ElseIf Len(TextBox1) = 8 Then

End If
Gruss Rainer
AW: Userform TAB
10.06.2005 22:25:09
Alois
Danke für den Tipp mit TextBox2.SetFocus.
Das Unload me habe ich natürlich gelöscht.
Bin in Visual Basic noch nicht besonders gut.
So sieht das Makro jetzt aus und Funktioniert auch.
Anzeige
AW: Userform TAB
10.06.2005 22:25:37
Alois
Danke für den Tipp mit TextBox2.SetFocus.
Das Unload me habe ich natürlich gelöscht.
Bin in Visual Basic noch nicht besonders gut.
So sieht das Makro jetzt aus und Funktioniert auch.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige