Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1344to1348
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ScreenUpdating = False - funktioniert nicht

ScreenUpdating = False - funktioniert nicht
09.01.2014 10:21:46
Andi
Hallo Zusammen,
ich kopiere Werte aus eine Hilfstabelle und füge diese in die Haupttabelle ein.
Leider Flackert der Bildschirm extrem dabei (trotz ScreenUpdating = False) und ich weiß nicht wie ich das abstellen kann.
Sub Copy()
Application.ScreenUpdating = False
Range("F66:CW67").Copy
Range("F18").PasteSpecial Paste:=xlPasteValues
Range("F69:CW72").Copy
Range("F21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F74:CW74").Copy
Range("F26").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F76:CW76").Copy
Range("F28").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F78:CW78").Copy
Range("F30").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F80:CW82").Copy
Range("F32").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F84:CW84").Copy
Range("F36").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("A66:A84").ClearContents
ActiveWindow.SmallScroll Down:=-63
Range("B16").Select
End Sub
Über Hilfe wäre ich sehr dankbar!
Grüße Andi

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ScreenUpdating = False - funktioniert nicht
09.01.2014 10:27:48
Matze
Hallo climbi 
Sub Copy()
Application.ScreenUpdating = False
Range("F66:CW67").Copy
Range("F18").PasteSpecial Paste:=xlPasteValues
Range("F69:CW72").Copy
Range("F21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F74:CW74").Copy
Range("F26").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F76:CW76").Copy
Range("F28").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F78:CW78").Copy
Range("F30").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F80:CW82").Copy
Range("F32").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F84:CW84").Copy
Range("F36").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("A66:A84").ClearContents
ActiveWindow.SmallScroll Down:=-63
Range("B16").Select
Application.ScreenUpdating = True 'WIEDER EINSCHALTEN
End Sub

Anzeige
AW: ScreenUpdating = False - funktioniert nicht
09.01.2014 10:39:50
Andi
Hey Matze,
leider ist das nicht das Problem! (hab es damit auch versucht, aber auch gelesen, dass man das weglassen kann).
Evtl. noch eine andere Idee?
Gruß

AW: ScreenUpdating = False - funktioniert nicht
09.01.2014 10:45:31
Matze
Hi,
hast du in der Tabelle wo du einfügst ein weiteres Makro, ein Ereignis "Change"
am laufen?
Wir können so nur raten, kannst du die Datei einstellen? Entferne relevante Daten,
Ersetze Namen durch Musterdaten und dann per FileUpload hier ins Forum.
Matze

ignoriere meinenletzten Beitrag, siehe Rudi owT
09.01.2014 10:53:29
Matze

bei mir flackert nix
09.01.2014 10:42:28
Rudi
Hallo,
evtl. noch die autom. Berechnung ausschalten. 
Sub xCopy()
Dim lngCalc As Long
With Application
lngCalc = .Calculation
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
Range("F66:CW67").Copy
Range("F18").PasteSpecial Paste:=xlPasteValues
Range("F69:CW72").Copy
Range("F21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F74:CW74").Copy
Range("F26").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F76:CW76").Copy
Range("F28").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F78:CW78").Copy
Range("F30").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F80:CW82").Copy
Range("F32").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("F84:CW84").Copy
Range("F36").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Range("A66:A84").ClearContents
Range("B16").Select
Application.Calculation = lngCalc
End Sub

Gruß
Rudi

Anzeige
Jetzt flackert auch bei mir nix!
09.01.2014 11:03:24
Andi
Was würde ich nur ohne Euch machen...Jetzt läuft es =)
Vielen Dank
Gruß Andi

305 Forumthreads zu ähnlichen Themen

ScreenUpdating = false funktioniert nicht
Memphis

Hallo,
ich habe das Problem, dass ich am Anfang meines Codes Screenupdating = false setze und am Ende wieder auf true. Das hat auch die ganze Zeit funktioniert, nur ab einer Version des Sheets nicht mehr - obwohl ich meiner Meinung nach keine dies betreffende Änderung vorgenommen habe.
...
03.03.2011 12:09:09
Thread-ID: 1204020
3 Beiträge
Anzeige
Application.displayalerts bringt ab und an Fehler
Uppe

Hallo Experten,
ich habe ein Teilprogramm, welches meine Exceldatei unter neuem Namen speichert und alle Tabellenblätter bis auf eines löschen soll.
Das Speichern an sich funktioniert. Leider kommt oft (aber nicht immer) die Fehlermeldung "Die Methode Displayalerts ... ist fehlgeschlage...
26.06.2012 11:44:28
Thread-ID: 1268814
9 Beiträge
VBA Pivot filter visible = true ?
JensH.

Guten Morgen,
auch heute benötige ich mal wieder ein wenig Nachhilfe, nachdem ich mit meinen Kenntnissen nicht weiter komme.
Vorhanden ist eine Pivottabelle, in der per VBA ein Filter gesetzt werden soll. Leider bietet Exel da scheinbar nur die Möglichkeit gezielt auszublenden. Da die W...
23.08.2012 14:41:04
Thread-ID: 1276123
3 Beiträge
Anzeige
Frage zu "DisplayAlerts.False"
Stefan

Hallo Miteinander,mein Problem ist, dass ich trotz des Befehls "DisplayAlerts.False" von Word immernoch eine Meldung bekomme "Seitenränder zu klein, trotzdem drucken?". Eigentlich
müsste mit dem Befehl diese Meldung umgangen werden und automatisch mit der Defaulttaste bestätigt werden. Kann...
08.07.2002 12:12:23
Thread-ID: 134674
6 Beiträge
Application.DisplayAlerts
Hugo

Hallo
Folgender Code funktioniert im Excel 2010 problemlos:
Application.DisplayAlerts = False
Application.Quit
Aber im 2013 wird trotz DisplayAlerts=False
nachgefragt ob speichern: ja / nein
Habe nichts gefunden, dass der Befehl im 2013 anders lauten soll.
Was mac...
05.04.2016 16:22:34
Thread-ID: 1486096
6 Beiträge
Application.DisplayAlerts = False ohne Funktion
komatsur

Guten Tag,
Mein Excel-File hat mehrere Sheets in denen Daten automatisiert von div. Webseiten (Webinterface von selbstentwickelten Steuerungen) geladen werden sollten, damit ich die unterschiedlichen Systeme vergleichen kann. Ich greife somit zb. auf http://192.168.1.79/index.htm
und ht...
19.05.2017 09:10:39
Thread-ID: 1559297
9 Beiträge
VBA IF "Dateipfad = false then
Mario

Guten Tag
Habe noch ein Problem mit meiner Excel Liste und habe leider keinen plan xD
und zwar:
habe derzeit die AktiveWorkbook.ReadOnly abfrage drinnen und möchte zusätzlich abchecken ob die Datei in den von mir Vorgegebenen Dateipfad liegt ( falls möglich ohne Filenamen sondern nu...
21.10.2017 17:51:29
Thread-ID: 1587172
8 Beiträge
VBA: UpdateLinks:=3 - ActiveWB.Close True
SPL

Hallo zusammen,
seit Zeiten verwende ich nachfolgenden simplen Code um mehrere Worksheets nacheinander zu aktualisieren. Dim ABC as String ABC = "X:\P\M\MM\Acc.xlsx" Workbooks.Open Filename:=ABC, UpdateLinks:=3 ActiveWorkbook.Close True Jetzt haben wir eine relativ große Umstellung hinsic...
18.06.2019 18:06:07
Thread-ID: 1698325
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
8
2
3
5
5
8
7
4
2
3
3
3
1
1
2
3
16
2
4
2
14
4
14