VBA Code enthält einen Fehler

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Frank,
Fehlercode (80010108) macht es doch wieder interessant.
Ich habe jetzt auf XP/XLS2003 getestet - nicht nachvollziehbar.
Die Fehlermeldung weist u.U. darauf hin, dass die Variable "s", die den neuen Sheetname festlegt,
nicht konform zu den Excel-Regeln ist. z.B. gar nicht gefüllt, nicht erlaubte Sonderzeichen, .....
Nochmals:
1. Wenn Du die xlsfile öffnest, welches Blatt ist da das aktive Blatt
a) Blanko oder
b) Tagesbericht Blanko
2. Wenn das aktive Blatt "Tagesbericht Blanko" ist, dann klickst Du auf das Blatt "Blanko": JA/Nein?
3. Beginn deines Tests
"1. wenn ich aber zuerst auf Neuer Monat im Tabellenblatt "Blanko" klicke...."
Zu diesem Zeitpunkt besteht die Möglichkeit in B4 in "blanko" (Dropdown) einen Monat auszuwählen.
a) Wählst Du einen Monat aus? JA/Nein, bei JA: welchen Monat
b) Bevor Du auf "Neuer Monat" klickst, was steht zu diesem Zeitpunkt in B4?
4. Nach dem Klick auf "neuer Monat" werden 2 neue Blätter erzeugt:
a) Wie lauten danach die beiden Blattnamen?
Erstes Blatt "Blanko (2)" und Zweites Blatt "Tagesbericht Blanko (2)"
b) Sind es diese beiden Namen? Ja/Nein
c) Sind sie auch in dieser Reihenfolge? Ja/Nein
d) Welches der beiden Blätter ist das aktive Blatt (wird angezeigt)?
5. Im Blatt "Tagesbericht Blanko (2)" willst Du in B1 ein Datum eingeben.
was genau kannst Du noch durchführen bevor Excel abstürzt?
a) Mausklick auf B1, Excel läuft noch? Ja/nein
b) Eintippen eines Datums (noch nicht Datenfreigabe!!!) Excel läuft noch? Ja/Nein
c) Enter-Taste, nach der Eingabe des vollständigen Datums, Excel läuft dann noch? Ja/Nein
zu b) Welches Datum gibst Du ein? Bitte hier in gleicher Form eingeben.
Mit dem Ergebnis zu diesen Fragen bitte nochmals melden, mal sehen .....
Meine Vermutung:
Der Fehler liegt bei den Befehlen zum Blatt kopieren / Blattnamen ändern.
Die Variable "s" könnte verantwortlich sein. Wenn diese nicht xls-konformen Inhalt hat, dann... ?
Wenn ich einem Blatt via VBA einen neuen Namen gebe, der nicht xls-konform ist, kann ich einen Ablauffehler forcieren. In Excel 2013 bekomme ich den Laufzeitfehler "1004".
xls2003 arbeitet vllt. noch nicht so akkurat in den Fehlerbehandlungen, deshalb der Fehler "800...".
Google search mit 80010108 ergab viele Treffer, einen gut vergleichbaren.
http://microsoft.newsgroups.archived.at/public.excel.programming/200710/071018113010.html
Tipps für weiteres, genaueres testen:
1. Setze "Application.ScreenUpdating = False" auf TRUE
2. Setze in JEDEM Makro die erste Instruktion als Haltepunkt (anklicken + F9)
3. Starte deinen Test - er bleibt bei der ersten Instruktion stehen - und arbeite mit F8(Debug), um
nach jeder einzelnen Instruktion anzuhalten.
4. So ermittelst Du die exakte Instruktion, bei der xls crashed.
5. Bist Du mit den "überwachungsausdrücken" vertraut. Damit kann man sich den Inhalt der Variablen
zum Laufzeitpunkt anzeigen.
Gruß
Firmus

Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim s As String If Target.Address = "$B$1" Then s = Range("B1").Value If IsDate(Target.Value) Then s = Format(s, "dd mmmm yyyy") MsgBox "MSG01: neuer name: '" & s & "'" If UCase(ActiveSheet.Name) = UCase("Tagesbericht blanko") Then ' s = "test/a" 'enthält absichtlich einen Fehler, um Fehlerroutine zu testen. MsgBox "MSG02: neuer name: '" & s & "'" On Error Resume Next ActiveSheet.Name = s If Err.Number 0 Then MsgBox "MSG03: Fehler '" & Err.Number & " " & Err.Description & " aufgetreten." On Error GoTo 0 Exit Sub End If End If Else MsgBox "MSG04: Zelle B1 enthält kein Datum, Wert='" & s & "'." Exit Sub End If End If End Sub

Hi Frank,
"Manuelles Kopieren lässt Excel ebenfalls abstürzen", da ist vermutlich mehr kaputt in dieser xlsfile.
ich würde jetzt an den Basics anfangen.
1. komplett neues xlsfile.
2. ein Blatt kopieren (mit ein paar dummy Daten)
3. Excel-Absturz?
JA: dein EXCEL scheint defekt zu sein. Kann hier ohne Detailkenntnis keine weiteren Tipp geben.
NEIN: Deine bestehende xlsfile ist defekt, dann neu anfangen.
4. Neuanfangen:
a) Blätter H + Blanko + Tag...Blanko in neuer xlsfile anlegen.
b) Aus der defekten File diese drei Blätter einzeln kopieren,
c) Speichern und dann noch ein manuelles Kopieren durchführen.
Excel-Absturz?
JA: Kopiervorgänge aufsplitten nach Daten + Formeln + Formaten
Nein: Erst einmal gewonnen,
d) Makros schrittweise einfügen und bei jedem Schritt testen.
Ist eine Möglichkeit, wahrscheinlich dass es dann klappt, aber keine Garantie.
Ich werde hier aussteigen, wünscht Dir noch viel Erfolg.
Kurzer Update über das endgültige Ergebnis wäre nett.
Gruß
Firmus

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Code enthält einen Fehler

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread