On Error bringt Automatisierungsfehler

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox MsgBox
Bild

Betrifft: On Error bringt Automatisierungsfehler
von: SteffenS
Geschrieben am: 16.04.2005 15:32:47
Hallo und guten Tag.
Ich habe ein Problem wobei ich bitte Eure Hilfe brauche.
Ich habe in einer UF eine On Error Anweisung:

If ActiveSheet.Name = "Fzg-Übersicht" Then
'Memos für Fahrzeug Übersicht einlesen
On Error GoTo ok1
memo_best.Value = Wbest.Sheets(ActiveSheet.Name).Cells(ActiveCell.Row, ActiveCell.Column).Comment.Text
ok1:
On Error GoTo ok2
memo_worst.Value = Wworst.Sheets(ActiveSheet.Name).Cells(ActiveCell.Row, ActiveCell.Column).Comment.Text
ok2:
Die erste Anweisung funktioniert auch, bei der zweiten kommt
Laufzeitfehler: 400 --> Automatisierungsfehler
Wenn ich den Inhalt der ersten OnError Anweisung herausschmeiße geht die zweite
Was muss ich tun, dass beide Funktionieren.
Hintergrund:
Ich möchte gern den Inhalt eines Kommentares in eine Textbox einlesen.
Ist ein Kommentar nicht vorhanden soll auch nichts passieren.
Vielleicht habt Ihr ja eine Idee wie ich dies lösen kann
Danke
Steffen

Bild

Betrifft: AW: On Error bringt Automatisierungsfehler
von: Micha
Geschrieben am: 16.04.2005 16:15:54
Hallo Steffen

versuch mal ein On Error GoTo 0
vor dem On Error GoTo ok2

Micha
Bild

Betrifft: AW: On Error bringt Automatisierungsfehler
von: Nepumuk
Geschrieben am: 16.04.2005 16:34:41
Hallo Steffen,
nix On Error. Vorher prüfen!!
Beispiel:


Public Sub test()
    If Not Cells(1, 1).Comment Is Nothing Then
        MsgBox Cells(1, 1).Comment.Text
    Else
        MsgBox "Kein Kommentar"
    End If
End Sub


Gruß
Nepumuk
Bild

Betrifft: AW: On Error bringt Automatisierungsfehler
von: Kurt
Geschrieben am: 16.04.2005 16:43:29
...mal ohne on error
If Not Wbest.Sheets(ActiveSheet.Name).Cells(ActiveCell.Row, ActiveCell.Column).Comment.Text Is Nothing Then
memo_best.Value = Wbest.Sheets(ActiveSheet.Name).Cells(ActiveCell.Row, ActiveCell.Column).Comment.Text
End If
...und Tschüss Kurt
 Bild

Beiträge aus den Excel-Beispielen zum Thema "AutoFilter Ergebnis"