gestern habe ich mich schon mit Regine unterhalten, die mir einen guten Tipp gegeben hat, allerdings taucht jetzt ein neues Problem auf.
Grundproblem:
Ich habe eine Liste, die ich aus dem einen Tabellenblatt ins nächste kopieren und danach noch sortieren möchte. Es tauchte ein Hinweis auf, der mich fragte, ob die erste Zeile die Überschrift darstelle oder ob diese Zeile mitsortiert werden solle.
Regine gab mir den folgenen Tip, ich solle mit Application.DisplayAlerts = False und Application.DisplayAlerts = True arbeiten. Das habe ich auch getan und der Hinweis ist verschwunden.
das neu aufgetauchte Problem:
Allerdings lasse ich nach dem Einfügen der Daten in das nächste Tabellenblatt Teilergebnisse berechnen. dazu erscheinen normalerweise auf der linken Seite oben in der Ecke 3 Kästchen. Beim Kästchen 2 kann man sich normalerweise alle Teilergebnisse anschauen. Das Problem ist: Der Computer fügt, seit dem ich die Anwendung von Regine verwende, weitere 3 Kästchen (insgesamt sind es dann 6) ein und ich kann aber unter keinem Kästchen die Teilergebnisse sehen.
In meiner anderen Mappe funktioniert mein Makro einwandfrei. Ich habe keinen Hinweis bekommen, den ich beheben mußte und auch die Teilergebnisse werden korrekt berechnet.
Wer kann mir weiterhelfen??
Hier ist mein Makro:
Public Sub Diagramm_Schritt_1__Berechnen_des_Teilergebnisses_APH()
'Löschen der Inhalte in der Zusatz-Strategie-Tabelle
Windows("Gesamt-APH.xls").Activate
Sheets("Zusatz-Strategie").Select
Cells.Select
Selection.ClearContents
' Markieren des Inhalt vom Muster
Sheets("Sortieren Strategie").Select
'eingefügt (Regines Vorschlag)
Application.DisplayAlerts = False
'weiter geht`s mit:
Range("A7:X600").Select
Selection.Name = "Strategie"
Range(Selection, Selection.End(xlDown)).Select
Selection.Name = "Strategie"
'Kopieren des Inhalts vom Muster
Selection.Copy
'Einfügen des Inhalts in Zustaz-Strategie-Tabelle
Sheets("Zusatz-Strategie").Select
Range("A7").Select
ActiveSheet.Paste
'Teilegebnisse berechnen
Application.CutCopyMode = False
Selection.Subtotal GroupBy:=21, Function:=xlSum, TotalList:=Array(17, 22) _
, Replace:=False, PageBreaks:=True, SummaryBelowData:=True
'eingefügt (Regines Vorschlag)
Application.DisplayAlerts = True
End Sub
Ich würde mich freuen, wenn sich jemand diesem Problem annehmen würde.
Danke,
Stephanie