Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code schneller machen

Forumthread: 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
Anzeige

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
Anzeige
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
;

Forumthreads zu verwandten 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
Code schneller machen
Anfängerin13

Hallo,
ich habe jetzt einen Code, der durch fast 8790 Zeilen läuft, und daher etwas lange (über 40 min) braucht.
Kann man den vielleicht etwas schlauer schreiben und dadurch schneller machen?
Vielen Dank an euch schon mal. Sub Optimize() Dim noCells As Integer Dim highDemandRow As...
16.05.2013 13:56:50
Thread-ID: 1313421
9 Beiträge
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
VBA Code schneller machen
Heli

Hallo zusammen,
habe eine Frage zu VBA Code schneller machen:
Aus einen Tabellenblatt füge ich Daten in meine Active.Sheet ein: ca. 110.000 Zeilen
mit drei Datenspalten. Dauer 2 Sec.
Danach wird eine eine Loop durchlaufen die diese Daten nach PEN = Nummer für Daten,
tag_dat...
16.04.2016 10:17:51
Thread-ID: 1488356
8 Beiträge
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
Anzeige
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
Anzeige
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
Code schneller machen
thomas
Hi Volks,
Möchte Code folgender Art schneller machen: kann mir jemand schnell zeigen, wie ich eine bessere Struktur reinbringen kann?
Besten Dank
thomas
Sheets("Erfolgssens.-Analyse BM").Visible = True
Sheets("Erfolgssens.-Analyse BSM").Visible = True
Sheets("Erfolgss...
02.05.2004 23:00:51
Thread-ID: 423220
5 Beiträge
Wie kann ich mein Code schneller machen
Y.

Hallo zusammen,
wie kann ich den unten genannten Code verbessern. Das läuft extrem langsam.
For x = 26 To 55
Artikelname$ = Range("E" & x).Value
Menge = Range("d" & x).Value
' Menge = ActiveCell.Value
' Range("E" & x).Select
Sheets("artikel").Se...
26.06.2004 16:30:47
Thread-ID: 446357
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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