Zwei geöffnet Tabellen beinflussen (stören) sich gegenseitig

Hallo Norbert,

Anlagen kann man hier nicht einfügen. Aber deinen Code könntest du doch kopieren und hier einfügen.

Wenn man Mappen zur Verfügung stellen möchte, kann man diese bei einem Filehoster wie DropBox oder in einer Cloud wie OneDrive hochladen und hier den Link zur Datei posten.

Claus

Hallo Norbert,

um etwas genaues zu sagen, müssten wir schon deinen Code kennen.

Kann es sein, dass du nicht sauber referenziert hast und daher der Performance-Einbruch kommt? Geht deine Schleife über ein Tabellenblatt? Wenn ja, dann lies deine Daten in ein Array und mache dann die Schleife über dieses Array. Wenn im Speicher gearbeitet
wird, ist das schneller als eine Schleife durchs Blatt.

Claus

Hallo Claus,

aber gerne ... in anderen Foren wird das posten von Code im Text oft nicht gern gesehen

Gruß Norbert

Erläuterung:

in Spalte 3 bzw. in "was" stehen Ausdrücke in der Form Name1/Name2

Das Array Namen1 wird vorab aus der Tabelle1 gefüllt, die Namen sind dort sortiert aufsteigend. In das Array Index wird die Zeilennummer in der Tabelle geschrieben um den Bereich zu ermitteln in dem Name2 gesucht wird.

Einiges im Code ist im Laufe der Zeit so entstanden, das könnte man sicher auch anders und besser formulieren, aber es läuft ja prinzipiell ;-)

Call log("vor loop")
For Line = 2 To letztezeile2
If (Line Mod 1000) = 0 Then Call log("im loop" + Format(Line))
Cells(Line, 3).Select

was = Cells(Line, 3)

trenn = InStr(was, "/")

If trenn > 0 Then

Name1 = Mid(was, 1, trenn - 1)

Name2 = Mid(was, trenn + 1, 300)

For i = 1 To AnzNamen

If Namen1(i) = Name1 Then

ii = Index(i)

While ii < Index(i + 1)

vgl = Sheets("Tabelle1").Cells(ii, 4)

If Name2 = Mid(vgl, 1, Len(Name2)) Then

Sheets("Tabelle1").Cells(ii, 7) = Sheets("Tabelle1").Cells(ii, 7) + 1

Cells(Line, 6) = Sheets("Tabelle1").Cells(ii, 8)

Sheets("Tabelle1").Cells(ii, 8) = Cells(Line, 2)

Cells(Line, 5) = Sheets("Tabelle1").Cells(ii, 7)

GoTo nextline

End If

ii = ii + 1

Wend

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 65535

.TintAndShade = 0

.PatternTintAndShade = 0

End With

' MsgBox (was + " Name2 nicht gefunden")

GoTo nextline

End If

Next i

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 49407

.TintAndShade = 0

.PatternTintAndShade = 0

End With

' MsgBox (was + " Name1 nicht gefunden")

End If

nextline:

Next Line
Call log("nach loop")

Hallo Claus,

Danke für den entscheidenden Tipp !!

Normalerweise mache ich das in meinen VBA-Code auch, aber da diese Tabelle keine Zelle enthält in der eine Berechnung durchgeführt wird, das macht alles der VBA-Code, habe ich nur das Screen-Updating abgeschaltet.

Ich war bisher auch der Meinung, dass immer nur Berechnungen in der aktiven Tabelle durchgeführt werden ... so wie man jetzt sieht, ist das nicht der Fall. Aber interessant finde ich schon, dass nicht das nicht das MAX oder MIN sondern das INDIREKT die lange
Laufzeit verursacht hat.

Viele Grüße

Norbert

Hallo,

wenn viele Formeln und dann auch noch volatile, schalte die Berechnung während der Makro-Ausführung aus:

Dim iCalc As Integer

With Application

    .ScreenUpdating = False

    .EnableEvents = False

    iCalc = .Calculation

    .Calculation = xlCalculationManual

End With

On Error GoTo CleanUp

[b]'Hier dein Code[/b]

CleanUp:

With Application

    .ScreenUpdating = True

    .EnableEvents = True

    .Calculation = iCalc

End With

Claus