Clever-Excel-Forum

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

Hallo Fritz,

schau mal hier:

Achtung Makrorekorder oder Wer selektiert denn da?

Performance (2) - Select Activate Bremsen und ein Beispiel

Gruß Uwe

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

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: