Anzeige
Archiv - Navigation
980to984
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
980to984
980to984
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehlermeldung in Schleife mit Controls

Fehlermeldung in Schleife mit Controls
28.05.2008 15:25:00
Peter
Hallo,
ich möchte eine Fehlermeldung einbauen, die dann eine Msgbox ausgibt und den focus auf die entsprechende Textbox setzt.
Randbedingungen:
Die Textboxen sind
- in einer UserForm
-alle mit fortlaufender Tag-Nummer belegt.
Ist dies mit folgendem Code möglich?
For Each cbElement In Me.Controls
If cbElement <> "" Then
If TypeName(cbElement) = "TextBox" And Len(cbElement.Tag) = 2 _
And Right(cbElement.Tag, 1) > 2 And Left(cbElement.Tag, 1) = Reihe Then
' In Industriezeit umrechnen
If cbElement Like "*,*" Or cbElement Like "*:*" Then
If cbElement = "*:*" Then
Eintrag = cbElement * 24
Else
Eintrag = cbElement
End If
Else
Eintrag = (Left(cbElement, Len(cbElement) - 2))
Eintrag = (CDbl(Right(cbElement, 2)) / 60 * 100)
Eintrag = (Left(cbElement, Len(cbElement) - 2) & "," & _
(CDbl(Right(cbElement, 2)) / 60 * 100))
End If
End If
End If
Next cbElement
Gruß Peter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung in Schleife mit Controls
01.06.2008 21:27:00
mischarichter
hallo,
wo ist jetzt eigentlich dein problem?
ohne deinen code genauer analysiert zu haben (was mangels kommentaren und deklarationen auch nicht einfach ist) - eine einfache frage: was geht denn nun konkret nicht?
Mischa Richter
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige