Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform (Versionsupdate)

Forumthread: Userform (Versionsupdate)

Userform (Versionsupdate)
06.09.2003 23:14:25
Gerhard
Hi Björn
Hast du den Beitrag von Walter gelesen ?
ist das vielleicht auch dein Problem ?
Gruß Gerhard
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform (Versionsupdate)
06.09.2003 23:25:58
Björn
Huhu Gerhard,

danke für den Hinweis. Aber es ist ein anderes Problem. Mir ist auch in etwa klar geworden, warum es nicht geht. Es ist so eine Art Zirkelschluß-Problem. Mit:


Private Sub TextBox16_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox16.Value = 1 Then
'Alles in Ordnung
Else
With TextBox16
.SetFocus
.SelStart = 0
.SelLength = 2
End With
End If
End Sub

Wird VOR dem Exit der Setfocus-Befehl ausgeführt. Nach Ausführung springt der Cursor weiter. Eigentlich logisch. Aber ich hab leider keine halbwegs vertretbar erscheinende Lösung für das Problem. Vermutlich ist das recht einfach - wie alles, wenn man weiß, wie *g*.

Gruß

Björn
Anzeige
AW: Userform (Versionsupdate)
06.09.2003 23:40:59
Gerhard
OK hätte ja sein können weil dieses Macro läuft auf meinem 1. Rechner XP mit O 2K aber nicht auf dem 2. XP mit O XP
nach officeservicepack läuft es auch da !

war nur so ein Gedanke sorry für den neuen thread
Gruß Gerhard


Sub BerichtAlsEMailVersenden1()
Dim Empfaenger, Titel As String
' E-Mailadresse
Empfaenger = "some@one.de"
' Titel
Titel = "Tabelle1"
' Name der Datei "A3"
ActiveWorkbook.Worksheets("Tabelle1").Copy
Application.Dialogs(xlDialogSendMail).Show Empfaenger, Titel
ActiveWorkbook.Close savechanges:=False
End Sub

Anzeige
AW: Userform (Versionsupdate)
07.09.2003 00:12:14
Björn
Huhu Gerhard,

und da keiner geantwortet hat, hier die Lösung im neuen Thread :-). Sie ist wirklich extrem einfach:

Cancel = True
With TextBox16
.SetFocus
.SelStart = 0
.SelLength = 2
End With

Cancel = True unterbricht das Exit-Ereignis auf den nächsten Tab-Index.

Gruß

Björn
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige