Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
AW: WAs ist hier falsch?
31.01.2005 12:21:00
Roman
danke
Gruß
Roman

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige