Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Funktion oder Klasse ?

Funktion oder Klasse ?
29.04.2006 06:41:46
Ingo
Hallo allerseits,
den nachfolgenden Code habe ich hier im Forum vor längerer Zeit gefunden
(Ich glaube von J.E. )
Es handelt sich um eine Eingabenbeschränkung und Darstellung von 4 Ziffern
als hh:mm in einer TextBox.
Gefällt mir ausgesprochen gut, möchte ich aber nicht mehrfach in verschiedenen
UF in einem Projekt haben.
Nun wollte ich eine Funktion basteln, bekomme die TextBox aber nicht als Objekt an die Funktion überstellt.
Geht das überhaupt oder muß ich dafür eine Klasse einrichten ?
Danke und Gruß
Ingo

Private Sub tbo_BisUhrzeit_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Uhrzeit bis
'Eingabebeschränkung Textbox_Uhrzeit mit autom. Doppelpunkt
'Format hh:mm
Select Case Len(tbo_BisUhrzeit)
Case 0
Select Case KeyAscii
Case 48 To 50
Case Else
KeyAscii = 0
End Select
Case 1
If Left(tbo_BisUhrzeit, 1) = 2 Then
Select Case KeyAscii
Case 48 To 51
Case Else
KeyAscii = 0
End Select
Else
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
End If
Case 2
Select Case KeyAscii
Case 48 To 53, 58
If KeyAscii <> 58 Then tbo_BisUhrzeit = tbo_BisUhrzeit & ":"
Case Else
KeyAscii = 0
End Select
Case 3
If Right(tbo_BisUhrzeit, 1) = ":" Then
Select Case KeyAscii
Case 48 To 53
Case Else
KeyAscii = 0
End Select
End If
Case 4
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
End Select
Case Else
KeyAscii = 0
End Select
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion oder Klasse ?
29.04.2006 09:25:51
Josef
Hallo Ingo!
Das geht z. B. so!
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Uhrzeit TextBox1, KeyAscii
End Sub


Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Uhrzeit TextBox2, KeyAscii
End Sub


Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Uhrzeit TextBox3, KeyAscii
End Sub


Private Sub Uhrzeit(ByRef TheBox As MSForms.TextBox, ByVal KeyAscii As MSForms.ReturnInteger)
'Uhrzeit bis
'Eingabebeschränkung Textbox_Uhrzeit mit autom. Doppelpunkt
'Format hh:mm
Select Case Len(TheBox)
  Case 0
    Select Case KeyAscii
      Case 48 To 50
      Case Else
        KeyAscii = 0
    End Select
  Case 1
    If Left(TheBox, 1) = 2 Then
      Select Case KeyAscii
        Case 48 To 51
        Case Else
          KeyAscii = 0
      End Select
    Else
      Select Case KeyAscii
        Case 48 To 57
        Case Else
          KeyAscii = 0
      End Select
    End If
  Case 2
    Select Case KeyAscii
      Case 48 To 53, 58
        If KeyAscii <> 58 Then TheBox = TheBox & ":"
      Case Else
        KeyAscii = 0
    End Select
  Case 3
    If Right(TheBox, 1) = ":" Then
      Select Case KeyAscii
        Case 48 To 53
        Case Else
          KeyAscii = 0
      End Select
    End If
  Case 4
    Select Case KeyAscii
      Case 48 To 57
      Case Else
        KeyAscii = 0
    End Select
  Case Else
    KeyAscii = 0
End Select
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
Perfekt - Danke sehr (o.t.)
29.04.2006 11:33:59
Ingo

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige