Hilfe für Schleife mit Arbeitsmappen und Balttschutz

[ulle]

Hi ich habe noch ein kleines Problem meine Mappe ist Baltt geschützt und die Mappe ist für mehrere Benutzer frei gegeben.
Leider blendet es die Zeile nun nicht mehr aus und rechnet wieder sehr lange

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Application.DisplayAlerts = False
  ActiveWorkbook.ExclusiveAccess
  Application.DisplayAlerts = True
ActiveSheet.Unprotect
If Not Intersect(Target, Me.Range("G1,J1,G3,J3,P3,M3,S3,V3,Y3,G4,J4,M4," _
   & "P4,S4,V4,Y4,AB4")) Is Nothing Then
  Select Case LCase(Target.Address(False, False))

   Case "g1": ZeilenEinAus 7, Target
   Case "j1": ZeilenEinAus 8, Target
   Case "g3": ZeilenEinAus 9, Target
   Case "j3": ZeilenEinAus 10, Target
   Case "m3": ZeilenEinAus 11, Target
   Case "p3": ZeilenEinAus 12, Target
   Case "s3": ZeilenEinAus 13, Target
   Case "v3": ZeilenEinAus 14, Target
   Case "y3": ZeilenEinAus 15, Target
   Case "g4": ZeilenEinAus 16, Target
   Case "j4": ZeilenEinAus 17, Target
   Case "m4": ZeilenEinAus 18, Target
   Case "p4": ZeilenEinAus 19, Target
   Case "s4": ZeilenEinAus 20, Target
   Case "v4": ZeilenEinAus 21, Target
   Case "y4": ZeilenEinAus 22, Target
   Case "ab4": ZeilenEinAus 23, Target
         End Select
End If
 
 
End Sub

Private Sub ZeilenEinAus(Start As Long, Zelle As Range)
Dim Zeile As Long
 For Zeile = Start To Start + 239 Step 18
  Rows(Zeile).Hidden = IsEmpty(Zelle)
Next
    ActiveSheet.Protect
   
   Application.DisplayAlerts = False
   If Not ActiveWorkbook.MultiUserEditing Then
   ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
   AccessMode:=xlShared
   SaveChanges = True
   End If
   
End Sub

[ulle]

So ich habe für das Bessere Verständniss einmal die Datei angehängt.

Also meine Anliegen für die Datei
  Einzelauswertung2.xlsm (Größe: 226,69 KB / Downloads: 4)  sind folgende.

1. Soll das Makro laufen wenn nur in den zellen neben den Gelben Zahlen (Bereich G1:AD4) etwas geändert wird und das ganze mit Blattschutz und Arbeitsmappe freigegeben für Benutzer die es gleichzeitig nutzen können.

2. Wenn in Bereich A1 die Schicht ausgewählt wird soll in den Feldern auch die namen eingetragen werden die zu der Schicht gehören.
   aber es Soll auch möglich sein selbst die Namen einzutragen um Vergleiche anzustellen.

Ich habe es zwar schon unter Schutz zum laufen gebracht allerdings rechnet er dann eine ganze Weile :s

Ich hoffe ihr könnt mir helfen.

[steve1da]

Hola,

siehe auch...

http://www.herber.de/forum/messages/1444783.html

Gruß,
steve1da

[Käpt'n Blaubär]

Hallo,

Du hast in der Datei noch alte Verknüpfungen.
Beispielsweise wird nach einer Datei von 2003 gefragt.

Mein Vorschlag in Güte:  Räuime mal vernünftig auf und dann versuchen wir das Ganze nochmal  :19:

[ulle]

Hallo,

Du hast in der Datei noch alte Verknüpfungen.
Beispielsweise wird nach einer Datei von 2003 gefragt.

Mein Vorschlag in Güte:  Räuime mal vernünftig auf und dann versuchen wir das Ganze nochmal  :19:

Keine Ahnung wo diese blöde Abfrage drin steckt, ich habe die schon versicht zu finden.
Ich habe die Tabelle als Versuchdatei, und für euch in ein einzelnes Tabellenblatt verschoben, da sind ja auch noch mehr Abfragen drin.

Wäre super wenn ihr mir bei der Anfrage trodem Helfen könntet.

[Käpt'n Blaubär]

Hallo, 

das hier kann ich Dir zur Orientierung anbieten: https://www.dropbox.com/s/76kvnwxufnmjtt..._.jpg?dl=0

[ulle]

Hallo, 

das hier kann ich Dir zur Orientierung anbieten: https://www.dropbox.com/s/76kvnwxufnmjtt..._.jpg?dl=0

Hmm die Verknüpfung sind ja wohl klar das die nicht da sind. Trotzdem findet man den Verweis auf Urlaub 2003 nicht.  Das ist doch aber gar nicht mein Problem. 

Ich schreibe die in der arbeitsmappe eh neu.  Ich brauche einfach nur Hilfe bei dem makro wie oben beschrieben arbeitsmappenschutz mit freigabe und das bei Auswahl der der Schicht die Namen aus der rechten Tabelle,  was bei euch sicherlich nur #### ist.