Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Anordnung von Subs
zurück: UserForm: Grösse der UserForm an Monitor anpassen weiter: Datum mit Ganzzahl vergleichen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
edditoni
XLS gut, VBA Anfängster


Verfasst am:
16. März 2010, 13:04
Rufname:
Wohnort: Böblingen

Anordnung von Subs - Anordnung von Subs

Nach oben
       Version: Office XP (2002)

Hallo VBAler,

habe ein gesperrtes und geschütztes Blatt.
Beim Öffnen der Tabelle soll entsperrt und ein bestimmter Berreich zur Bearbeitung freigegeben werden. Danach soll das Ding mittels eines Makros prozessiert werden können.

Dazu habe ich folgenden Code entwickelt

Private Sub Worksheet_Open(ByVal Target As Range)

Sheets("Master").Unprotect

With Range("C4:C5,C13:C14,C19,C21,J2,K4:M23,Q2:U16")
.Locked = False
.FormulaHidden = True
End With

Sheets("Master").Protect

End Sub


und ihn in einem allgemeinen Modul platziert. Und... keine Reaktion.
Wiederhole: das Blatt ist geschützt und die Zellen komplett gesperrt und ich lasse nur die Anwahl der nicht gesperrten Zellen zu.

Was missverstehe/verkenne ich?

Danke euch im Voraus
Gruß
Toni
rolip
Office-VBA-Programmierer


Verfasst am:
16. März 2010, 13:14
Rufname:


AW: Anordnung von Subs - AW: Anordnung von Subs

Nach oben
       Version: Office XP (2002)

Hallo

das Sub Worksheet_Open muß auf dem Worksheet plaziert werden, dann müßte es auch gestartet werden.

Um die Funktion zu prüfen kannst Du es auch umbenennen z.B. Private Sub Worksheet_Open_x und dann testen (z.B. Schrittbetrieb)

Viele Erfolg.

_________________
Gruß Rolf
Vista Ultimate /Office 2007 SP2
Rückmeldungen sind ausdrücklich erwünscht !
edditoni
XLS gut, VBA Anfängster


Verfasst am:
16. März 2010, 13:33
Rufname:
Wohnort: Böblingen

AW: Anordnung von Subs - AW: Anordnung von Subs

Nach oben
       Version: Office XP (2002)

Hi Rolf,

wenn Du unter

Zitat:
das Sub Worksheet_Open muß auf dem Worksheet plaziert werden


"diese Arbeitsmappe" verstehst, dann besteht das Problem weiterhin.

Zitat:
Um die Funktion zu prüfen kannst Du es auch umbenennen z.B. Private Sub Worksheet_Open_x und dann testen (z.B. Schrittbetrieb)

leider weiss ich/gelingt mir die Umsetzung nicht...bin halt Anfänger in Sachen VBA.

Hättest Du weitere Ideen?

Danke & Gruß
Toni
rolip
Office-VBA-Programmierer


Verfasst am:
16. März 2010, 13:42
Rufname:

AW: Anordnung von Subs - AW: Anordnung von Subs

Nach oben
       Version: Office XP (2002)

Hallo Toni,

ja habe ich gemeint.

Nimm mal das Private raus und zum Testen kannst Du ja mal eine Textbox in das VBA reinbringen etwa
Msgbox "Ich arbeite"

dann siehst Du ob die Prozedur beim Öffnen der Datei auch gestartet wird.

_________________
Gruß Rolf
Vista Ultimate /Office 2007 SP2
Rückmeldungen sind ausdrücklich erwünscht !
Rolf-H
Gast


Verfasst am:
16. März 2010, 13:44
Rufname:


AW: Anordnung von Subs - AW: Anordnung von Subs

Nach oben
       Version: Office XP (2002)

Hallo Toni,
die Ereignisroutine beim öffnen eines Workbooks ist
Private Sub Workbook_Open()
'dein Code
End Sub
und gehört unter DieseArbeitsmappe.

Gruss Rolf
Steffl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. März 2010, 13:45
Rufname:

AW: Anordnung von Subs - AW: Anordnung von Subs

Nach oben
       Version: Office XP (2002)

Auch Hallo,

Worksheet_Open gibt es nicht!

_________________
Rückmeldung wäre nett.

Gruß Stefan
Gast



Verfasst am:
16. März 2010, 13:46
Rufname:

AW: Anordnung von Subs - AW: Anordnung von Subs

Nach oben
       Version: Office XP (2002)

Hi, es gibt m.E. keine Worksheet_Open(......) nur
Workbook_Open() ohne Argumente bzw.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
o. Private Sub Worksheet_Activate()

und die gehören ins Tabellenmodul!

Gruß Frank
Case
Coder


Verfasst am:
16. März 2010, 13:47
Rufname: Case
Wohnort: Schwäbisch Hall

AW: Anordnung von Subs - AW: Anordnung von Subs

Nach oben
       Version: Office XP (2002)

Hallo, Razz
Also - es gibt in einem Workbook verschiedene Möglichkeiten Makros zu starten:

Soll etwas beim Start der Datei geschehen bzw. für mehrere Tabellenblätter gleichzeitig gelten, dann gehört es in "DieseArbeitsmappe".

Soll es nur auf einem Tabellenblatt gültig sein gehört es in den Codebereich des entsprechenden Tabellenblattes.

Aber es gilt hier - es gibt eben nur bestimmte Ereignisse - und "Worksheet_Open" gehört nicht dazu, denn das gibt es garnicht. Wink

Wenn der Code beim starten der Datei aktiv werden soll, dann packe ihn unter "DieseArbeitsmappe" in

Code:
Private Sub Workbook_Open()
   ' hier jetzt Deinen Code rein
End Sub


Schau Dir im VBA-Editor einfach mal die verschiedenen Ereignisse an. Wink

Servus
Case

_________________
Servus
Case
edditoni
XLS gut, VBA Anfängster


Verfasst am:
16. März 2010, 14:02
Rufname:
Wohnort: Böblingen


AW: Anordnung von Subs - AW: Anordnung von Subs

Nach oben
       Version: Office XP (2002)

Hallo Alle,

ja, das isses.

Ist mir auch klar, dass man ein Tabellenblatt kaum "öffnen" kann Embarassed

Danke in die Runde,

Gruß
Toni
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel VBA (Makros): Zusammenfassung von Private Subs 7 DonGiovann 90 26. März 2014, 18:49
Gast Zusammenfassung von Private Subs
Keine neuen Beiträge Excel VBA (Makros): cmd button soll 2 subs ausführen 8 vbler 97 14. Feb 2014, 01:56
Gast cmd button soll 2 subs ausführen
Keine neuen Beiträge Excel Formeln: Anordnung von Spalten in Zeilen mit Inhalt 5 huffi 82 27. Aug 2013, 07:54
huffi Anordnung von Spalten in Zeilen mit Inhalt
Keine neuen Beiträge Excel VBA (Makros): Sub's möglich in einem Modul? 16 007ar 305 24. März 2013, 00:17
Isabelle :-) Sub's möglich in einem Modul?
Keine neuen Beiträge Excel Hilfe: Anordnung im Diagramm 1 Martin_ExcelFrage 100 07. Dez 2012, 00:38
Zero Anordnung im Diagramm
Keine neuen Beiträge Excel VBA (Makros): Fehler bei verbinden zweier Worksheet_Change (Subs) 2 Thomas Anders 81 11. Jul 2012, 15:44
Thomas Anders Fehler bei verbinden zweier Worksheet_Change (Subs)
Keine neuen Beiträge Excel VBA (Makros): Mehrere Sub's bündeln 0 BigSanch 184 14. Jun 2012, 19:18
BigSanch Mehrere Sub's bündeln
Keine neuen Beiträge Excel VBA (Makros): Qullcode der Subs minimieren wie in VisualStudio 3 Coffee 405 19. Aug 2011, 16:23
Coffee Qullcode der Subs minimieren wie in VisualStudio
Keine neuen Beiträge Excel VBA (Makros): Subs in neue Tabelle übernehmen 2 Oldie 803 22. Jan 2011, 10:03
Grüezi Subs in neue Tabelle übernehmen
Keine neuen Beiträge Excel VBA (Makros): Übergabe von Variablen an SUB's 5 TOMTOM2000 195 28. Sep 2010, 16:13
TOMTOM2000 Übergabe von Variablen an SUB's
Keine neuen Beiträge Excel Auswertungen: Pivot Tabelle Anordnung 9 boppper 1915 04. Aug 2010, 11:52
Gast Pivot Tabelle Anordnung
Keine neuen Beiträge Excel Auswertungen: Anordnung in der Grafik ändert sich selbstständig 0 Kane81 291 04. Jun 2010, 13:47
Kane81 Anordnung in der Grafik ändert sich selbstständig
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage