Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: WAs ist hier falsch?

WAs ist hier falsch?
31.01.2005 12:01:35
Roman
Hallo,
kann mir jemand sagen, was hier falsch ist und wie ich disen Befehl noch kürzer und schneller machen kann?
Application.Calculation = xlCalculationManual
Range("M2").Select
ActiveWindow.ScrollRow = 20000
Range("M2:Q20000").Select
Selection.ClearContents
Sheets("SAPDATEN").Select
Range("A:B,D:E,G:G").Copy Sheets("Rohdaten-ABC").Range("M1")
Sheets("Rohdaten-ABC").Select
Application.Calculation = xlCalculationAutomatic
Zuerst wird ein Bereich gelöscht, dann wird aus sapdaten kopiert und in diesen Bereich, der zuvor gelöscht wurde hineinkopiert.
Irgendwie geht der Befehl nicht.
Gruß
Roman
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WAs ist hier falsch?
P@ulchen
Hi Roman,
ändere wie folgt:


Sub Einfügen()
Application.Calculation = xlCalculationManual
Sheets("Rohdaten-ABC").Range("M2:Q20000").ClearContents
Sheets("SAPDATEN").Range("A:B,D:E,G:G").Copy Sheets("Rohdaten-ABC").Range("M1")
Application.Calculation = xlCalculationAutomatic
End Sub


Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: WAs ist hier falsch?
31.01.2005 12:09:23
Roman
dankeschön.
Gruß
Roman
AW: WAs ist hier falsch?
31.01.2005 12:08:29
Roman
hat sich geklärt.
AW: WAs ist hier falsch?
UweD
Hallo
Klappt doch.
Kürzer ist aber:

Sub ttest()
Application.Calculation = xlCalculationManual
Sheets("Rohdaten-ABC").Range("M2:Q20000").ClearContents
Sheets("SAPDATEN").Range("A:B,D:E,G:G").Copy Sheets("Rohdaten-ABC").Range("M1")
Application.Calculation = xlCalculationAutomatic
End Sub

Gruß UD
Anzeige
AW: WAs ist hier falsch?
31.01.2005 12:21:00
Roman
danke
Gruß
Roman
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige