Automatisierungsfehler

Forumthread: Automatisierungsfehler

Blanco

Hello zusammen.
Kurz zu meiner Situation. Ich bin Diabetiker und habe mir in Excel (wo sonst...) ein paar Makros geschrieben, die mir meine Glukosekurve anzeigt und mir bei meiner Therapie nützlich ist. Das funktioniert eigentlich tadellos. Ich will die Einträge für einen Tag (Glukosewert, Essen, Insulingabe usw...) nicht doppelt machen (zuhause und im Büro). Also habe ich mir bei "Drop-Box" ein Konto zugelegt. Eigentlich eine super Sache. Synchronisiert mit dem Büro. Es hört sich super an, funktioniert aber nicht. Die Drop-Box schon, ich habe die Excel-Datei (so um die 3,5MB) auch daheim. Ich kann sie öffnen, die Makros funktionieren auch.
Ich kann sie aber nicht abspeichern. Schon beim Abspeichern kommt eine Fehlermeldung, und bei jedem
folgenden Event (Worksheet.change) kommt die Fehlermeldung "Automatisierungsfehler"...
Hat jemand eine Idee? Die Makros wurden ja nicht durch eine Firewall herausgefiltert, ich sehe sie ja..
Trotzdem noch der Code, eigentlich ganz simpel. (es sind schon noch einige 100 Zeilen in anderen Modulen, aber hier hängt es sich gleich auf).

Private Sub Worksheet_Change(ByVal Target As Range)
If Kopiervorgang Then Exit Sub
If Änderungsvorgang Then Exit Sub
'Grundeinstellungen
Blatt1 = ActiveSheet.Index
Blatt2 = Blatt1 + 1
Zeile = Target.Row
Spalte = Target.Column
Version = Cells(1, 2).Value
Select Case Version
Case "4.1": Wochenstartzeile = 30
Tagesinkrement = 20
MaxSpalten = 217
MaxZeilen = 170
IESenkung = Cells(9, 24).Value
BEHebung = Cells(7, 24).Value
Hyposchwelle = Cells(11, 24).Value
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "Vorlage V4.1" Then Vorlagenummer = i
Next i
Case "4.2": Wochenstartzeile = 30
Tagesinkrement = 20
MaxSpalten = 217
MaxZeilen = 170
IESenkung = Cells(9, 24).Value
BEHebung = Cells(7, 24).Value
Hyposchwelle = Cells(11, 24).Value
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "Vorlage V4.2" Then Vorlagenummer = i
Next i
Case Else: Exit Sub
End Select
'zusätzliche Abbruchbedingungen
If (Zeile  MaxZeilen) Then Exit Sub
If (Spalte  MaxSpalten) Then Exit Sub
'aktuelle Position der Eingabe
Akttag = Int((Zeile - Wochenstartzeile) / Tagesinkrement) + 1
Tagesstartzeile = Wochenstartzeile + (Akttag - 1) * Tagesinkrement
Relativzeile = Zeile - Tagesstartzeile
'Bestimmen der Eingabe und Verzweigung
Select Case Relativzeile
Case 4 To 9: Select Case Spalte
Case 4 To 99: TagebucheintragV41 (Akttag)
Case 125 To 217: BasisänderungV41
Case Else: Exit Sub
End Select
Case 16: Profil = Cells(Zeile - 15, Spalte).Value
Zielzeile = Tagesstartzeile + 23 + Profil
Zielspalte = Spalte + 121
Cells(Zielzeile, Zielspalte).Value = Cells(Zeile - 14, Spalte).Value + Cells( _
Zeile, Spalte).Value
Case Else: Exit Sub
End Select
End Sub

---------------
Ich gebe ja zu, dass es eventuell auch ein Problem mit dieser "Drop Box" ist, aber: Datei ist da, Code ist da und die Fehlermeldung eben auch.. ?
Vielleicht hat jemand eine Idee und kann mir sagen, was ich falsch mache...
Blanco

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

AW: Automatisierungsfehler

Rolf

AW: Automatisierungsfehler

01.09.2012 17:06:04

Rolf

Hallo Blanco,
bei so einer Fehlermeldung kräuseln sich bei mir die Fußnägel. Ich hatte mal ein ähnliches Problem; konnte es durch try-and-error lösen. Versuche mal folgendes:
Öffne deine Datei, > Entwicklertools > Visual Basic > Extras > Verweise
Wenn dort eine Fehlermeldung - "NICHT VORHANDEN..." auftaucht, den Haken entfernen.
Gruß, Rolf

Infobox / Tutorial

Automatisierungsfehler in Excel VBA beheben

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne deine Excel-Datei.
Gehe zu den Entwicklertools: Klicke auf „Entwicklertools“ in der Menüleiste. Falls du diese Option nicht siehst, musst du sie möglicherweise aktivieren.
Öffne den Visual Basic-Editor: Klicke auf „Visual Basic“.
Überprüfe die Verweise: Klicke auf „Extras“ und dann auf „Verweise“.
Suche nach fehlenden Verweisen: Wenn dort eine Fehlermeldung wie „NICHT VORHANDEN“ angezeigt wird, entferne den entsprechenden Haken.
Speichere die Datei: Versuche jetzt, die Datei erneut zu speichern.

Häufige Fehler und Lösungen

Automatisierungsfehler: Wenn du beim Speichern einen „Automatisierungsfehler“ erhältst, könnte dies an fehlenden Verweisen in deinem VBA-Code liegen. Überprüfe die Verweise wie oben beschrieben.
Ungültige Vorreferenz: Ein „vba automatisierungsfehler ungültige vorreferenz“ deutet darauf hin, dass ein Objekt oder eine Bibliothek, auf die dein Code zugreift, nicht verfügbar ist. Überprüfe alle verwendeten Objekte und deren Referenzen.
Dateisynchronisation: Wenn du mit Dropbox arbeitest, stelle sicher, dass die Datei vollständig synchronisiert ist, bevor du versuchst, sie zu speichern. Probleme mit der Synchronisation können zu „excel automatisierungsfehler“ führen.

Alternative Methoden

Verwendung von OneDrive: Anstelle von Dropbox kannst du auch OneDrive für die Synchronisation deiner Excel-Dateien verwenden. Dies reduziert das Risiko von „excel automatisierungsfehler ausnahmefehler aufgetreten“.
Makros lokal speichern: Teste deine Makros lokal, bevor du sie in eine synchronisierte Datei überträgst. So kannst du sicherstellen, dass die Makros ohne Probleme funktionieren.

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie du einen Automatisierungsfehler in deinem VBA-Code vermeiden kannst:

Sub BeispielFehlerbehandlung()
    On Error GoTo Fehlerbehandlung
    ' Dein Code hier
    Exit Sub

Fehlerbehandlung:
    MsgBox "Ein Automatisierungsfehler ist aufgetreten: " & Err.Description
End Sub

Durch die Verwendung der Fehlerbehandlung kannst du spezifische Fehler abfangen und anzeigen, was dir hilft, die Ursache des „automatisierungsfehler excel“ besser zu verstehen.

Tipps für Profis

Regelmäßige Backups: Erstelle regelmäßige Backups deiner Excel-Dateien, insbesondere wenn du viel mit VBA arbeitest. So kannst du Datenverluste bei einem „excel automatisierungsfehler ungültige vorreferenz“ vermeiden.
Verwende die Debugging-Tools: Nutze die Debugging-Tools im Visual Basic-Editor, um Probleme in deinem Code schneller zu identifizieren.
Dokumentation der Verweise: Halte eine Dokumentation über die verwendeten Verweise in deinem Projekt, um bei Problemen schneller die Quelle des Fehlers zu finden.

FAQ: Häufige Fragen

1. Was ist ein „Automatisierungsfehler“ in Excel VBA?
Ein Automatisierungsfehler tritt auf, wenn VBA auf ein Objekt oder eine Methode zugreifen möchte, die nicht verfügbar ist oder einen ungültigen Zustand hat.

2. Wie kann ich „vba automatisierungsfehler ungültige vorreferenz“ beheben?
Überprüfe die Verweise in deinem VBA-Projekt und stelle sicher, dass alle benötigten Bibliotheken verfügbar sind. Entferne nicht vorhandene Verweise.

3. Was tun, wenn ich die Datei nicht speichern kann?
Stelle sicher, dass die Datei nicht von einer anderen Anwendung oder einem anderen Benutzer geöffnet ist, und überprüfe die Synchronisation, wenn du Cloud-Dienste wie Dropbox verwendest.

Beliebteste Forumthreads (12 Monate)