Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Wieso jetzt Fehlermeldung ?

Betrifft: Wieso jetzt Fehlermeldung ? von: Walter
Geschrieben am: 17.08.2004 18:46:02

Guten Abend,
vorgestern hatte FloGo mir schon mal geholfen, seit HEUTE habe ich eine Fehlermeldung.
Die UserForm lief vorher, d.h. die UserForm Kulanzblatt aufrufen funktionierte
und wenn ich beendet habe, wurde auf der UserForm "Walter" auch die Textbox1
makiert.Die Fehlermeldung: "Laufzeitfehler 438"
Objekt unterstützt dies Eigenschaft oder Methode nicht.
Hier mein Makro:
Dim TextBox1

Private Sub KulanzblattAusblenden_Click()
        USFKulanzblatt.Hide
 If Walter.Show = True Then
     With TextBox1
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
    End If
End Sub

Warum also jetzt ?
Gruß Walter
  


Betrifft: AW: Wieso jetzt Fehlermeldung ? von: Ramses
Geschrieben am: 17.08.2004 19:00:27

Hallo

Wenn du auf debuggen klickst, welche Zeile wird dann markiert ?

Mal ein Schuss ins Blaue:

If Walter.Show = True

ist eigentlich gar nicht zulässig und dürfte auch nicht funktionieren.
Wenn schon müsste es heissen

Private Sub CommandButton1_Click()
USFKulanzblatt.Hide
If Walter.Visible = True Then
    With Walter.TextBox1
        .SetFocus
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End If
End Sub


Gruss Rainer


  


Betrifft: Danke läuft! von: Walter
Geschrieben am: 17.08.2004 21:06:46

Hallo Rainer,
habe dein Vorschlag genommen und läuft!!
Danke.
Gruß Walter


  


Betrifft: Merci :-) Geschlossen o.T. von: Ramses
Geschrieben am: 17.08.2004 21:24:09

...


 

Beiträge aus den Excel-Beispielen zum Thema "Wieso jetzt Fehlermeldung ?"

Fehlermeldung #NV ausblenden
Fehlermeldung abfangen
Fehlermeldung #DIV/0! verhindern
Fehlermeldung abfangen und in sequentielle Datei schreiben
VBA-Fehlermeldungen auflisten
Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen
Zahlenstring mit Formel auslesen und Fehlermeldung verhindern
Makro mit Excape-Taste ohne Fehlermeldung beenden
Fehlermeldung, wenn nicht der erwartete Wert eingetragen wird