Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1796to1800
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
1796to1800
1796to1800
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.12.2020 11:08:01
Sofie
Hallo zusammen,
ich habe ein Problem mit meinem Code weil sich dieser ständig aufhängt. Ziel ist es, dass aus dem Tabellenblatt Auswertung Werte (stehen in jeder 10. Zeile, beginnend bei Zeile 23) ausgelesen und in eine seperate Tabelle übertragen werden. Da meine Tabelle aber sehr lang ist, hängt sich der Code ständig auf.
Im Besten Fall würd im Code: Do while x 

Sub Mittelwerte()
x = 23
y = 3
Do While x

viele Grüße
Sofie

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code schneller machen
07.12.2020 11:18:16
Rudi
in Grafik!I3 =index(auswertung!L:L;Zeile()*10-7)
Runterkopieren, kopieren und Werte einfügen.
Gruß
Rudi
AW: Code schneller machen
07.12.2020 11:21:20
Daniel
Hi
In die Zelle I3 auf dem Blatt Grafik und die darunterliegenden Zellen muss die Formel:
=Index(Auswertung!L:L;23+(Zeile()-3)*10)
In VBA dann
With Sheets("Grafik").Range("I3").Resize((200 - 23) /10)
.Formula = "=Index(Auswertung!L:L,23+(Row()-3)*10)"
.Formula =  .Value
End with

Gruß Daniel
AW: Code schneller machen
07.12.2020 12:23:51
Sofie
vielen Dank!!! Das funktioniert sehr gut.
Bei meinen Werten handelt es sich um Mittelwerte. Dabei ist jeder 3. Block eine Zusammenfassung. Könnte man das ganze auch soweit anpassen, dass dieser nicht übernommen wird?
Zum Beispiel:
Zeile 23 = 2,4
Zeile 33 = 2,45
Zeile 43 = Nicht auslesen
Zeile 53 = 2,39
Zeile 63 = 3,45
Zeile 73 = Nicht auslesen
...
Anzeige
AW: Code schneller machen
07.12.2020 13:08:55
Daniel
Hi
ist die Frage, was du dann sehen willst.
soll die dritte Zeile, die ja auf 43 verweisen würde dann einfach leer bleiben oder schon auf die nächste Zeile (53) verweisen?
Gruß Daniel

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

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
6
11