Tabellen schnell halten???

Hallo Forum,
gibt es eigentlich eine Regel an die man sich halten sollte, um Tabellen bei der Berechnung schnell zu halten?
Ich habe oft das Problem, dass ich für irgendwen in der Firma eine Tabelle erstelle, der NULL Excel kann.
Dann kopiere ich die Formeln direkt weit runter.
Jedoch bei jeder Filternutzung, rechnet die Tabelle recht lang, das nervt.
Ganz simples Beispiel:
Spalte A Maschinennummer (wird vom Mitarbeiter eingetragen)
Spalte B Auslieferungstermin (wird vom Mitarbeiter eingetragen)
Spalte C-E =TEXT(B2;"JJ") usw. ->Datum aus B trennen in Jahr, Monat, Tag zur Sortierung nach Datum etc.
Spalte F Formel Tage bis zum Auslieferungstermin.
Wie mache ich es, dass die Formeln in den Spalten C-F erst kommen, wenn in der jeweiligen Zeile in Spalte A ein Eintrag getätigt wurde?
Erst heute habe ich eine Tabelle erstellt, die für 5000 Maschinen die Formeln schon hat.
Mit viel Glück hält die so 5 Jahre, rechnet aber auch 5min bei jeder Filternutzung, obwohl erst 20 Maschinen eingetragen sind.
würde man es hiermit machen? Statt Date, Time, Application.UserName die Formeln?
Bin zuhause, kann es mit dem MAC leider nicht testen, suche allerdings seit Stunden nach der Lösung.


Private Sub Worksheet_Change(ByVal Target As Range)
spalte = Target.Column
zeile = Target.Row
If spalte = 2 And zeile >= 5 And zeile

Danke Gruß Marcy

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_Change(ByVal Target As Range) Dim spalte As Long, zeile As Long Dim Zelle As Range spalte = Target.Column zeile = Target.Row For Each Zelle In Target.Cells If Zelle.Column = 2 And Zelle.Row >= 5 Then If IsDate(Cells(Zelle.Row, 2)) Then Cells(Zelle.Row, 3) = Format(Target, "YY") Cells(Zelle.Row, 4) = Format(Target, "MM") Cells(Zelle.Row, 5) = Format(Target, "DD") Cells(Zelle.Row, 6).FormulaR1C1 = "=RC[-4]-TODAY()" ElseIf Zelle = "" Then Cells(Zelle.Row, 3).ClearContents Cells(Zelle.Row, 4).ClearContents Cells(Zelle.Row, 5).ClearContents Cells(Zelle.Row, 6).ClearContents Else MsgBox "Eingabe in Spalte B ist kein Datum" End If End If Next End Sub

Hi
ein Zeitfresser ist das gepostetete Makro.
die Eventmakros wie Change und SelectionChange haben die Eigenart, daß sie sich selbst aufrufen, wenn sie per Makro das entsprechende Event auslösen. Dann kann man sich schnell in einer Endlosschleife verfangen.
Das vermeidest du zwar durch die Eingangsprüfung (IF Spalte....) trotzdem ruft sich das Change-Makro 3x selbst auf.
Das Vermeidet man, in dem man innerhalb vom Makro die Events deaktiviert und am Ende wieder aktiviert (sonst bleiben die Events abgeschlaltet:


Private Sub Worksheet_Change(ByVal Target As Range)
spalte = Target.Column
zeile = Target.Row
If spalte = 2 And zeile >= 5 And zeile Application.EnableEvents = False
Range("Q" & zeile) = Date
Range("R" & zeile) = Time
Range("P" & zeile) = Application.UserName
 Application.EnableEvents = True  End If
End Sub

an sonsten hängts halt von deinen Formeln ab.
Neben den bereits genannen volatilen Funktionen die sehr häufig berechnet werden, gibt es auch einfach Funktionen, die bei grösseren Datenmengen einfach länger zum Berechnen brauchen, beispielsweise: ZählenWenn(), SummeWenn(), SummenProdukt(), SVerweis(;;;FALSCH); Vergleich(;;FALSCH), alle Matrix-Funktionen
Wenn man diese Funktionen in grosser Zahl einsetzt und dann vielleicht auch noch volatil gemacht hat, dann dauerts halt einfach ein bisschen länger.
Hier hilft nur, die Formeln zu reduzieren oder durch Hilfsspalten zu vereinfachen.
Beim SVerweis und Vergleich kann man auch schnellere Varianten einsetzen ( 4. bzw 3 Parameter = WAHR oder 0), allerdings erfordert dies ein Sortieren der Datentabelle.
Möglichkeiten zum optimieren gibt bestimmt, aber ohne kenntnis der Formeln und der Datenstruktur ist es nich möglich, konkrete Tips zu geben.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread