Teilergebnisse

Hallo Zusammen
Im Forum überall gesucht und nichts gefunden. Nun, gelange ich mit meiner Frage zu Euch.
Habe eine Bilanz erstellt mit Teilergebnisse. Soweit läuft alles gut. Unten habe ich noch ein kleiner Ausschnitt des Codes.
Da diese Bilanz von einigen Mitarbeiter als Vorlage benützt wird, kommt es vor, daß Spalten, Zeilen oder Verknüpfungen durch das Einfügen von Zeilen nicht mehr stimmen. Um das zu Verhindern wollte ich dieses Arbeitsblatt schützen. Soweit auch alles Gut, wären nicht Commandbuttons für das Aus- bzw. Einblenden von leeren Zeilen in der Bilanz. (als Info) Die Daten werden von einem anderen Tabellenblatt übertragen.
Sobald ich das Blatt schütze, und auf den Commandbutton alle leeren Zeilen ausblenden drücke bekomme ich den Fehlercode 400 von Microsoft.
Wie kann ich eleganterweiser dies umgehen, so daß diese Bilanz (Also die Zellen) vor Manipulationen geschützt sind.
If Range("E16").Value + Range("H16").Value = 0 Then
Range("E16").EntireRow.Hidden = True
Else
Range("E16").EntireRow.Hidden = False
End If
If Range("C17").Value + Range("H17").Value = 0 Then
Range("C17").EntireRow.Hidden = True
Else
Range("C17").EntireRow.Hidden = False
End If
Für Eure Unterstützung wäre ich dankbar.
Gruß
Geri

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Geri!
Du mußt den Schutz IN deinem Code zu Beginn aus- und am Ende wieder einschalten.
Dein Code kann auch nur arbeiten,wenn der Schutz ausgeschaltet ist und wenn die Sachen abgearbeitet sind,schaltet sich der Blattschutz wieder ein!


Sub Blattschutz_aus()
Sheets("X").Unprotect Password:="XXXXXXX"
End Sub


Sub Blattschutz_ein()
Sheets("X").Protect Password:="XXXXXXX"
End Sub

Noch ein Tipp:
Generell würde ich dir auch empfehlen,bestimmten Zellen Namen zu geben und dann diese Zelle gezielt anzuspringen.
Hierbei ist es auch egal,ob jemand Spalte,Zellen o. ä. einfügt und sich alles verschiebt - Der Bezug zu dieser Zelle wandert dann mit und du springst nach wie vor dahin,wo du hinmöchtest!
Namen vergeben,kannst du einmal manuell oder auch über den Code:
Names.Add Name:="XXXX", RefersTo:="=" + Selection.Address 'Gilt für aktuell markierte Zelle
Dann kannst du diese Zelle anspringen:
Application.Goto reference:=("XXXX")
Hoffe,ich konnte dir helfen!
Gruß Christoph

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Teilergebnisse

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread