Thema Datum  Von Nutzer Rating
Antwort
Rot Blattschutz aufheben, Zeile hinzufügen, Blattschutz setzen
 19.09.2020 18:05:00 Steve
NotSolved
19.09.2020 18:11:49 Gast1397
NotSolved
19.09.2020 18:25:14 Gast8873
NotSolved

Ansicht des Beitrags:
Von:
Steve		 Datum:
19.09.2020 18:05:00		 Views:
1213		 Rating:
     
Antwort:
  Ja
Thema:
Blattschutz aufheben, Zeile hinzufügen, Blattschutz setzen

Guten Tag,
Bin ein großer Noob was VBA angeht.


Ich möchte eine Zeile innerhalb einer Tabelle hinzufügen und muss dafür den Blattschutz aufheben (damit die Formeln in der Tabelle übernommen werden).
Am Ende möchte ich den Blattschutz wieder setzen. Leider funktioniert mein Code gar nicht.
Kann mir jemand erklären, wie ich mein Problem beheben kann?
 

Sub Blattschutz_ein_mit_Passwort()
    Sheets("Tabelle1").Protect Password:="123"
End Sub

Private Sub CommandButton1_Click()
    Dim rowNum As Integer
    On Error Resume Next
    rowNum = Application.InputBox(Prompt:="In welcher Zeile wollt ihr eine neue Zeile hinzufügen? Bitte wählt die angegebene Zahl links neben dem Knopf:", _
                                    Title:="Leere Zeile hinzufügen", Type:=1)
    Rows(rowNum & ":" & rowNum).Insert Shift:=xlDown
End Sub
Sub Blattschutz_aus_mit_Passwort()
    Sheets("Tabelle1").Unprotect Password:="123"
End Sub

 

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:



  • 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
Rot Blattschutz aufheben, Zeile hinzufügen, Blattschutz setzen
 19.09.2020 18:05:00 Steve
NotSolved
19.09.2020 18:11:49 Gast1397
NotSolved
19.09.2020 18:25:14 Gast8873
NotSolved