VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Laufzeitfehler 13 bei ENTF	17.02.2021 14:23:31	Apollix
Laufzeitfehler 13 bei ENTF	17.02.2021 14:26:29	Mase
Laufzeitfehler 13 bei ENTF	17.02.2021 14:31:18	Gast84933
Laufzeitfehler 13 bei ENTF	17.02.2021 14:29:50	Apollix
Laufzeitfehler 13 bei ENTF	17.02.2021 15:06:01	Gast65341
Laufzeitfehler 13 bei ENTF	17.02.2021 15:22:22	Gast76118
Laufzeitfehler 13 bei ENTF	17.02.2021 15:39:38	Gast10099
Laufzeitfehler 13 bei ENTF	17.02.2021 16:05:28	Apollix
Laufzeitfehler 13 bei ENTF	17.02.2021 16:33:18	Gast90167
Laufzeitfehler 13 bei ENTF	17.02.2021 16:50:56	Gast72376

Ansicht des Beitrags:

Von:
Apollix

Datum:
17.02.2021 16:05:28

Views:
713

Rating:

Antwort:

Thema:
Laufzeitfehler 13 bei ENTF

Hallo,

das hat zumindest das Problem mit der Typenunverträglichkeit gelöst. Danke dafür vielmals.

Es bleibt noch das Problem, dass die ENTF-Taste in B16 nicht funktioniert.

Hat da jemand eine Idee? im Workbook open Event, habe ich folgenden Code, stehen, der beim Öffnen alle Zellen sperrt und die, in die eine Eingabe erfolgt, wieder freigibt:

Sub Workbook_Open()
 
Worksheets("Vorlage").Visible = True
Worksheets("Makros").Visible = False
 
Pronrkorrekt = True
 
    With Worksheets("Vorlage")
        .Unprotect Password:="svc"
        .Cells.Locked = False
        .Cells.Locked = True
        .Range("B10").MergeArea.Locked = False
        .Range("B11").MergeArea.Locked = False
        .Range("D10").MergeArea.Locked = False
        .Range("B12").MergeArea.Locked = False
        .Range("B13").MergeArea.Locked = False
        .Range("B14").MergeArea.Locked = False
        .Range("B15").MergeArea.Locked = False
        .Range("B16").MergeArea.Locked = False
        .Range("B17").MergeArea.Locked = False
        .Range("D17").MergeArea.Locked = False
        .Range("B18").MergeArea.Locked = False
        .Range("B19").MergeArea.Locked = False
        .Range("B21").MergeArea.Locked = False
        .Range("C21").MergeArea.Locked = False
        .Range("D21").MergeArea.Locked = False
        .Range("B22").MergeArea.Locked = False
        .Range("B23").MergeArea.Locked = False
        .Range("B24").MergeArea.Locked = False
        .Range("B25").MergeArea.Locked = False
        .Range("D25").MergeArea.Locked = False
        .Range("B26").MergeArea.Locked = False
        .Range("B27").MergeArea.Locked = False
        .Range("B28").MergeArea.Locked = False
        .Range("A30").MergeArea.Locked = False
        .Protect Password:="svc"
    End With
     
End Sub

Ich verstehe es nicht. In allen anderen Zellen funktioniert die ENTF-Taste ganz normal. Hat da jemand eine Idee, was das Problem sein könnte?

Viele Grüße

Apollix

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Laufzeitfehler 13 bei ENTF	17.02.2021 14:23:31	Apollix
Laufzeitfehler 13 bei ENTF	17.02.2021 14:26:29	Mase
Laufzeitfehler 13 bei ENTF	17.02.2021 14:31:18	Gast84933
Laufzeitfehler 13 bei ENTF	17.02.2021 14:29:50	Apollix
Laufzeitfehler 13 bei ENTF	17.02.2021 15:06:01	Gast65341
Laufzeitfehler 13 bei ENTF	17.02.2021 15:22:22	Gast76118
Laufzeitfehler 13 bei ENTF	17.02.2021 15:39:38	Gast10099
Laufzeitfehler 13 bei ENTF	17.02.2021 16:05:28	Apollix
Laufzeitfehler 13 bei ENTF	17.02.2021 16:33:18	Gast90167
Laufzeitfehler 13 bei ENTF	17.02.2021 16:50:56	Gast72376