Makro auf versteckte Datei anwenden

[Kurt Fritz]

Hallo,
in einem Arbeitsblatt habe ich zwei Tabellen. (Gruppe3 und Gruppe3a)
Gruppe 3a wird mit Hilfe von  Formen erstellt und ist für den weiteren „Einsatz“ so nicht zu nutzen.
Mit Hilfe des Makros:
 Sub Gruppe3()
'
' Gruppe3 Makro
'
' Tastenkombination: Strg+Umschalt+C
'
    Range("A5").Select
    Sheets("Gruppe 3A").Select
    Range("A4:G55").Select
    Selection.Copy
    Sheets("Gruppe 3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("B11").Select
End Sub
Sub Sort_Aufl_Ty_pGr_3()
'
' Sort_Aufl_Ty_pGr_3 Makro
'
' Tastenkombination: Strg+c
'
    Range("A4:H56").Select
    ActiveWorkbook.Worksheets("Gruppe 3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Gruppe 3").Sort.SortFields.Add Key:=Range("G5:G56" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Gruppe 3").Sort
        .SetRange Range("A4:H56")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A5").Select
End Sub
Sub Gruppe1()
 
erstelle ich die Gruppe3 (reine Wertetabelle) mit der ich jetzt super weiter arbeiten kann.
Mein Problem: Ich möchte die Tabelle Gruppe3a „verstecken“ was auch einwandfrei funktioniert.
Ein weiteres Makro – zum Aktualisieren von Gruppe3 – funktioniert dann aber nicht.
 
Sub Sort_Aufl_Ty_pGr_3()
'
' Sort_Aufl_Ty_pGr_3 Makro
'
' Tastenkombination: Strg+c
'
    Range("A4:H56").Select
    ActiveWorkbook.Worksheets("Gruppe 3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Gruppe 3").Sort.SortFields.Add Key:=Range("G5:G56" _
        ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Gruppe 3").Sort
        .SetRange Range("A4:H56")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A5").Select
End Sub
 
Lässt sich das Aktualisierungsproblem -bei versteckter Datei - beheben?
Gruß
Kurt

[Kuwer]

Hallo Fritz,

schau mal hier:

Achtung Makrorekorder oder Wer selektiert denn da?

Performance (2) - Select Activate Bremsen und ein Beispiel

Gruß Uwe

[Kurt Fritz]

Hallo Uwe,
es waren meine Makros 1 und 2 und waren natürlich mit dem Rekorder erstellt.
Ich war soooo zufrieden, dass sie einwandfrei funktionieren.
Da ich in dem Arbeitsblatt mehrere Gruppen habe, möchte ich die a-Gruppen (die mit den Formeln) gerne verstecken, doch dann funktionieren die Makros nicht.
Warum funktionieren sie nicht, und gibt es Abhilfe?
Gruß
Kurt

[atilla]

Hallo,

so könnte es gehen:

Zu beginn schaltest Du die Bildschirmaktualisierung aus und blendest das Blatt ein und führst die gewünschten Aktionen aus.
Am Ende blendest Du das Blatt wieder aus.

So wie im unten in Deinem leicht erweiterten Code:

Code:

Sub Sort_Aufl_Ty_pGr_3()
'
' Sort_Aufl_Ty_pGr_3 Makro
'
' Tastenkombination: Strg+c
'
  Application.ScreenUpdating = False
  With ActiveWorkbook.Worksheets("Gruppe 3")
      .Visible = True
      .Select
      .Range("A4:H56").Select
      .Sort.SortFields.Clear
      .Sort.SortFields.Add Key:=Range("G5:G56" _
          ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
      With .Sort
          .SetRange Range("A4:H56")
          .Header = xlYes
          .MatchCase = False
          .Orientation = xlTopToBottom
          .SortMethod = xlPinYin
          .Apply
      End With
    .Range("A5").Select
    .Visible = xlVeryHidden
    End With
    Application.ScreenUpdating = True
End Sub