Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Focus in Userform | Herbers Excel-Forum


Betrifft: Focus in Userform von: eres
Geschrieben am: 14.10.2008 08:25:58

Guten Morgen an alle Excel-Freunde,

habe mir eine kleine Telefon-/Adressdatei gebastelt:

https://www.herber.de/bbs/user/56005.xls

Funktioniert soweit ganz gut bis auf:
Ich habe ein UF angelegt, die beim Doppelklick auf einen Datensatz gefüllt wird. Diese wird zwar angezeigt, aber ich schaffe es nicht, den Focus nach Anzeige des Satzes auf den ESC-Button zu legen.
Ich erhalte immer die mir nichts sagende Fehlermeldung:
"Laufzeitfehler '-2147467259 (80004005)'"

Hat jemand einen Tipp für mich.

Herzlichen Dank für jede Hilfe im voraus.

Gruß

erwin

  

Betrifft: AW: Focus in Userform von: ANdreas
Geschrieben am: 14.10.2008 09:46:46

Hallo Erwin,

also bei mir funktioniert das:

Private Sub UserForm_Initialize()
Dim i&
    On Error Resume Next
     If NeuerEintrag = False Then
        btn_OK.Visible = False
        i = ActiveCell.Row
        Application.EnableEvents = False
            cb_Category = WorksheetFunction.VLookup(Cells(i, 3), _
                Sheets("Menu").Range("Kategorien_2"), 2, False)
        Application.EnableEvents = True
        
        tb_Name = Cells(i, 1)
        tb_Vorname = Cells(i, 2)
        tb_Vorwahl = Cells(i, 4)
        tb_RufNr = Cells(i, 5)
        tb_FaxNr = Cells(i, 6)
        tb_Handy = Cells(i, 7)
        tb_email1 = Cells(i, 8)
        tb_email2 = Cells(i, 9)
        tb_Strasse = Cells(i, 10)
        tb_PLZ = Cells(i, 11)
        tb_Ort = Cells(i, 12)
        tb_Comment = Cells(i, 13)
        tb_Cat = Cells(i, 3)
    Else
        UF_Satz.Caption = " Neuer Eintrag Erfassen ..."
        With btn_OK
            .Visible = True
            .Enabled = False
        End With
    End If
    btn_ESC.SetFocus
    btn_ESC.SetFocus
End Sub



Gruß
Andreas


  

Betrifft: AW: Focus in Userform von: eres
Geschrieben am: 14.10.2008 09:54:49

Vielen Dank Andreas.

Dein Code funktioniert auch bei mir einwandfrei.
Wieso in meinem Code der Fehler hochkommt, habe ich allerdings immer noch nicht verstanden.

Aber sei's drum.

Jetzt läufts und ich bin Happy.

Vielen Dank nochmals, Gruß

erwin


Beiträge aus den Excel-Beispielen zum Thema "Focus in Userform"