Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

On Error GoTo

On Error GoTo
22.11.2005 10:57:54
diedine
Hallo :)
Ich hab ein Makro, welches mir den Inhalt der Kopfzeile anpaßt.
(https://www.herber.de/forum/messages/698802.html)
Wie kann ich die Fehlermeldung unterdrücken, die ausgegeben wird, wenn meine Kopfzeile weniger als 7 Zeichen beinhaltet. (Laufzeitfehler 5)
Hab im Forum nichts zu On Error GoTo gefunden.
Vorab vielen Dank
diedine

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: On Error GoTo
22.11.2005 11:03:22
Hajo_Zi
Hallo Hans Bärbel,
Dein Makro sehe ich nicht. Warum das verlinkt sein muß und nicht im Beitrag steht ist mir nicht klar.


AW: On Error GoTo
22.11.2005 11:22:54
diedine 

Sub t()
Dim WS As Worksheet
Dim datum As String
datum = ""
Sheets("Kopfzeile").Select
datum = Range("b1")
For Each WS In ThisWorkbook.Worksheets
WS.PageSetup.CenterHeader = Left(WS.PageSetup.CenterHeader, Len(WS.PageSetup.CenterHeader) - 7) & datum
Next WS
End Sub

Sorry, Link ging ins Leere.
AW: On Error GoTo
22.11.2005 11:28:58
u_
Hallo,
vermeide den Fehler!

Sub t()
Dim WS As Worksheet
Dim datum As String
datum = ""
Sheets("Kopfzeile").Select
datum = Range("b1")
For Each WS In ThisWorkbook.Worksheets
If Len(WS.PageSetup.CenterHeader)>7 Then WS.PageSetup.CenterHeader = Left(WS.PageSetup.CenterHeader, Len(WS.PageSetup.CenterHeader) - 7) & datum
Next WS
End Sub

Gruß
Geist ist geil!
Anzeige
AW: On Error GoTo
22.11.2005 11:41:46
diedine
Danke für den geistreichen Tipp.
Da aber nicht ich mit der Mappe arbeite, kann ich das Eingabeverhalten schlecht beeinflussen.
Und meine Excel-noch-mehr-DAUs-als-ich können mit dem Debugger irgendwie nicht viel anfangen.
AW: On Error GoTo
22.11.2005 11:44:47
u_
Hallo,
hättest du aufmerksam gelesen, wäre dir aufgefallen, dass der Fehler mit meiner Änderung vermieden wird.
Gruß
Geist ist geil!
AW: On Error GoTo
22.11.2005 11:52:26
diedine
Funktioniert - der Laufzeitfehler ist vermieden.
Aber ich brauch eine Fehlermeldung, damit meine User sehen, daß nicht alle Tabellenblätter einen neuen Titel haben.
AW: On Error GoTo
22.11.2005 12:32:04
MichaV
Hallo Dine,
guck doch mal in der Online- Hilfe unter On Error. Da ist ein ausreichendes Beispiel für Dein Problem.
Gruss- Micha
Anzeige
AW: On Error GoTo
22.11.2005 12:53:05
u_
Hallo,
bei dem Level solltest du selbst in der Lage sein, eine entsprechende Meldung einzubauen.
Ich will aber mal nicht so sein:

Sub t()
Dim WS As Worksheet
Dim datum As String
datum = ""
Sheets("Kopfzeile").Select
datum = Range("b1")
For Each WS In ThisWorkbook.Worksheets
With WS.PageSetup
If Len(.CenterHeader) > 7 Then
.CenterHeader = Left(.CenterHeader, Len(.CenterHeader) - 7) & datum
Else
MsgBox "Blatt " & WS.Name & " kann nicht geändert werden"
End If
End With
Next WS
End Sub
Gruß
Geist ist geil!
Danke
22.11.2005 13:18:56
diedine
Gruß
diedine
Anzeige

174 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
13
3
5
2
5
1
7
2
3
3
7
1
4
8
6
3
4
6
5
1
2
4
2
2
2