Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Laufzeitfehler '70' Zugriff verweigert

Betrifft: Laufzeitfehler '70' Zugriff verweigert von: Tobi
Geschrieben am: 05.11.2020 09:53:31

Guten Morgen Zusammen,


ich arbeite an einer Datenbank in die Mitarbeiter Projekterfahrungen eintragen können. Jeder beliebige Mitarbeiter wird bei der Eintragung von Formular zu Formular geführt. Ein paar haben aber die Möglichkeit dies über eine schnelle Eintragung durchzuführen. Das hat alles auch bestens funktioniert. Bis gestern.


Nun funktioniert die schnelle Eintragung nichtmehr. Hier kommt bei Eintragung.Show der Laufzeitfehler 70 Zugriff verweigert. Vorher hat alles bestens funktioniert.


Könnte es daran liegen das ich ein Dashboard hinzugefügt habe?


Der Code dazu sieht so aus:

Private Sub Schnelle_Eintragung_Click()

'Wenn nichts im Feld der Projektnummer steht, dann öffne eine TextBox mit Inhalt "Das Feld darf  _
 _
 _
nicht leer sein"
    If TextBox1.Text = "" Then
    
        MsgBox ("Das Feld darf nicht leer sein")
        
    Else
    'Wenn die Projektnummer eingetragen wurde, dann:
    'Variable deklarieren
        Dim erste_freie_Zeile As Integer
    'erste freie Zeile in Blatt "Projekt Erfahrungen" ermitteln
    'und in Variable "erste_freie_Zeile" schreiben
        erste_freie_Zeile = Sheets("Projekt Erfahrungen").Range("A65536").End(xlUp).Offset(1, 0) _
 _
 _
.Row
    'In Blatt "Projekt Erfahrungen"
    'Spalte A, erste freie Zeile die Projekt Nr übertragen und die Spalte "Zeile" aufüllen mit   _
 _
_
Formel
        Sheets("Projekt Erfahrungen").Cells(erste_freie_Zeile, "B") = Format(TextBox1.Text)
    'Füge die Laufende Nummer in die Tabelle ein
        Sheets("Projekt Erfahrungen").Cells(erste_freie_Zeile, "A").FormulaLocal = "=ZEILE()+1"
    'verberge das Eingabefeld
        ProjektNr.Hide
    'Zeige das Userform des Bypasses an
        Eintragung.Show

    End If
End Sub


Ich danke euch für eure Hilfe


MfG

Tobi

Betrifft: AW: Laufzeitfehler '70' Zugriff verweigert
von: Nepumuk
Geschrieben am: 05.11.2020 10:21:40

Hallo Tobi,

wie sollen wir das wissen?

Im VBA-Editor Extras - Optionen - Allgemein - Unterbrechen bei Fehlern - In Klassenmodul.

Damit bleibt der Debugger bei der fehlerauslösenden Zeile stehen.

Gruß
Nepumuk

Betrifft: AW: Laufzeitfehler '70' Zugriff verweigert
von: Tobi
Geschrieben am: 05.11.2020 10:24:32

Hallo Nepumuk,

sorry habe das vergessen. Die Fehlerauslösende Zeile ist die Zeile "Eintragung.Show"

MFG
Tobi

Betrifft: AW: Laufzeitfehler '70' Zugriff verweigert
von: Nepumuk
Geschrieben am: 05.11.2020 10:28:27

Hallo Tobi,

nein, das ist nicht die fehlerauslösende Zeile. Die befindet sich im Activate- oder im Initialize-Event des UserForms. Also mach das so wie ich geschrieben habe und löse den Fehler aus, dann siehst du wo er herkommt.

Gruß
Nepumuk

Betrifft: AW: Laufzeitfehler '70' Zugriff verweigert
von: Tobi
Geschrieben am: 05.11.2020 10:35:10

Hallo Mepumuk,

Vielen Vielen Dank!!!

Der Fehler lag darin das in einer ComboBox. Da wäre ich nie drauf gekommen

Grüße Tobias

Beiträge aus dem Excel-Forum zum Thema "Laufzeitfehler '70' Zugriff verweigert"