On Error bringt Automatisierungsfehler
16.04.2005 15:32:47
SteffenS
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