Laufzeitfehler '70' Zugriff verweigert
05.11.2020 09:53:31
Tobi
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