06.06.2018, 10:04
Moin zusammen,
ich bin momentan dabei eine Excel Datei mit mehreren Sheets zu überarbeiten. So simple und trotzdem scheitere ich daran. Der Kollege vor mir hat einen VBA Code geschrieben der im Grunde folgendes tun soll:
' 1. Lösche Blätter "Sheet-XXX" + "Sheet-YYY"
' 2. Generiere neue Blätter gleichen Namens
' 3. Kopiere jeweils die Inhalte des Sheets "Haupt-Sheet" hinein
' 4. Lösche die jeweils unpassenden Zeilen
' 5. Blatt "Sheet-XXXt" nur sortieren, nicht konkatinieren
' 6. Blatt "Sheet-YYY" sortieren, konkatinieren und formatieren
Will ich in dem "Haupt-Sheet" eine neue Spalte in mitten der Tabelle einfüge, funktioniert der Code nicht mehr wie er soll. Der Fehler hierbei ist, dass sich Excel in einen unendlichen Loop hängt und unter einer anderen Spalte die ganze Spalte unendlich lang durchsucht, sprich er sucht bis er zur letzten Excel-Zeile überhaupt angelangt ist.
Ich habe den Code schon auf einen größeren Suchbereich angepasst und andere Kleinigkeiten versucht. Dann zeigt er mir teilweise (nicht immer) einen Fehler "1004" an bei einer Do While-Schleife die eigentlich nicht falsch sein kann...
Kann leider auch nicht den Code veröffentlichen, ich weiß dass viele Infos fehlen, aber vllt kann ja trzdm einer helfen und hat eine Vorahnung woran es liegen könnte :)
Danke für die Hilfe und VG aus FFM,
Justin
ich bin momentan dabei eine Excel Datei mit mehreren Sheets zu überarbeiten. So simple und trotzdem scheitere ich daran. Der Kollege vor mir hat einen VBA Code geschrieben der im Grunde folgendes tun soll:
' 1. Lösche Blätter "Sheet-XXX" + "Sheet-YYY"
' 2. Generiere neue Blätter gleichen Namens
' 3. Kopiere jeweils die Inhalte des Sheets "Haupt-Sheet" hinein
' 4. Lösche die jeweils unpassenden Zeilen
' 5. Blatt "Sheet-XXXt" nur sortieren, nicht konkatinieren
' 6. Blatt "Sheet-YYY" sortieren, konkatinieren und formatieren
Will ich in dem "Haupt-Sheet" eine neue Spalte in mitten der Tabelle einfüge, funktioniert der Code nicht mehr wie er soll. Der Fehler hierbei ist, dass sich Excel in einen unendlichen Loop hängt und unter einer anderen Spalte die ganze Spalte unendlich lang durchsucht, sprich er sucht bis er zur letzten Excel-Zeile überhaupt angelangt ist.
Ich habe den Code schon auf einen größeren Suchbereich angepasst und andere Kleinigkeiten versucht. Dann zeigt er mir teilweise (nicht immer) einen Fehler "1004" an bei einer Do While-Schleife die eigentlich nicht falsch sein kann...
Kann leider auch nicht den Code veröffentlichen, ich weiß dass viele Infos fehlen, aber vllt kann ja trzdm einer helfen und hat eine Vorahnung woran es liegen könnte :)
Danke für die Hilfe und VG aus FFM,
Justin