Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

On Error bringt Automatisierungsfehler

Forumthread: On Error bringt Automatisierungsfehler

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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: On Error bringt Automatisierungsfehler
16.04.2005 16:15:54
Micha
Hallo Steffen
versuch mal ein On Error GoTo 0
vor dem On Error GoTo ok2
Micha
AW: On Error bringt Automatisierungsfehler
16.04.2005 16:34:41
Nepumuk
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
Anzeige
AW: On Error bringt Automatisierungsfehler
16.04.2005 16:43:29
Kurt
...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
;

Forumthreads zu verwandten Themen

On Error GoTo ErrorHandler
Heinz

Hallo Leute
Habe unteres Makro von " Timo " erhalten...besten Dank
Nun habe ich "On Error GoTo ErrorHandler" selbst eingebaut,aber es funkt. nicht so richtig, läuft wenn kein Fehler nicht weiter.
Könntet ihr mir bitte nochmals helfen ?
Danke Heinz
Option Explicit
Dim Gel...
23.12.2008 18:27:00
Thread-ID: 1035039
14 Beiträge
On error 10 sekunden pause and resume
MBorn

Hallo,
weiß jemand, wie man bei einer Fehlermeldung (Fehlermeldung Laufzeitfehler 1004)
eine 10 sekündige Pause macht und dann Resume?
Gruß aus Berlin,
Born
25.01.2009 20:51:00
Thread-ID: 1043679
4 Beiträge
VBA Resume vier mal, dann Resume next
MBorn

Hallöle,
gibt es eigentlich sowas wie in der Überschrift beschrieben:
Resume 4 times: versuche das gleiche vier mal
Wenn es 4 x nicht klappt dann
Resume next: mach weiter
Ich hab noch nichts dazu gefunden, ihr vielleicht?
Danke,
Born
31.01.2009 16:52:00
Thread-ID: 1045686
6 Beiträge
On Error resume next
Dirk

Hallo zusammen,
habe Probleme mit dem Befehl on Error resume next. gilt dies nur für den nächsten Befehl, oder dann den rest der Prozedur? Kann ich die Fehlermeldungen wieder einschlten?
Mein Wissen langt nicht dafür :-)
03.02.2009 17:52:00
Thread-ID: 1046737
3 Beiträge
Excel4Makro - on error resume next
Michael

Hallo allerseits,
ich habe hier eine historisch gewachsenes sehr sehr umfangreiche Tabelle mit einer Mischung aus Excel4Makros und VBA.
Da liegt meine Problem. Ich suche den Befehl "on error resume next" also "fehler überspringen" für Excel4Makros. Kann mir da jemand helfen?
LG
...
16.12.2009 08:42:38
Thread-ID: 1124248
2 Beiträge
Anzeige
On Error Resume ohne Funktion an einem PC
Günter

Hallo Zusammen,
ich habe eine Fehler bei der Anwendung von "On Error Resume Next".
Hier die Funktion in der is es einsetze:
Public Function shape_Exists(Blatt As Object, shpName As String) As Boolean Dim Bild As Shape On Error Resume Next Set Bild = Blatt.Shapes(shpName) shape_Exi...
05.07.2010 15:01:05
Thread-ID: 1165466
8 Beiträge
OptionButtons per VBA: Automation Error
Sven

Hallo liebe Herber-Gemeinde,
ich hab grad das Problem, dass ich in einer langen Liste in einem Arbeitsblatt Optionbuttons _ per VBA hinzufügen möchte. Dazu benutze ich folgenden Code: With ActiveSheet For i = 2 To ende .OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, Displa...
20.07.2010 19:50:33
Thread-ID: 1167914
3 Beiträge
VBA: deutsche OK - englische Version: Error 13
Dominik

Folgeproblem:In einem Arbeitsblatt, erstellt in Excel 2000, kann in einer Zelle die Zeit ohne ":" eingegeben werden. Der ":" wird durch folgendes Makro ersetzt:Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row 20 Or Target.Column 9 Then Exit Sub
FormatTime (Target....
03.05.2002 12:58:38
Thread-ID: 118198
4 Beiträge
On Error Goto bleibt hängen
Jemp

Hallo Freunde
Ich habe eine Datei aus der ich jeden Montat verschiedene Zellen in eine separate Datei kopieren möchte und diese Datei wird dann gespeichert.
Weil mehrer Dateien auf diese Zieldatei zurückgreifen und die Datei ggfs schon erstellt oder offen ist muss das überprüft werden.<...
10.09.2010 10:03:54
Thread-ID: 1176789
4 Beiträge
VBA Abfrage on error - nur 1 mal OK
chris

Hallo VBA Experten,
ich muss euch um Hilfe bitten.
Ich habe unten einen Code bei dem die Fehlerroutine nicht so klappt wie ich es mir vorstelle.
Es muss ein neuer Tabellenblattname eingegeben werden.
Dann wird die tabelle "Regal_leer" kopiert und entsprechend umbenannt.
Gebe...
28.02.2011 14:06:52
Thread-ID: 1203349
8 Beiträge
On Error go to .... aber wie ???
heidi

Hallo werte Excel-Gemeinde,
da bin ich mal wieder und weiß nicht weiter.
Mein Programm soll aus einer sehr großen Datei heraus viele kleinere erstellen und
um ein paar Tabellenblätter mit Pivot-Tabellen ergänzen.
Nur bleibt dieses verflixte Makro immer hängen, wenn in der Pivot...
28.03.2011 19:07:17
Thread-ID: 1207969
2 Beiträge
On Error Resume Next
Markus

Hallo zusammen,
kann mir jemand sagen, warum das Makro unter Excel 2007 nicht läuft?
im 2003 lief es tadellos!
Danke. Gruß Markus
Sub Vorgaben_Import1() On Error Resume Next Dim strPfad As String Workbooks.Open Filename:=strPfad & Environ("UserProfile") & "\Desktop\" &am...
03.06.2011 15:00:26
Thread-ID: 1217231
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige