Setfocus i.o. nur bei 98

Forumthread: Setfocus i.o. nur bei 98

05.06.2003 21:55:36

Walter

Hallo Zusammen,
hatte Problem mit SetFocus gehabt.
Jetzt habe ich solange gefummmmmmelt bis ich dahinter gekommen bin.
In Excel 7 funktioniert es. In Excel97 nicht.
Habe folgendes Makro :
Private Sub MultiPage1_Change()
TextBox1.SetFocus
End Sub
Gibts bei 2000 was besonderes ?
Wenn ja bin dankbar wenn mir jemand einen Tip gibt.
Gruss Walter

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Setfocus i.o. nur bei 98

05.06.2003 23:18:43

RAnton
Re: Setfocus i.o. nur bei 98

06.06.2003 09:24:01

walter
Re: Setfocus i.o. nur bei 98

06.06.2003 09:43:01

RAnton
Re: Setfocus i.o. nur bei 98

06.06.2003 10:17:33

Walter
Re: Setfocus i.o. nur bei 98

06.06.2003 13:25:03

RAnton
Re: Setfocus i.o. nur bei 98

06.06.2003 14:36:12

Walter

Re: Setfocus i.o. nur bei 98

05.06.2003 23:18:43

RAnton

Hallo Walter

wo hast du denn die TextBox1 versteckt? Kann es sein, daß sie nicht im WB erreichbar ist?

Gruß
RAnton

Re: Setfocus i.o. nur bei 98

06.06.2003 09:24:01

walter

Hallo Anton,
herzlichen Dank für die Info.
Habe die Textbox1 nicht versteckt.
Ich habe eine UserForm erstellt und dann 2 MultiPage Seiten
erstellt und auf der ersten Seite sind die Textboxen.
Was meinst Du in WB nicht erreichbar ?
Ich freue mich wenn Du mich aufklären könntest.
Gruss Walter

Re: Setfocus i.o. nur bei 98

06.06.2003 09:43:01

RAnton

Hallo Walter,

kannst du denn die Textbox1 in den UserForm ansprechen. D.h. kannst du Werte eingeben und kannst du sie wieder lesen.

WB=Workbook

Gruß

RAnton

Re: Setfocus i.o. nur bei 98

06.06.2003 10:17:33

Walter

Hallo Anton,
hier meine Makros:
Private Sub UserForm_Initialize()
Dim Datum1
Label1.Caption = Format(Date, "YYYY")
TextBox3 = Format(Worksheets("Datenbank").Range("A12").Value, ("###,##0.00"))
'so geht auch Format mit TAB-Taste direkt rein !
Walter.TextBox1.SetFocus
End Sub

Hier, bei dem Datenfreigabebutton blinkt der Courser:
Private Sub Datenfreigabe_Click()
TextBox3 = Format(Worksheets("Datenbank").Range("A12").Value, ("###,##0.00"))
'so geht auch Format mit TAB-Taste direkt rein !
TextBox1.SetFocus
End Sub

Im folgenden Makro wiederum nicht, wieso?
Private Sub CommandButton1_Click()
TextBox3 = Format(Worksheets("Datenbank").Range("A12").Value, ("###,##0.00"))
'so geht auch Format mit TAB-Taste direkt rein !
' Walter.TextBox1 = Range("a12").Text
Walter.TextBox1 = SetFocus
Walter.Show
End Sub

Also auslesen funktioniert, hatte nur später festgestellt das
ich die MultPage Seite ansprechen muß oder ?

Also in Excel7 funktioniert nur nicht in Excel 97
Gruss walter

Re: Setfocus i.o. nur bei 98

06.06.2003 13:25:03

RAnton

wieso verwendest du unterschiedliche Anweisungen

1. Walter.TextBox1.SetFocus

2. TextBox1.SetFocus

3. Walter.TextBox1 = SetFocus
Walter.Show

Ist das richtig so?

Gruß

RAnton

Re: Setfocus i.o. nur bei 98

06.06.2003 14:36:12

Walter

Hallo Anton,
der Vorschlag kam von Hajo hatt nur probiert.
Gruss Walter

Beliebteste Forumthreads (12 Monate)

Forumthread: Setfocus i.o. nur bei 98

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread