Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
532to536
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
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MACROS plötzlich UNENDLICH LANGSAM !!

MACROS plötzlich UNENDLICH LANGSAM !!
18.12.2004 21:33:15
TOM
Plötzlich läuft folgendes ( und viele vergleichbar andere ) Macros extrem Langsam. Was vorgher unter 12 Sekunde gdauert hat, dauert nun ca 20 Sekunden.
Weiß einer warum ( es wurde an dem Macro eigentlich nicht verändert.
P.s. Das Macro dient zum einschieben einner Leerzeile in jeder 2. Zeile.
Also... was vorher aus 50 untereinander geschriebenen Zeilen bestand , besteht nun aus 100 Zeilen ( jede 2. Zewile ist eine Leerzeile (xxxx)
Hier das Macro

Private Sub CommandButton3_Click()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Range("A3:E120").Select
Selection.Copy
Range("A4").Select
ActiveSheet.Paste
Range("A3").Select
ActiveCell.FormulaR1C1 = " "
Range("B3").Select
ActiveCell.FormulaR1C1 = " "
Range("D3:E3").Select
Selection.ClearContents
Range("A5:E121").Select
Selection.Copy
Range("A6").Select
ActiveSheet.Paste
Range("A5").Select
ActiveCell.FormulaR1C1 = " "
Range("B5").Select
ActiveCell.FormulaR1C1 = " "
Range("D5").Select
ActiveCell.FormulaR1C1 = " "
Range("E5").Select
ActiveCell.FormulaR1C1 = " "
Range("E6").Select
Range("A7:E121").Select
Selection.Copy
Range("A8").Select
ActiveSheet.Paste
Range("A7").Select
ActiveCell.FormulaR1C1 = " "
Range("B7").Select
ActiveCell.FormulaR1C1 = " "
Range("D7").Select
ActiveCell.FormulaR1C1 = " "
Range("E7").Select
ActiveCell.FormulaR1C1 = " "
Range("E8").Select
Range("A9:E121").Select
Selection.Copy
Range("A10").Select
ActiveSheet.Paste
Range("A9").Select
ActiveCell.FormulaR1C1 = " "
Range("B9").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D9").Select
ActiveCell.FormulaR1C1 = " "
Range("E9").Select
ActiveCell.FormulaR1C1 = " "
Range("E10").Select
Range("A11:E121").Select
Selection.Copy
Range("A12").Select
ActiveSheet.Paste
Range("A11").Select
ActiveCell.FormulaR1C1 = " "
Range("B11").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D11").Select
ActiveCell.FormulaR1C1 = " "
Range("E11").Select
ActiveCell.FormulaR1C1 = " "
Range("E12").Select
Range("A13:E121").Select
Selection.Copy
Range("A14").Select
ActiveSheet.Paste
Range("A13").Select
ActiveCell.FormulaR1C1 = " "
Range("B13").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D13").Select
ActiveCell.FormulaR1C1 = " "
Range("E13").Select
ActiveCell.FormulaR1C1 = " "
Range("E14").Select
Range("A15:E121").Select
Selection.Copy
Range("A16").Select
ActiveSheet.Paste
Range("A15").Select
ActiveCell.FormulaR1C1 = " "
Range("B15").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D15").Select
ActiveCell.FormulaR1C1 = " "
Range("E15").Select
ActiveCell.FormulaR1C1 = " "
Range("E16").Select
Range("A17:E121").Select
Selection.Copy
Range("A18").Select
ActiveSheet.Paste
Range("A17").Select
ActiveCell.FormulaR1C1 = " "
Range("B17").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D17").Select
ActiveCell.FormulaR1C1 = " "
Range("E17").Select
ActiveCell.FormulaR1C1 = " "
Range("E18").Select
Range("A19:E121").Select
Selection.Copy
Range("A20").Select
ActiveSheet.Paste
Range("A19").Select
ActiveCell.FormulaR1C1 = " "
Range("B19").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D19").Select
ActiveCell.FormulaR1C1 = " "
Range("E19").Select
ActiveCell.FormulaR1C1 = " "
Range("E20").Select
Range("A21:E121").Select
Selection.Copy
Range("A22").Select
ActiveSheet.Paste
Range("A21").Select
ActiveCell.FormulaR1C1 = " "
Range("B21").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D21").Select
ActiveCell.FormulaR1C1 = " "
Range("E21").Select
ActiveCell.FormulaR1C1 = " "
Range("E22").Select
Range("A23:E121").Select
Selection.Copy
Range("A24").Select
ActiveSheet.Paste
Range("A23").Select
ActiveCell.FormulaR1C1 = " "
Range("B23").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D23").Select
ActiveCell.FormulaR1C1 = " "
Range("E23").Select
ActiveCell.FormulaR1C1 = " "
Range("E24").Select
Range("A25:E121").Select
Selection.Copy
Range("A26").Select
ActiveSheet.Paste
Range("A25").Select
ActiveCell.FormulaR1C1 = " "
Range("B25").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D25").Select
ActiveCell.FormulaR1C1 = " "
Range("E25").Select
ActiveCell.FormulaR1C1 = " "
Range("E26").Select
Range("A27:E121").Select
Selection.Copy
Range("A28").Select
ActiveSheet.Paste
Range("A27").Select
ActiveCell.FormulaR1C1 = " "
Range("B27").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D27").Select
ActiveCell.FormulaR1C1 = " "
Range("E27").Select
ActiveCell.FormulaR1C1 = " "
Range("E28").Select
Range("A29:E121").Select
Selection.Copy
Range("A30").Select
ActiveSheet.Paste
Range("A29").Select
ActiveCell.FormulaR1C1 = " "
Range("B29").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D29").Select
ActiveCell.FormulaR1C1 = " "
Range("E29").Select
ActiveCell.FormulaR1C1 = " "
Range("E30").Select
Range("A31:E121").Select
Selection.Copy
Range("A32").Select
ActiveSheet.Paste
Range("A31").Select
ActiveCell.FormulaR1C1 = " "
Range("B31").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D31").Select
ActiveCell.FormulaR1C1 = " "
Range("E31").Select
ActiveCell.FormulaR1C1 = " "
Range("E32").Select
Range("A33:E121").Select
Selection.Copy
Range("A34").Select
ActiveSheet.Paste
Range("A33").Select
ActiveCell.FormulaR1C1 = " "
Range("B33").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D33").Select
ActiveCell.FormulaR1C1 = " "
Range("E33").Select
ActiveCell.FormulaR1C1 = " "
Range("E34").Select
Range("A35:E121").Select
Selection.Copy
Range("A36").Select
ActiveSheet.Paste
Range("A35").Select
ActiveCell.FormulaR1C1 = " "
Range("B35").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D35").Select
ActiveCell.FormulaR1C1 = " "
Range("E35").Select
ActiveCell.FormulaR1C1 = " "
Range("E36").Select
Range("A37:E121").Select
Selection.Copy
Range("A38").Select
ActiveSheet.Paste
Range("A37").Select
ActiveCell.FormulaR1C1 = " "
Range("B37").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D37").Select
ActiveCell.FormulaR1C1 = " "
Range("E37").Select
ActiveCell.FormulaR1C1 = " "
Range("E38").Select
Range("A39:E121").Select
Selection.Copy
Range("A40").Select
ActiveSheet.Paste
Range("A39").Select
ActiveCell.FormulaR1C1 = " "
Range("B39").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D39").Select
ActiveCell.FormulaR1C1 = " "
Range("E39").Select
ActiveCell.FormulaR1C1 = " "
Range("E40").Select
Range("A41:E121").Select
Selection.Copy
Range("A42").Select
ActiveSheet.Paste
Range("A41").Select
ActiveCell.FormulaR1C1 = " "
Range("B41").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D41").Select
ActiveCell.FormulaR1C1 = " "
Range("E41").Select
ActiveCell.FormulaR1C1 = " "
Range("E42").Select
Range("A43:E121").Select
Selection.Copy
Range("A44").Select
ActiveSheet.Paste
Range("A43").Select
ActiveCell.FormulaR1C1 = " "
Range("B43").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D43").Select
ActiveCell.FormulaR1C1 = " "
Range("E43").Select
ActiveCell.FormulaR1C1 = " "
Range("E44").Select
Range("A45:E121").Select
Selection.Copy
Range("A46").Select
ActiveSheet.Paste
Range("A45").Select
ActiveCell.FormulaR1C1 = " "
Range("B45").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D45").Select
ActiveCell.FormulaR1C1 = " "
Range("E45").Select
ActiveCell.FormulaR1C1 = " "
Range("E46").Select
Range("A47:E121").Select
Selection.Copy
Range("A48").Select
ActiveSheet.Paste
Range("A47").Select
ActiveCell.FormulaR1C1 = " "
Range("B47").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D47").Select
ActiveCell.FormulaR1C1 = " "
Range("E47").Select
ActiveCell.FormulaR1C1 = " "
Range("E48").Select
Range("A49:E121").Select
Selection.Copy
Range("A50").Select
ActiveSheet.Paste
Range("A49").Select
ActiveCell.FormulaR1C1 = " "
Range("B49").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D49").Select
ActiveCell.FormulaR1C1 = " "
Range("E49").Select
ActiveCell.FormulaR1C1 = " "
Range("E50").Select
Range("A51:E121").Select
Selection.Copy
Range("A52").Select
ActiveSheet.Paste
Range("A51").Select
ActiveCell.FormulaR1C1 = " "
Range("B51").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D51").Select
ActiveCell.FormulaR1C1 = " "
Range("E51").Select
ActiveCell.FormulaR1C1 = " "
Range("E52").Select
Range("A53:E121").Select
Selection.Copy
Range("A54").Select
ActiveSheet.Paste
Range("A53").Select
ActiveCell.FormulaR1C1 = " "
Range("B53").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D53").Select
ActiveCell.FormulaR1C1 = " "
Range("E53").Select
ActiveCell.FormulaR1C1 = " "
Range("E54").Select
Range("A55:E121").Select
Selection.Copy
Range("A56").Select
ActiveSheet.Paste
Range("A55").Select
ActiveCell.FormulaR1C1 = " "
Range("B55").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D55").Select
ActiveCell.FormulaR1C1 = " "
Range("E55").Select
ActiveCell.FormulaR1C1 = " "
Range("E56").Select
Range("A57:E121").Select
Selection.Copy
Range("A58").Select
ActiveSheet.Paste
Range("A57").Select
ActiveCell.FormulaR1C1 = " "
Range("B57").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D57").Select
ActiveCell.FormulaR1C1 = " "
Range("E57").Select
ActiveCell.FormulaR1C1 = " "
Range("E58").Select
Range("A59:E121").Select
Selection.Copy
Range("A60").Select
ActiveSheet.Paste
Range("A59").Select
ActiveCell.FormulaR1C1 = " "
Range("B59").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D59").Select
ActiveCell.FormulaR1C1 = " "
Range("E59").Select
ActiveCell.FormulaR1C1 = " "
Range("E60").Select
Range("A61:E121").Select
Selection.Copy
Range("A62").Select
ActiveSheet.Paste
Range("A61").Select
ActiveCell.FormulaR1C1 = " "
Range("B61").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D61").Select
ActiveCell.FormulaR1C1 = " "
Range("E61").Select
ActiveCell.FormulaR1C1 = " "
Range("E62").Select
Range("A63:E121").Select
Selection.Copy
Range("A64").Select
ActiveSheet.Paste
Range("A63").Select
ActiveCell.FormulaR1C1 = " "
Range("B63").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D63").Select
ActiveCell.FormulaR1C1 = " "
Range("E63").Select
ActiveCell.FormulaR1C1 = " "
Range("E64").Select
Range("A65:E121").Select
Selection.Copy
Range("A66").Select
ActiveSheet.Paste
Range("A65").Select
ActiveCell.FormulaR1C1 = " "
Range("B65").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D65").Select
ActiveCell.FormulaR1C1 = " "
Range("E65").Select
ActiveCell.FormulaR1C1 = " "
Range("E66").Select
Range("A67:E121").Select
Selection.Copy
Range("A68").Select
ActiveSheet.Paste
Range("A67").Select
ActiveCell.FormulaR1C1 = " "
Range("B67").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D67").Select
ActiveCell.FormulaR1C1 = " "
Range("E67").Select
ActiveCell.FormulaR1C1 = " "
Range("E68").Select
Range("A69:E121").Select
Selection.Copy
Range("A70").Select
ActiveSheet.Paste
Range("A69").Select
ActiveCell.FormulaR1C1 = " "
Range("B69").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D69").Select
ActiveCell.FormulaR1C1 = " "
Range("E69").Select
ActiveCell.FormulaR1C1 = " "
Range("E70").Select
Range("A71:E121").Select
Selection.Copy
Range("A72").Select
ActiveSheet.Paste
Range("A71").Select
ActiveCell.FormulaR1C1 = " "
Range("B71").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D71").Select
ActiveCell.FormulaR1C1 = " "
Range("E71").Select
ActiveCell.FormulaR1C1 = " "
Range("E72").Select
Range("A73:E121").Select
Selection.Copy
Range("A74").Select
ActiveSheet.Paste
Range("A73").Select
ActiveCell.FormulaR1C1 = " "
Range("B73").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D73").Select
ActiveCell.FormulaR1C1 = " "
Range("E73").Select
ActiveCell.FormulaR1C1 = " "
Range("E74").Select
Range("A75:E121").Select
Selection.Copy
Range("A76").Select
ActiveSheet.Paste
Range("A75").Select
ActiveCell.FormulaR1C1 = " "
Range("B75").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D75").Select
ActiveCell.FormulaR1C1 = " "
Range("E75").Select
ActiveCell.FormulaR1C1 = " "
Range("E76").Select
Range("A77:E121").Select
Selection.Copy
Range("A78").Select
ActiveSheet.Paste
Range("A77").Select
ActiveCell.FormulaR1C1 = " "
Range("B77").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D77").Select
ActiveCell.FormulaR1C1 = " "
Range("E77").Select
ActiveCell.FormulaR1C1 = " "
Range("E78").Select
Range("A79:E121").Select
Selection.Copy
Range("A80").Select
ActiveSheet.Paste
Range("A79").Select
ActiveCell.FormulaR1C1 = " "
Range("B79").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D79").Select
ActiveCell.FormulaR1C1 = " "
Range("E79").Select
ActiveCell.FormulaR1C1 = " "
Range("E80").Select
Range("A81:E121").Select
Selection.Copy
Range("A82").Select
ActiveSheet.Paste
Range("A81").Select
ActiveCell.FormulaR1C1 = " "
Range("B81").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D81").Select
ActiveCell.FormulaR1C1 = " "
Range("E81").Select
ActiveCell.FormulaR1C1 = " "
Range("E82").Select
Range("A83:E121").Select
Selection.Copy
Range("A84").Select
ActiveSheet.Paste
Range("A83").Select
ActiveCell.FormulaR1C1 = " "
Range("B83").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D83").Select
ActiveCell.FormulaR1C1 = " "
Range("E83").Select
ActiveCell.FormulaR1C1 = " "
Range("E84").Select
Range("A85:E121").Select
Selection.Copy
Range("A86").Select
ActiveSheet.Paste
Range("A85").Select
ActiveCell.FormulaR1C1 = " "
Range("B85").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D85").Select
ActiveCell.FormulaR1C1 = " "
Range("E85").Select
ActiveCell.FormulaR1C1 = " "
Range("E86").Select
Range("A87:E121").Select
Selection.Copy
Range("A88").Select
ActiveSheet.Paste
Range("A87").Select
ActiveCell.FormulaR1C1 = " "
Range("B87").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D87").Select
ActiveCell.FormulaR1C1 = " "
Range("E87").Select
ActiveCell.FormulaR1C1 = " "
Range("E88").Select
Range("A89:E121").Select
Selection.Copy
Range("A90").Select
ActiveSheet.Paste
Range("A89").Select
ActiveCell.FormulaR1C1 = " "
Range("B89").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D89").Select
ActiveCell.FormulaR1C1 = " "
Range("E89").Select
ActiveCell.FormulaR1C1 = " "
Range("E90").Select
Range("A91:E121").Select
Selection.Copy
Range("A92").Select
ActiveSheet.Paste
Range("A91").Select
ActiveCell.FormulaR1C1 = " "
Range("B91").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D91").Select
ActiveCell.FormulaR1C1 = " "
Range("E91").Select
ActiveCell.FormulaR1C1 = " "
Range("E92").Select
Range("A93:E121").Select
Selection.Copy
Range("A94").Select
ActiveSheet.Paste
Range("A93").Select
ActiveCell.FormulaR1C1 = " "
Range("B93").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D93").Select
ActiveCell.FormulaR1C1 = " "
Range("E93").Select
ActiveCell.FormulaR1C1 = " "
Range("E94").Select
Range("A95:E121").Select
Selection.Copy
Range("A96").Select
ActiveSheet.Paste
Range("A95").Select
ActiveCell.FormulaR1C1 = " "
Range("B95").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D95").Select
ActiveCell.FormulaR1C1 = " "
Range("E95").Select
ActiveCell.FormulaR1C1 = " "
Range("E96").Select
Range("A97:E121").Select
Selection.Copy
Range("A98").Select
ActiveSheet.Paste
Range("A97").Select
ActiveCell.FormulaR1C1 = " "
Range("B97").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D97").Select
ActiveCell.FormulaR1C1 = " "
Range("E97").Select
ActiveCell.FormulaR1C1 = " "
Range("E98").Select
Range("A99:E121").Select
Selection.Copy
Range("A100").Select
ActiveSheet.Paste
Range("A99").Select
ActiveCell.FormulaR1C1 = " "
Range("B99").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D99").Select
ActiveCell.FormulaR1C1 = " "
Range("E99").Select
ActiveCell.FormulaR1C1 = " "
Range("E100").Select
Range("A101:E121").Select
Selection.Copy
Range("A102").Select
ActiveSheet.Paste
Range("A101").Select
ActiveCell.FormulaR1C1 = " "
Range("B101").Select
ActiveCell.FormulaR1C1 = "xxxx"
Range("D101").Select
ActiveCell.FormulaR1C1 = " "
Range("E101").Select
ActiveCell.FormulaR1C1 = " "
Range("E102").Select
ActiveWindow.SmallScroll Down:=-39
Range("E2:E103").Select
Selection.ClearContents
Range("L4:M4,L6:M6,L8:M8,L11:M11,L13:M13,L15:M15,L17:M17,L19:M19,L21:M21"). _
Select
Range("L21").Activate
Selection.ClearContents
Range("B3").Select
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: MACROS plötzlich UNENDLICH LANGSAM !!
Ramses
Hallo
Es reicht die Frage einmal zu stellen, ausserdem ist Wochenende.
Wenn es nur um das einfügen von Leerzeilen ginge, dann würde das ausreichen

Sub Row_Double()
Dim i As Integer
For i = 4 To 104 Step 2
Rows(i).Insert
Next i
End Sub

Was du da allerdings bis zu "E121" immer mitkopierst, erschliesst sich mir leider nicht.
Ebensowenig die speziellen Leerzeichen, "xxxx" usw.
Dass das Makro lange braucht ist kein Wunder bei den vielen "Select's".
Warum es nun länger benötigt, kann dir wahrscheinlich niemand sagen.
Mal den Rechner neu starten.
Gruss Rainer
Anzeige
AW: MACROS plötzlich UNENDLICH LANGSAM !!
18.12.2004 23:10:04
TOM
Hi.... und Danken für die schnelle Antwort
Sorry...
das war nicht doppelt eingestellt, sodern im ersten Post hatte ich von "unter 12 Sekunden Dauer" gesprochen, meinte aber " UNTER 1 Sekunde ".
Nun nochmal zu den Macro.
Habe Testhalber eine Neue EXCEL Mappe geöffnet und das Macro KOMPLETT einkopiert.
Der Testlauf hat ergeben das dies auch hier NUR WENIGER ALS SEKUNDE gedauert hat. Genau das gleiche Macro... Ich verstehe es nicht.
Kann es daran liegen, das ich sehr viele solcher Macros abgelegt habe ?
Das ( und die weiteren Macros dieser Art ) benötige ich für eine nahezu fertiggestellte FLIPPER TURNIER SOFTWARE.
Dias anhängige Macro soll bei der Spielereingabe helfen.
Da GRUNDSÄTZLICH in 2 Gruppen gespielt wird ( Gruppe 1 und Gruppe 2 )sind eingabemöglichkeiten für 100 Spieler vorhanden.
Möchte ich nun aber nur mit einer Gruppe spielen, muß ich da die Programierung immer abwechselnd auf die Gruppen verteilt, die eingegebenen Daten immer um eine Stelle verschieben. ( 1. GRUPPE immer Gerade, 2. GRUPPE immer UNGRADE )
Hier ein Beispiel:
Orginal Eintrag :
1 1.TOM GRUPPE 1
2 2.STEFAN GRUPPE 2
3 3.KLAUS GRUPPE 1
4 4.WERNER GRUPPE 2
5 5.REIMUND GRUPPE 1
6 6.PETER GRUPPE 2
usw
Nach ausführung des Macros :
1 1.TOM GRUPPE 1
2 GRUPPE 2
3 2.STEFAN GRUPPE 1
4 GRUPPE 2
5 3.KLAUS GRUPPE 1
6 GRUPPE 2
7 4.WERNER GRUPPE 1
8 GRUPPE 2
9 5.REIMUND GRUPPE 1
10 GRUPPE 2
11 6.PETER GRUPPE 1
12 GRUPPE 2
usw
Vieleicht hast Du ja einen beseren Weg ?
Gerne verschicke ich Dir auch mal die fertige Software.
Ich finde sie echt KLASSE !!!
Gruß
TOM
Anzeige
AW: MACROS plötzlich UNENDLICH LANGSAM !!
18.12.2004 23:27:08
PITTFALL
Hallo.....
Habe das Macro von Dir auch mal getestet.....
Nach wie vor geht es Mega Langsam von statten.
So als würde irgend etwas diesen Prozess ausbremsen.
Am Rechner kann es jedoch nicht liegen, denn wie gesagt, in einer NEUEN Excel mappe rast das Maro föhrmlich durch dei Teilen
GRUß
TOM
AW: MACROS plötzlich UNENDLICH LANGSAM !!
UweD
Hallo
zu viele select und activate machen ein Makro langsam.
Mach es so:

Private Sub CommandButton3_Click()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Range("A3:E120").Copy Range("A4")
Range("A3:B3").Formula = " "
Range("D3:E3").ClearContents
Range("A5:E121").Copy Range("A6")
Range("A5:B5").Formula = " "
Range("D5:E5").Formula = " "
Range("A7:E121").Copy Range("A8")
Range("A7:B7").Formula = " "
Range("D7:E7").Formula = " "
Range("A9:E121").Copy Range("A10")
Range("A9").Formula = " "
Range("B9").Formula = "xxxx"
Range("D9:E9").Formula = " "
'usw.
Range("E2:E103").ClearContents
Range("L4:M4,L6:M6,L8:M8,L11:M11,L13:M13,L15:M15,L17:M17,L19:M19,L21:M21").ClearContents
Range("B3").Select
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Gruß UweD
Anzeige
AW: MACROS plötzlich UNENDLICH LANGSAM !!
18.12.2004 23:16:12
Tom
Hallo Uwe....
ich weiß nich ob es daran liegt.
Wie eben geschrien.
Nach öffnen einer neuen Excel Datei und dem einkopieren des KOPLETTEN MACROs rast das förmlich durch die Zeilen. Ich schätze mal.... ne halbe Sekunde ( in meiner Excel Datei ca 15-20 Sekunden )
Danke.....
TOM

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige