Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beitrag Statistik erstellen vom 16.01

Beitrag Statistik erstellen vom 16.01
Peter
Hallo liebe Fachleute,
zu der von Franz ertsellten Datei mit den verschiedenen sheets habe ich zu folgendem Beitrag (https://www.herber.de/forum/archiv/1244to1248/t1246404.htm#1246404) eine ergänzende Frage:
Im geschützten Quellarbeitsblatt ist der Zellbereich ("B9:J49") ungeschützt, da der Haken bei Gesperrt entfernt ist. Somit sind im Arbeitsblatt nur hier Einträge möglich, die zu den statistisch erfassten Daten führen, die Franz über vba ausliest und in die Statistik überträgt.
Ist es möglich, den Code im folgenden link so zu ergänzen, dass nach dem Auslesen der Daten über den Button der Zellbereich ("B9:J49") in der Quellarbeitsmappe automatisch gesperrt wird, sprich, dass die Arbeitsblätter, die ausgewertet wurden nicht mehr verändert werden können (Passwortschutz sei jetzt mal dahingestellt)?
Und wenn ja bleibt die Möglichkeit, dies wieder zu öffnen, wenn man doch noch nachträgliche Änderungen vornehmen muß?
https://www.herber.de/bbs/user/78477.xls
Ich hoffe, ich konnte mich diesmal verständlich ausdrücken. Wenn nicht fragt bitte nach.
Schon jetzt danke für alle Hilfe.
Grüße
Peter

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

Betreff
Benutzer
Anzeige
AW: Beitrag Statistik erstellen vom 16.01
25.01.2012 21:34:06
fcs
Hallo Peter,
leider machten die verbundenen Zellen im Zellbereich die Anpassung etwas schwieriger.
Textdatei mit angepasster Prozedur.
https://www.herber.de/bbs/user/78602.txt
Zum Ändern von Daten im Quelltabellenblatt muss dann der Blattschutz aufgehoben werden. Allerdings sind dann vorübergehend alle Zellen editierbar. Mit dem nachfolgenden Makro kannst du den Schutz eines aktuell angezeigten KW-Blattes für den Eingabebereich aufheben. 
Sub QuelltabellenBlatt_SchutzAus()
'Eingabebereich B2:J49: Schutz aufheben
Dim wksQuelle As Worksheet
Dim lngZeile As Long, Spalte As Long
Set wksQuelle = ActiveSheet
With wksQuelle
.Unprotect 'Passwort:=""
For lngZeile = 9 To 49
For Spalte = 2 To 10 Step 2
.Cells(lngZeile, Spalte).MergeArea.Locked = False
Next
Next
.Protect 'Passwort:=""
End With
End Sub

Gruß
Franz
Anzeige
AW: Beitrag Statistik erstellen vom 16.01
26.01.2012 10:06:54
Peter
Hallo Franz,
vielen Dank für Deine Hilfe. Ich werde es übertragen und hier Rückmeldung geben.
Gruß
Peter
AW: Beitrag Statistik erstellen vom 16.01
26.01.2012 10:52:36
Peter
Hallo Franz,
ein Prob ist aufgetaucht beim Speichern der Quelldatei. Er möchte die Datei unter einem neuen Namen abspeichern und bringt deshalb das Speichern Unter-Abfragefenster und wartet auf Eingabe.
Es müsste so laufen, dass die vorhanden Datei einfach gespeichert wird. Hab mal gegoogelt und hier im Forum geschaut aber nichts passendes gefunden.
Wenn ich
Application.DisplayAlerts=False setze speichert er wohl einfach unter "Kopie ..."ab
Gibt es hier einen anderen Code der nur die Änderungen speichert in der aktiven Datei?
Danke
Peter
Anzeige
AW: Beitrag Statistik erstellen vom 16.01
26.01.2012 11:40:27
Peter
Hallo Franz,
habe den "Fehler" gefunden. Im davorstehenden Code war die Quelldatei ´schreibgeschützt`geöffnet. Nach Änderung auf "Readonly=false" hat es funktioniert.
Also Super und vielen Dank.
Gruß
Peter
AW: Beitrag Statistik erstellen vom 16.01
26.01.2012 17:21:39
Hajo_Zi
Hallo Peter,
warum ist der Beitrag offen? Das lese ich nicht in Deinem Beitrag.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige