Hallo Zusammen,
weil automatische Berechnungen meine Datei stark verlangsamen habe ich die Berechnungen nur für das Workbook auf manuell gestellt. Bei Workbook.activate Automatische Berechnungen aus und bei Workbook.deactivate Automatische Berechnungen ein.
Wenn ich in ein Sheet gehe wird folgender Code abgerufen.
Das . Calculate sorgt aber dafür dass meine Zwischenablage geleert wird. Möchte ich also in ein Sheet rein klicken etwas kopieren, in das andere Sheet gehen und einfügen funktioniert es nicht.
Gibt es da Möglichkeiten?
Hier noch eine Beispieldatei.
Problem: Möchte ich die Zellen A1:A11 von Tabelle2 kopieren und Tabelle1 einfügen, ist die Zwischenablage leer.
Ziel: Zellen A1:A11 von Tabelle2 kopieren und in Tabelle 2 einfügen trotz bestehender Makros.
Was das Problem vielleicht verschärft ist, dass ich nicht nur aus dem gleichen Workbook etwas einfügen möchte sondern auch aus einem anderen Workbook.
weil automatische Berechnungen meine Datei stark verlangsamen habe ich die Berechnungen nur für das Workbook auf manuell gestellt. Bei Workbook.activate Automatische Berechnungen aus und bei Workbook.deactivate Automatische Berechnungen ein.
Wenn ich in ein Sheet gehe wird folgender Code abgerufen.
Code:
Private Sub Worksheet_Activate()
Me.Calculate
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Das . Calculate sorgt aber dafür dass meine Zwischenablage geleert wird. Möchte ich also in ein Sheet rein klicken etwas kopieren, in das andere Sheet gehen und einfügen funktioniert es nicht.
Gibt es da Möglichkeiten?
Hier noch eine Beispieldatei.
Problem: Möchte ich die Zellen A1:A11 von Tabelle2 kopieren und Tabelle1 einfügen, ist die Zwischenablage leer.
Ziel: Zellen A1:A11 von Tabelle2 kopieren und in Tabelle 2 einfügen trotz bestehender Makros.
Was das Problem vielleicht verschärft ist, dass ich nicht nur aus dem gleichen Workbook etwas einfügen möchte sondern auch aus einem anderen Workbook.