Tabellenblätter entsperren, ohne Akitivierung

  • Excel

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von SZR2D.

    Tabellenblätter entsperren, ohne Akitivierung

    Hallo Zusammen,
    ich habe ein kleines Problem beim Ausführen von meinem Makro. Wenn ich es über VBA Fenster schrittweise mit (F8) ausführe - verläuft alles normal. Aber soweit ich es im Excel ausführen will, gibt es Schwierigkeiten.
    Im Verlauf lande ich irgendwann in anderem Blatt "OEE" (ist in der Mappe das letzte Blatt), obwohl ich eigentlich mit dem Makro keine anderen Blätter aktiviere. Ich müsste immer im aktiven Tabellenblatt bleiben.

    Ich habe eine Vermutung, dass es am Entsperren von den Tabellenblättern liegt. Gibt es eine Möglichkeit die Tabellenblätter zu entsperren, ohne die auf irgendeine Weise anzusprechen?
    Andere Möglichkeit: gibt es einen Code, dass ich das letzte aktive Tabellenblatt auswähle (wo das Makro gestartet hat)?

    Visual Basic-Quellcode

    1. ​Sub Charge_V()
    2. ' Blattschutz bei benötigten Tabellenblättern deaktivieren
    3. ActiveSheet.Unprotect Password:="Lok"
    4. Worksheets("OEE").Unprotect Password:="Lok"
    5. Worksheets("Pareto").Unprotect Password:="Lok"
    7. ' Aktuelles Tabellenblatt (Charge) kopieren
    8. ActiveSheet.Copy before:=Sheets("pareto")
    10. ' Neues Tabellenblatt umbenennen. Count wird aktualisiert und um eine "1" ergänzt. Neues Blatt wird in "V_*" +1 umbenannt
    11. Range("z1") = Range("z1") + 1
    12. Range("z12") = "V_" & Range("z1")
    13. ActiveSheet.Name = Range("z12").Text
    15. ' Im neuen Tabellenblatt wird in zwei Zellen eine Formel mit Hinweis auf vorherige Charge eingefügt. Beim Beschriften von der Formel wird zur Verknüpfung
    16. ' bestehendes Tabellenblatt genommen "V_1"
    17. '"Start Rüsten" Der Wert wird von vorheriger Charge - Ende Produktion übernommen.
    18. Range("D6:F6") = "=V_1!R[2]C"
    19. '"Reminder" Hinweis, wenn nicht alle Felder in der vorherigen Charge ausgefüllt waren.
    20. Range("R4:R9") = "=IF(OR(V_1!RC[-14]=0,V_1!R[1]C[-14]=0,V_1!R[2]C[-14]=0,V_1!R[3]C[-14]=0,V_1!R[4]C[-14]=0),""Vorherige Charge nicht komplett ausgefüllt!"",0)"
    21. ' Anhand von aktuellem Count wird in der Zelle ermittelt, welche Charge davor lief
    22. Range("z3") = "V_" & Range("z1") - 1
    23. ' "V_1" wird mit der richtigen Bezeichnung ersetzt
    24. Cells.Replace What:="V_1", Replacement:=Cells.Range("z3")
    25. ' "Start Rüsten" Die Zelle wird gesperrt
    26. Range("D6:F6").Locked = True
    28. ' ClearContent. Im neuem Tabellenblatt werden alle alten Werte von der vorherigen Charge gelöscht. Alle Zellen, die nicht gesperrt werden durchsucht und gelöscht
    29. Dim Bereich As Range
    30. Dim Zelle As Range
    31. For Each Zelle In ActiveSheet.UsedRange
    32. If Zelle.Locked = False Then
    33. If Bereich Is Nothing Then
    34. Set Bereich = Zelle
    35. Else
    36. Set Bereich = Union(Bereich, Zelle)
    37. End If
    38. End If
    39. Next
    40. Bereich.ClearContents
    42. ' OEE Daten aktualisieren mit der neuen Charge
    43. With Worksheets("OEE")
    44. ' Im Tabellenblatt "OEE" wird der Filter rausgenommen
    45. .Range("$A$2:$D$1500").AutoFilter Field:=2
    46. End With
    47. ' Werte, die an aktuelle Charge anknüpfen werden kopiert
    48. ActiveSheet.Range("U12:Ae72").Copy _
    49. ' Im Tabellenblatt "OEE" wird nach der nächsten freien Zeile gesucht, um die Werte vom neuem Tabellnblatt zu ergänzen
    50. With Worksheets("OEE")
    51. .Range("A" & Application.Max(5, .Cells(.Rows.Count, 1).End(xlUp).Row + 1)). _
    52. PasteSpecial Paste:=xlPasteAll
    53. End With
    55. 'Pareto Daten aktualisieren mit der neuen Charge
    56. ' Werte, die an aktuelle Charge anknüpfen werden kopiert
    57. ActiveSheet.Range("Af12:Ai191").Copy _
    58. ' Im Tabellenblatt "Pareto" wird nach der nächsten freien Zeile gesucht, um die Werte vom neuem Tabellnblatt zu ergänzen
    59. With Worksheets("Pareto")
    60. .Range("A" & Application.Max(5, .Cells(.Rows.Count, 1).End(xlUp).Row + 1)). _
    61. PasteSpecial Paste:=xlPasteAll
    62. End With
    63. Range("e11").Select
    64. ActiveCell.Offset(1, 0).Select
    65. ' Blattschutz bei allen Tabellenblättern aktivieren
    66. For Each Blatt In ActiveWorkbook.Worksheets
    67. Blatt.Protect ("Lok")
    68. Next Blatt
    70. End Sub

    In den Zeilen 66 bis 68 wechselst du aber mit sicherheit das Arbeitsblatt (Sheet).

    Das gezielte Aktivieren müsste so funktionieren: Worksheets(1).Activate Hier wird das erste Arbeitsblatt aktiviert.

    Wenn du nur den Namen kennst, kannst du das so machen:

    Visual Basic-Quellcode

    1. For x = 1 To Worksheets.Count
    2. If Worksheets(x).Name = "HierderName" Then
    3. Worksheets(x).Activate
    4. Exit For
    5. End If
    6. Next

    Am Ende ist es auch nicht wichtig, aber das Problem ist, dass der Name eben unbekannt ist, da es sich immer ändert.
    Mit dem Code wird eine Eingabemaske kopiert und vervielfältigt. Ich starte mit dem Tabellenblatt V_1 und jedes Mal, wenn ich den Code ausführe, kommt eins dazu. V_2, V_2 usw.
    Der Code soll deswegen universal bleiben, weil am Ende der Woche, weiß ich nicht wie viele solche Chargen gefertigt werden.

    Mit dem Befehl

    Visual Basic-Quellcode

    1. ​ActiveSheet.Copy before:=Sheets("pareto")

    wird ActiveSheet auf die Kopie gesetzt.
    Gib deinen Sheets vernünftige Objektnamen und sprich diese an,
    ActiveSheet ist ein volatiles Objekt.

    Oder speichere wenigstens die Sheets in eine Objektvariable und adressiere deine Befehle entsprechend, damit du immer weißt, in welchem Blatt du arbeitest.

    Visual Basic-Quellcode

    1. Set ws1 = Activesheet
    2. ​ws1.Copy before:=Sheets("pareto")
    3. Set ws2 = ActiveSheet
    4. ws2.Range("z1").Value = ws2.Range("z1").Value + 1
    5. ws2.Range("z12").Value = "V_" & Range("z1").Value
    6. ws2.Name = Range("z12").Text
    7. ...
    8. ws1.Activate
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende