Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
988to992
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
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code schneller machen

Code schneller machen
07.07.2008 18:12:00
Heiko
Hallo Leute
ich habe hier diesen Code. Er klappt einwandfrei. Es dauert nur eine zeit bis er die Daten in die vorgegebenen Zellen eingetragen hat. Gibt es eine möglichkeit den Code schneller zu machen?
Gruß Heiko
Hier der Code:

Private Sub CommandButton1_Click()
'Spiel 1
[cm4].Value = TextBox1.Value
[cn4].Value = TextBox2.Value
[co4].Value = TextBox3.Value
[cp4].Value = TextBox4.Value
[cq4].Value = TextBox5.Value
[cr4].Value = TextBox6.Value
'Spiel 2
[cm6].Value = TextBox7.Value
[cn6].Value = TextBox8.Value
[co6].Value = TextBox9.Value
[cp6].Value = TextBox10.Value
[cq6].Value = TextBox11.Value
[cr6].Value = TextBox12.Value
'Spiel 3
[cm8].Value = TextBox13.Value
[cn8].Value = TextBox14.Value
[co8].Value = TextBox15.Value
[cp8].Value = TextBox16.Value
[cq8].Value = TextBox17.Value
[cr8].Value = TextBox18.Value
'Spiel 4
[cm10].Value = TextBox19.Value
[cn10].Value = TextBox20.Value
[co10].Value = TextBox21.Value
[cp10].Value = TextBox22.Value
[cq10].Value = TextBox23.Value
[cr10].Value = TextBox24.Value
'Spiel 5
[cm12].Value = TextBox25.Value
[cn12].Value = TextBox26.Value
[co12].Value = TextBox27.Value
[cp12].Value = TextBox28.Value
[cq12].Value = TextBox29.Value
[cr12].Value = TextBox30.Value
'Spiel 6
[cm14].Value = TextBox31.Value
[cn14].Value = TextBox32.Value
[co14].Value = TextBox33.Value
[cp14].Value = TextBox34.Value
[cq14].Value = TextBox35.Value
[cr14].Value = TextBox36.Value
'Spiel 7
[cm16].Value = TextBox37.Value
[cn16].Value = TextBox38.Value
[co16].Value = TextBox39.Value
[cp16].Value = TextBox40.Value
[cq16].Value = TextBox41.Value
[cr16].Value = TextBox42.Value
'Spiel 8
[cm18].Value = TextBox43.Value
[cn18].Value = TextBox44.Value
[co18].Value = TextBox45.Value
[cp18].Value = TextBox46.Value
[cq18].Value = TextBox47.Value
[cr18].Value = TextBox48.Value
'Spiel 9
[cm20].Value = TextBox49.Value
[cn20].Value = TextBox50.Value
[co20].Value = TextBox51.Value
[cp20].Value = TextBox52.Value
[cq20].Value = TextBox53.Value
[cr20].Value = TextBox54.Value
'Spiel 10
[cm22].Value = TextBox55.Value
[cn22].Value = TextBox56.Value
[co22].Value = TextBox57.Value
[cp22].Value = TextBox58.Value
[cq22].Value = TextBox59.Value
[cr22].Value = TextBox60.Value
'Spiel 11
[cm24].Value = TextBox61.Value
[cn24].Value = TextBox62.Value
[co24].Value = TextBox63.Value
[cp24].Value = TextBox64.Value
[cq24].Value = TextBox65.Value
[cr24].Value = TextBox66.Value
'Spiel 12
[cm26].Value = TextBox67.Value
[cn26].Value = TextBox68.Value
[co26].Value = TextBox69.Value
[cp26].Value = TextBox70.Value
[cq26].Value = TextBox71.Value
[cr26].Value = TextBox72.Value
Range("c6").Select
Unload Me
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: Code schneller machen
07.07.2008 18:30:16
Reinhard
Hi Heiko,
probiers mal so:

Option Explicit
Private Sub CommandButton1_Click()
Dim Zei As Long, N As Integer
Application.ScreenUpdating = False
For Zei = 4 To 26 Step 2
Cells(Zei, 91) = Me.Shapes("TextBox" & N + 1)
Cells(Zei, 92) = Me.Shapes("TextBox" & N + 2)
Cells(Zei, 93) = Me.Shapes("TextBox" & N + 3)
Cells(Zei, 94) = Me.Shapes("TextBox" & N + 4)
Cells(Zei, 95) = Me.Shapes("TextBox" & N + 5)
Cells(Zei, 96) = Me.Shapes("TextBox" & N + 6)
N = N + 6
Next Zei
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard

Anzeige
AW: Code schneller machen
07.07.2008 18:43:35
Heiko
Hallo Reinhard
der code klappt nicht bekomme eine fehlermeldung. "Fehler beim Kompilieren:Methode oder Datenobjekt nicht gefunden".Und das macht er mir blau an "Shapes"Was kann das sein?
Gruß Heiko

AW: Code schneller machen
07.07.2008 18:50:09
Reinhard
Hi Heiko,
sorry war und ist ungetestet, aber kriegen wir schon hin,
Ändere mal alles ab in der Form:
Cells(Zei, 91) = Me.Controls("TextBox" & N + 1)
Das müßte funktionieren, wenn nicht melde dich nochmal und stlle die Frage auf noch offen, ich muß jetzt weg aber in 2 Stunden kann ich es dann nachbauen und testen, bzw. bis dahin hat sicher schon ein Andrer den Fehler gefunden.
Gruß
Reinhard

Anzeige
Automatische Berechnung oder Ereignissmakro?
07.07.2008 18:50:00
ransi
HAllo Heiko
Ich glaube da bremst die Automatische Berechnung oder ein Ereignissmakro.
Versuchs mal so:
Option Explicit

Dim AppCalc
Dim AppScreen
Dim AppEvents
Dim AppCursor

Private Sub CommandButton1_Click()
On Error GoTo raus
Call More_speed
'Spiel 1
[cm4].Value = TextBox1.Value
[cn4].Value = TextBox2.Value
[co4].Value = TextBox3.Value
[cp4].Value = TextBox4.Value
[cq4].Value = TextBox5.Value
[cr4].Value = TextBox6.Value
'Spiel 2
[cm6].Value = TextBox7.Value
[cn6].Value = TextBox8.Value
[co6].Value = TextBox9.Value
[cp6].Value = TextBox10.Value
[cq6].Value = TextBox11.Value
[cr6].Value = TextBox12.Value
'Spiel 3
[cm8].Value = TextBox13.Value
[cn8].Value = TextBox14.Value
[co8].Value = TextBox15.Value
[cp8].Value = TextBox16.Value
[cq8].Value = TextBox17.Value
[cr8].Value = TextBox18.Value
'Spiel 4
[cm10].Value = TextBox19.Value
[cn10].Value = TextBox20.Value
[co10].Value = TextBox21.Value
[cp10].Value = TextBox22.Value
[cq10].Value = TextBox23.Value
[cr10].Value = TextBox24.Value
'Spiel 5
[cm12].Value = TextBox25.Value
[cn12].Value = TextBox26.Value
[co12].Value = TextBox27.Value
[cp12].Value = TextBox28.Value
[cq12].Value = TextBox29.Value
[cr12].Value = TextBox30.Value
'Spiel 6
[cm14].Value = TextBox31.Value
[cn14].Value = TextBox32.Value
[co14].Value = TextBox33.Value
[cp14].Value = TextBox34.Value
[cq14].Value = TextBox35.Value
[cr14].Value = TextBox36.Value
'Spiel 7
[cm16].Value = TextBox37.Value
[cn16].Value = TextBox38.Value
[co16].Value = TextBox39.Value
[cp16].Value = TextBox40.Value
[cq16].Value = TextBox41.Value
[cr16].Value = TextBox42.Value
'Spiel 8
[cm18].Value = TextBox43.Value
[cn18].Value = TextBox44.Value
[co18].Value = TextBox45.Value
[cp18].Value = TextBox46.Value
[cq18].Value = TextBox47.Value
[cr18].Value = TextBox48.Value
'Spiel 9
[cm20].Value = TextBox49.Value
[cn20].Value = TextBox50.Value
[co20].Value = TextBox51.Value
[cp20].Value = TextBox52.Value
[cq20].Value = TextBox53.Value
[cr20].Value = TextBox54.Value
'Spiel 10
[cm22].Value = TextBox55.Value
[cn22].Value = TextBox56.Value
[co22].Value = TextBox57.Value
[cp22].Value = TextBox58.Value
[cq22].Value = TextBox59.Value
[cr22].Value = TextBox60.Value
'Spiel 11
[cm24].Value = TextBox61.Value
[cn24].Value = TextBox62.Value
[co24].Value = TextBox63.Value
[cp24].Value = TextBox64.Value
[cq24].Value = TextBox65.Value
[cr24].Value = TextBox66.Value
'Spiel 12
[cm26].Value = TextBox67.Value
[cn26].Value = TextBox68.Value
[co26].Value = TextBox69.Value
[cp26].Value = TextBox70.Value
[cq26].Value = TextBox71.Value
[cr26].Value = TextBox72.Value
Range("c6").Select
Unload Me
raus:
Call Meine_Einstellungen
End Sub

Public Sub More_speed()
With Application
    '#######################
    'Einstellungen speichern
    AppCalc = .Calculation
    AppScreen = .ScreenUpdating
    AppEvents = .EnableEvents
    AppCursor = .Cursor
    '#######################
    'Angezogene Bremsen lösen
    .Calculation = xlCalculationManual 'Berechnung auf manuell
    .ScreenUpdating = False 'Bildschirmaktualisierung aus
    .EnableEvents = False 'Ereignismakros abschalten
    .Cursor = xlDefault 'Sanduhr ausschalten
    '#######################
End With
End Sub

Public Sub Meine_Einstellungen()
With Application
    .Calculation = AppCalc
    .ScreenUpdating = AppScreen
    .EnableEvents = AppEvents
    .Cursor = AppCursor
End With
End Sub


ransi

Anzeige
AW: Automatische Berechnung oder Ereignissmakro?
07.07.2008 19:08:56
Heiko
Hallo Reinhard, hallo Ransi
danke für eure holfe. Klappt alles super. Ist jetzt schneller. Danke !!!
Gruß Heiko

OT Cursor auf Standard setzen
07.07.2008 22:14:31
Reinhard
Hallo Ransi,
wirst du nach Anzahl der Codezeilen bezahlt *mißtrauisch schau* :-)
Mit dem "More Speed" ist ja alles nahezu in Ordnung, aber das mit dem Cursor gibt mir zu denken. Wenn man in der Sanduhr den Sand rieseln sehen könnte dann könnte ich mir vorstellen daß da das Abschalten Zeit bringt, aber so, das bringt doch nix!?
Oder weißt du da wieder was was ich nicht weiß ?
Gruß
Reinhard

16 Forumthreads zu ähnlichen Themen

VBA Code sicherer machen
SteffenS

Hallo Zusammen,
wie bekomm ich es hin, dass mein Projekt nur eine bestimmte Zeit funktioniert.
Mit einer Zeitabfrage kann ich dies machen, aber dies ist auch sehr schnell auffindbar.
Ich benötige etwas was kompliziert aussieht, damit meine "Ideen" nicht so schnell
weiterverteilt...
17.03.2010 08:39:41
Thread-ID: 1146495
15 Beiträge
Anzeige
VBA Code schneller machen
Rebecca

Hallo Zusammen,
wenn ich in einer vba Prozedur zuviele Abfragen bzw. Ausführungen drin habe, verlangsamt diese die Ausführung? Ist es besser wenn ich eine große Prozedur in viele kleinen packe?
Irgendwie braucht das bei mir etwas zu lang.
LG
Rebecca
18.08.2013 19:59:10
Thread-ID: 1327364
5 Beiträge
Kann man den Code schneller machen?
Frank

Hallo Zusammen!
Ich habe folgenden Code gebastelt:
Private Sub UserForm_Initialize() With frmSpielverlegungen .ListBox1.ColumnCount = 17 .ListBox1.ColumnWidths = "35;155;50;35;35;35;35;35;35;35;35;35;35;35;35;35;35" End With With frmSpielverlegungen .ListBox1.Clear Dim Daten(31, 17) For...
07.09.2015 21:44:37
Thread-ID: 1446420
7 Beiträge
Anzeige
Code schneller machen?
Henno

Hallo Forum,
ich habe folgenden Code per Recorder aufgezeichnet, der auch funktioniert-zumindest wenn die parameter stimmen.
Allerdings dauert es sehr lange.
Der Code wird über einen CommandButton ausgeführt.
Kann mir einer den Code umschreiben, dass er schneller ausgeführt wird...
22.01.2017 10:50:37
Thread-ID: 1536598
12 Beiträge
Code schneller machen
Volker

Guten Morgen zusammen.
bin neu hier und brauch eure Hilfe.
Ich muss große Datenmengen aus einer Datei in eine andere Kopieren.
Verwende diesen Code, der auch funktioniert, aber bei großen Mengen eben ziemlich langsam ist.
Gibt es irgendeine Möglichkeit dies zu beschleunigen?
09.03.2017 09:46:51
Thread-ID: 1546361
7 Beiträge
Code schneller machen
Frank

Hallo Zusammen!
Ich habe mir zum Löschen bestimmter Zellbereiche folgenden Code gebastelt. Ich finde aber es dauert sehr lange, warum nur. Mit meinen bescheidenen Kenntnissen stoße ich da an meine Grenzen. Für jede Hilfe dankbar!
Gruß Frank H.
Application.ScreenUpdating = False
...
05.10.2017 18:18:20
Thread-ID: 1584428
12 Beiträge
fertiger Code - kann man den "schneller" machen ?
reiner

Hallo Forum,
VIELEN DANK nochmal für eure Hilfe bei meinem Problem :
Wert in Spalte suchen und bestimmte Zellen löschen !
Mein Code hier ist folgender : Private Sub CommandButton2_Click() Dim e As Object For Each e In Sheets("Tabelle1").Range("E3:E" & Sheets("Tabelle1").Cells(Ro...
28.11.2017 16:16:23
Thread-ID: 1594187
5 Beiträge
VBA Code "Mac tauglich" machen
Matthias

Hallo Leute,
habe folgenden Code in einer Datei integriert: Sub Speichern2() Dim strDateiname As String Dim objFileDialog As FileDialog ThisWorkbook.Save Set objFileDialog = Application.FileDialog(msoFileDialogSaveAs) strDateiname = "Honorarnote " & Range("G15").Text With objFileDialog...
03.07.2019 20:43:03
Thread-ID: 1700776
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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
14
8
4
6
7
11
6
11
4
2
4
3
3
3
4
11