Makro-Schleife Laufzeitfehler 28

Geschätzte Excel-Fachleute,
ich darf mich in nachstehender Angelegenheit verbunden mit der Bitte um Unterstützung an euch wenden.
Projektbeschreibung:
In einer Datenbank werden Fahrbahnbreiten von Straßen verwaltet. Datenbanktechnisch handelt es sich dabei um Längenobjekte (Rechtecke, Trapeze) die eine Anfangs- und Endbreite sowie den jeweils zugeordneten Straßen-Rollkilometer bei Objektanfang- und Ende beinhalten. Die Aufgabenstellung sieht nun vor, diese Basisdaten so umzuwandeln, dass sie für das Erzeugen von Flächenpolygonen in einer GIS-Datenbank verwendet werden können. Zu diesem Zweck habe ich beiliegendes Excel-Formular erstellt.
Um die GIS-Polygone auch in kurvigen Straßenbereichen brauchbar auftragen zu können, müssen die Datenbank-Längenobjekte in kürzere Abschnitte unterteilt werden (z.B. 5 oder 10 m) und die Fahrbahnbreiten bei Trapezen entsprechend interpoliert ermittelt werden. Der in der Tabelle Referenzdaten - Zeile $8 erstellte Formelblock erledigt das, der Faktor für das Teilen der Abschnitte ist auch dort (Referenzdaten - $A$2) hinterlegt.
Das Abarbeiten und Erzeugen der einzelnen Abschnitte wird über die eingebaute Makro-Schleife Private Sub FBRD_Schleife() abgewickelt, wobei in jeder neu geschaffenen Datenzeile der Formelblock aus den Referenzdaten kopiert und dort dann eingefügt wird. Die für die Schleifensteuerung relevante Variabel Z_TEIL wird aus Spalte D der Tabelle Makro_Basisdaten ausgelesen. Beim 1-maligen Starten des Makros muss daher die Zelle D2 der Tabelle Makro_Basisdaten selektiert sein.
Grundsätzlich kann ich so relativ komfortabel die für das Auftragen im GIS geforderte Datenstruktur erzeugen, doch leider gibt Excel immer wieder einen Laufzeitfehler 28 (nicht genügend Stapelspeicher) aus. Mein Privatrechner zu Hause schafft so im Schnitt 4000 7000 Datensätze, der Rechner in meinem Büro schmiert meisten schon nach etwa 1000 Datensätzen ab.
Ich muss dann das Makro beenden und nach dem Speichern erneut starten. Im Büro passiert es auch ziemlich häufig, dass Excel komplett abschmiert, automatisch beendet wird und ich nicht mal mehr speichern kann.
Ist ziemlich lästig und daher wollte ich einmal bei euch nachfragen, ob jemand weiß, woran das liegen könnte.
Beispieldatei:
https://www.herber.de/bbs/user/153078.xlsm
Bin für jeden Tipp dankbar.
Liebe Grüße
Klaus Maier

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub F_en() Dim Anz As Integer, lr As Long lr = Cells(Rows.Count, 1).End(xlUp).Row For i = lr To 2 Step -1 Anz = Cells(i, 4) - 1 Rows(i).Offset(1).Resize(Anz).Insert xlDown, xlFormatFromLeftOrAbove Range(Cells(i, 1), Cells(i, 2)).Copy Cells(i, 1).Resize(Anz + 1) Cells(i, 4).DataSeries xlColumns, xlDataSeriesLinear, xlDay, -1, 1, False Next End Sub

Do i = i + 1 Z_TEIL = ActiveCell.Value If ActiveCell.Value = "" Then Exit Sub End If If Z_TEIL = 1 Then '...hier dein Code, wenn Z_TEIL = 1 'am Ende dieses Codeabschnitts kommt Application.Run ("FBRD_Schleife") 'der ganze Code wird von Beginn an gestartet; der Code "erreicht" nicht mal die LOOP-Zeile, wo steht: Aufhören (Loop) wenn Z_TEIL = 1 End If If Z_TEIL > 1 Then '...hier dein Code, wenn Z_TEIL > 1 'am Ende dieses Codeabschnitts wiederholt der Code wieder bei DO, weil ja LOOP Until Z_TEIL = 1 nicht greift, weil Z_TEIL > 1 End If Loop Until Z_TEIL = 1 'würde man bei If Z_TEIL = 1 Then die Zeile Application.Run ("FBRD_Schleife") löschen, dann wird zwar die LOOP-Zeile "erreicht", 'aber was kommt nach Ausstieg aus Do/Loop? = schon wieder Application.Run ("FBRD_Schleife"), 'und alles beginnt von vorn; deswegen: Endlosschleife = hier kommst du nich mehr raus!^^ :-) Application.Run ("FBRD_Schleife")

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread