Bildschirm "flackern"

Sub Kopieren_TEST() With Application .ScreenUpdating = False .DisplayAlerts = False End With Sheets("Lager-W").Select ActiveSheet.Unprotect (getStrPasswort) Range("A4").Select If ActiveSheet.AutoFilterMode Then Selection.AutoFilter End If Sheets("Werkstatt").Select ActiveSheet.Unprotect (getStrPasswort) If ActiveSheet.AutoFilterMode Then Selection.AutoFilter End If Sheets("Lager").Select ActiveSheet.Unprotect (getStrPasswort) If ActiveSheet.AutoFilterMode Then Selection.AutoFilter End If Sheets("Lager-W").Select Range("A4").Select '-------- erst vorhandene Liste löschen ----------------------------- z = Range("a4").End(xlDown).Row ActiveSheet.Range(Cells(4, 1), Cells(z, 30)).Select Selection.Delete Shift:=xlUp Range("J2,M2,Z2,F1,H1").ClearContents Selection.ClearContents Range("A4").Select '---- hier wird die letzte aktive zelle gemerkt ------ Range("A4").Select Dim lc Set lc = ActiveSheet 'für aktive Mappe '---- jetzt zu laufende und kopieren --- Sheets("Lager").Select z = Range("a4").End(xlDown).Row ActiveSheet.Range(Cells(4, 1), Cells(z, 30)).Select Selection.Copy lc.Select ActiveSheet.Paste Sheets("Lager").Select ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _ :=True, Password:=getStrPasswort '---------- wieder zurück ------------ lc.Select Range("A4").Select Dim lz As Long lz = Range("a4").End(xlDown).Row ActiveSheet.Range(Cells(lz, 1), Cells(lz, 1)).Select ActiveSheet.Range(Cells(lz + 1, 1), Cells(lz + 1, 1)).Select Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Kopieren_TEST() ' With Application ' .ScreenUpdating = False ' .DisplayAlerts = False ' End With Dim wsLagerW As Worksheet, wsWerkstatt As Worksheet, wsLager As Worksheet Dim z As Long Set wsLagerW = Sheets("Lager-W") With wsLagerW .Unprotect (getStrPasswort) If .AutoFilterMode Then .Range("A4").AutoFilter End If End With Set wsWerkstatt = Sheets("Werkstatt") With wsWerkstatt .Unprotect (getStrPasswort) If .AutoFilterMode Then .Range("a4").AutoFilter End If End With Set wsLager = Sheets("Lager") With wsLager .Unprotect (getStrPasswort) If .AutoFilterMode Then .Range("a4").AutoFilter End If End With With wsLagerW 'Range("A4").Select '-------- erst vorhandene Liste löschen ----------------------------- z = .Range("a4").End(xlDown).Row .Range(Cells(4, 1), Cells(z, 30)).Delete Shift:=xlUp .Range("J2,M2,Z2,F1,H1").ClearContents 'Selection.ClearContents .Range("A4").Select '---- hier wird die letzte aktive zelle gemerkt ------ 'Range("A4").Select 'Dim lc 'Set lc = ActiveSheet 'für aktive Mappe '---- jetzt zu laufende und kopieren --- z = wsLager.Range("a4").End(xlDown).Row wsLager.Range(Cells(4, 1), Cells(z, 30)).Copy .Paste wsLager.Protect DrawingObjects:=True, Contents:=True, Scenarios _ :=True, Password:=getStrPasswort '---------- wieder zurück ------------ Dim lz As Long lz = .Range("a4").End(xlDown).Row .Range(Cells(lz, 1), Cells(lz, 1)).Select ? .Range(Cells(lz + 1, 1), Cells(lz + 1, 1)).Select ? 'Application.ScreenUpdating = True End With set wsLagerW = Nothing set wsWerkstatt = Nothing set wsLager =Nothing End Sub

With wsLfd .Activate z = rngLfd.End(xlDown).Row Set rngLfd = .Range(Cells(4, 1), Cells(z, 30)) rngLfd.Copy Destination:=wsLA.Range(rngLA.Address) End With With wsLA .Activate Set rngLA = .Cells(.Range("A4").End(xlDown).Row + 1, 1) 'Setzt neue Zielzelle '(für Destination im Copy-Befehl) End With

Option Explicit Sub Kopieren_TEST() Dim wsLA As Worksheet, wsLfd As Worksheet, wsAbg As Worksheet Dim rngLA As Range, rngLfd As Range, rngAbg As Range Dim z As Long Application.ScreenUpdating = False 'nur für den Test, da getStrPasswort sonst nirgends festgelegt Dim getStrPasswort As String getStrPasswort = "Walter" Set wsLA = Sheets("Lauf+Abge") With wsLA Set rngLA = wsLA.Range("A4") .Unprotect (getStrPasswort) If .AutoFilterMode Then rngLA.AutoFilter End If End With Set wsLfd = Sheets("laufende") With wsLfd Set rngLfd = .Range("A4") .Unprotect (getStrPasswort) If .AutoFilterMode Then rngLfd.AutoFilter End If End With Set wsAbg = Sheets("Abgemeldete") With wsAbg Set rngAbg = .Range("A4") .Unprotect (getStrPasswort) If .AutoFilterMode Then rngAbg.AutoFilter End If End With With wsLA .Activate '-------- erst vorhandene Liste löschen ----------------------------- ' 1. wird doch überschrieben, warum also vorher löschen? ' enthalten die Zellen in dem Bereich [A4:maxRow30] Formeln? ' 2. Warum Bereich.Delete mit nach oben schieben, wenn mit z doch ' die letzte Zeile der Tabelle gem. Spalte A ermittelt wird? ' genügt hier nicht: z = rngLA.End(xlDown).Row .Range(Cells(4, 1), Cells(z, 30)).Clear 'wirklich notwendig? ' .Range(Cells(4, 1), Cells(z, 30)).Delete Shift:=xlUp .Range("J2,M2,Z2,F1,H1").ClearContents End With With wsLfd z = rngLfd.End(xlDown).Row Set rngLfd = .Range(.Cells(4, 1), .Cells(z, 30)) End With rngLfd.Copy Destination:=wsLA.Range(rngLA.Address) rngLfd.AutoFilter '##### setzt erneut Autofilter; nur wenn gewünscht wsLfd.Protect DrawingObjects:=True, Contents:=True, Scenarios _ :=True, Password:=getStrPasswort 'End With With wsLA '.Activate Set rngLA = .Cells(.Range("A4").End(xlDown).Row + 1, 1) 'Setzt neue Zielzelle '(für Destination im Copy-Befehl) End With With wsAbg '.Activate z = rngAbg.End(xlDown).Row Set rngAbg = .Range(.Cells(4, 1), .Cells(z, 30)) rngAbg.Copy Destination:=wsLA.Range(rngLA.Address) rngAbg.AutoFilter '##### setzt erneut Autofilter; nur wenn gewünscht .Protect DrawingObjects:=True, Contents:=True, Scenarios _ :=True, Password:=getStrPasswort End With With wsLA '.Activate Set rngLA = .Cells(.Range("A4").End(xlDown).Row + 1, 1) rngLA.Select 'am Ende des Kopiervorganges diese Zelle anwählen '##### nur wenn gewünscht [F2] = getStrPasswort 'nur für Testzwecke rngLA.AutoFilter '##### setzt erneut Autofilter; nur wenn gewünscht .Protect DrawingObjects:=True, Contents:=True, Scenarios _ :=True, Password:=getStrPasswort 'nur wenn gewünscht End With Application.ScreenUpdating = True Set wsLA = Nothing Set wsLfd = Nothing Set wsAbg = Nothing Set rngLA = Nothing Set rngLfd = Nothing Set rngAbg = Nothing End Sub

Hallo, Walter,
gerade weil ich meinte entdeckt zu haben, dass Du gerne mit Umbenennungen während des laufenden "Rennens" arbeitest, habe ich die "Basismappe" geschaffen, die, so habe ich wohl Deinen Beitrag von heute Mittag richtig entnommen, funktioniert.
Damit wäre aber auch die Grundlage gelegt, zu untersuchen, worin sich die beiden Vorgehnsweisen (Select vs. Objektreferenzierung) voneinander unterscheiden und wo besonderes Augenmerk bei der Aus- und Nacharbeit des Programmcodes zu legen ist.

'-------- erst vorhandene Liste löschen ----- das Funktioniert -----
'ohne Fehlermeldung !!!!!!!!!!!!!!!!
1.1 | z = Range("a4").End(xlDown).Row
1.2 | ActiveSheet.Range(Cells(4, 1), Cells(z, 30)).Select
1.3 | Selection.Delete Shift:=xlUp

Ohne das Du es besonders erwähnst, hat der Code vor der Ausführung von 1.1 ActiveSheet im Visier, was bedeutet, daß diese Tabelle zuvor als aktive Tabelle ausgewählt wurde.
Der volle Umfang der Objekte dieser Tabelle (Zellen, Bereiche) steht ohne besondere Anforderung zur direkten Verfügung, liegt im Geltungsbereich des momentanen Programmabschnitts der Zeile 1.1.
Aus diesem Grund ist es auch in 1.1 nicht erforderlich, nochmals anzuzeigen, dass die Zeilennummer der letzte beschribenen Zelle in der Spalte A in z gespeichert werden soll, wenn es sich um die aktive Arbeitmappe handelt.
Mit dieser Erkenntnis läßt sich fragen, warum die Zeile 1.2 das anzuwählende Objekt (Bereich) Range(Cells(4, 1), Cells(z, 30) dennoch den Verweis auf die "Eignerin", ActivSheet, enthält ( [Object.]"Sub"-Objekt.Methode] ).
Richtig, der Programmcode würde cetera paribus genauso ohne besondere Referenzierung des Rangeobjektes auf ActiveSheet. funktionieren.
"Erkauft" wurde dieser Freiheit damit, dass vor dienen Achsionen die Objekte der betreffenden Tabelle ins unbedingte Blickfeld des Code gerückt werden mußte, was durch das Aktivieren dieser Arbeittabelle erfolgt (Sprung zur Tabelle, wenn zuvor eine andere Tabelle den Focus hatte; eben das "Flackern").
Das Ereignis infolge der Selektion, das Markieren des Zellenbereichs, ist bekannt und bei der schrittweisen Ausführung zu beobachten. Anschließend werden die Zellen im Bereich der Selektion gelöscht und das virtuell entstandene Tabellenloch durch das Heraufziehen der unter dem Bereich bisher befindlichen Tabellen geschlossen (.Delete Shift:=xlUp). Das nmacht allerdings nur Sinn, wenn es etwas zum Heraufziehen "würdiges" in diesem ehemals unterhalb der Selektion liegenden Bereich gibt. Leerzeilen herauzuziehen ist ein schilbürgerhaftes Unterfangen.
Fazit: Im Programm lassen sich die beiden Zeilen 1.2 und 1.3 mit einander ohne Absichtsverlust, jedoch mit Steigerung der Effizenz, vereinen:
ActiveSheet.Range(Cells(4, 1), Cells(z, 30)).~~Select~~ + ~~Selection.~~Delete Shift:=xlUp
(1.2+1.3) ' ActiveSheet.Range(Cells(4, 1), Cells(z, 30)).Delete Shift:=xlUp
und da sich die ganbze Aktion auf dem aktiven Tabellenbalt abspielt, kann weiter gekürzt werden:
(1.2+1.3) ' Range(Cells(4, 1), Cells(z, 30)).Delete Shift:=xlUp
Wenn es nun nur darum geht, den Zelleninhalt indiesm Bereich zu löschen, dann serfüllt die Programmzeile
(1.2+1.3)a ' Range(Cells(4, 1), Cells(z, 30)).ClearContens
den gleiche Zweck, ohne zusätzlich Leerzelle herauf ziehen zu müssen.
Diese Vorgehenswiese bedingt also, dass man sich in dem Bezugsobjekt (Referenzobjekt) befindet. Auf jedes Objekt innerhalb des Referenzobjektes oder jede Methode die auf bzw. in diesem anwenbar ist, kann direkt angesprochen werden.
Außerhalb dieses aktiven Objektes sind andere Objekte nur über die vollen "Pfadangaben" möglich, vergleichbar also mit der Verzeichnisstruktur eines Dateisystems.
Sol der obige Programmcode auf ein Tabellenblatt 2 ausgeführt werden ohne das das Tabellenbalt 1 verlassen wird, dann wäre im Programm expizit mitzuteilen, dass man Objekte ansprechen will, die sich in einem anderen "Objektbereich" liegen:
1.1b | z = Worksheets(2).Range("a4").End(xlDown).Row
1.2b | Worksheets(2).Range(Worksheets(2).Cells(4, 1), Worksheets(2).Cells(z, 30)).ClearContens
Mit den obigen Erkläreungen wird deutlich, dass hier eben die Zelle [A4] auf der Tabelle 2 angesprochen wird und nicht die des aktiven Tabellenblattes, wenn es nicht gerade die Tabelle 2 ist. Besonder zu beachten ist, dass in 1.2b der Rangebereich auch durch die eindeutig zu referenzierenden Eckzellen zu benenne ist!
In diesen Anweisung fällt auf, dass die Objektbeschreibung Worksheet(2) viel Schreibarbeit verursacht. Doch da gibt es als Hilfe den With ... End With-Block, der es erlaubt, ein gemeinsames Referenzobjekt "auszuklammern".
1.0c | With Worksheets(2)
1.1c | z = .Range("a4").End(xlDown).Row
1.2c | .Range(.Cells(4, 1), .Cells(z, 30)).ClearContens
1.3c | End With
Das Objekt Worksheet(2) ist gedanklich also vor jeden führenden Punkt vor einem Sub-Objekt innerhalb des With-Blocks zu setzen.
Nun gibt es zusätzlich die Möglichkeit, einem Objekt einen besonderen Referenznamen zu verleihen, ein Referenzobjekt zu erstellen:

Dim objWS2 as Worksheet
Set objWS2 = Worksheets(2)

so dass nach erfolgreicher Einführung durch den Set-Befehl, objWS2 und Worksheets(2) gleichrangig im Geltungsbereich verwendet werden kann:
1.0d | With objWS2
1.1d | z = .Range("a4").End(xlDown).Row
1.2d | .Range(.Cells(4, 1), .Cells(z, 30)).ClearContens
1.3d | End With
Nun jedoch zu dem fehlerhaften Programmstück. Der Laufzeitfehler 1004 weist bereits auf die Ursache mit seiner Fehlerinformation "Die Methode 'Range' für das 'Objekt_Global' ist fehlgeschlagen" hin. Da eine Referenzierung fehlgeschlagen ist, wird versucht auf das Übergeordnete Objekt zu zugreifen. Das ist aber "Diese ArbeitsMappe" oder das Workbook-Obkjekt, was das dirkete Unteobjekt Range nicht "kennt".

'-------- erst vorhandene Liste löschen --- da kommt Fehlermeldung Laufzeitfehler 1004
' Wenn Daten vorhanden sind, kommt keine Fehlermeldung, wenn die Datei Leer ist,
' kommt Fehler !!!!!!!!!!!!
2.1. ' With wsLaufAbge
2.2. ' z = rgbLaAb.End(xlDown).Row
2.3. ' rgbLaAb.Range(Cells(rgbLaAb, 1), Cells(z, 30)).ClearContents
2.4. ' End With

Die Fehlersuche kann sich also auf die Eindeutigkeit der Referenzierung beschränken.
In 2.1 wird auf das Objekt wsLaufAbge Bezug genommen. Ist dieses sollte ordnungsgemäß durch einen Set-Befehl als Worksheet-Objekt eingeführt worden sein (beim Debbuging darf das Objekt kein "Leer"-Objekt sein).
In 2.2. wird ein anderes Objekt mit dem Namen rgbLaAb benutzt, was nach seiner Stellung zur Methode .End(xlUp) ein Rangeobjekt ist. Auch dieses muß eindeutig und nicht "Leer" gesetzt sein. Wenn nun in der betreffenden Spalte, die in dieser Referenz als Referenz vorgegeben ist, keine beschriebene Zelle vorhanden, zu liefert diese Anweisung 2.2 den Wert Null, der der Variablen z zugewiesen wird. Eine Zelle .Cells(0, Spalte) gibt es allerdings auf keinem Tabellenblatt!
Entweder es liegt ein Referenzfehler vor (was ich vermute, da .Range("A4") in rgbLaAb enthalten sein sollte, wenn die Notation so erfolgt wie bisher), oder aber der Fall z = 0 muß gesondert untersuchrt werden. Kann es also sein, dass, wenn in Spalte A kein Eintrag ist, dass dann dennoch der Bereich [A4:AD?] gelöchst werden muß und wie ist dabei dann ? zu definieren?
2.3.a | if z > 0 then
2.3.b | rgbLaAb.Range(Cells(rgbLaAb, 1), Cells(z, 30)).ClearContents
2.3.c | else
2.3.d | ...was nun?
2.3.e | end if
Doch hier ist dann auch in der Zeile 2.3.b noch eine Unstimmigkeit zu bemerken, da rgbLaAb einerseits an der Position eines Worksheets gesetzt ist, da es als Unterobjekt ein Range-Objekt anspricht ( rgbLaAb.Range(...), anderseits aber auch an der Position einer Zeilennummer eines Rangeobjektes steht (Eigenschaft Row eines Range-Objektes). Das kann nicht sein!
Da ich Gelegenheit genommen habe, Select vs. Referenzobjekt in groben Zügen gegenüber zu stellen, hat es etwas länger gedauert, bis ich zum Kern Deiner Fragestellen gekommen bin. Ich hoffe dennoch, dass ich nicht gelangweilt habe und einen ersten Schein in das Dunkel des Einsatzes von Referenzobjekten gebracht zu haben.
Gruß,
Uwe

With wsLaAb 'das ist die Sheet Lauf+Abge .Range("F2").FormulaR1C1 = "=TEXT(""Laufende "",)&TEXT(R[-1]C,""#.0"")&"" + Abgemeldete ""&TEXT(R[-1]C[2],""#.0"")" .Range("J2").FormulaR1C1 = "=IF(R[2]C[-9]>0,SUBTOTAL(3,R4C6:R65000C6),""Filter 0"")" .Range("M2").FormulaR1C1 = "=SUM(R4C13:R65000C13)" 'ist ZINSEN Summenformel .Range("Z2").FormulaR1C1 = "=SUM(R4C26:R65000C26)" 'Summel für NDL Ertrag End With

Sub VF_Lauf_Abge_Kopieren_TEST() Application.ScreenUpdating = False ' ws = die Sheet 'rgb = Breich Dim wsLaAb As Worksheet, wsLa As Worksheet, wsAb As Worksheet Dim rgbLaAb As Range, rgbLa As Range, rgbAb As Range Dim z, ze As Long Set wsLaAb = Sheets("Lauf+Abge") With wsLaAb Set rgbLaAb = wsLaAb.Range("A4") .Unprotect (getStrPasswort) If .AutoFilterMode Then rgbLaAb.AutoFilter End If End With Set wsLa = Sheets("Laufende") With wsLa Set rgbLa = wsLa.Range("A4") .Unprotect (getStrPasswort) If .AutoFilterMode Then rgbLa.AutoFilter End If End With Set wsAb = Sheets("Abgemeldete") With wsAb Set rgbAb = wsAb.Range("A4") .Unprotect (getStrPasswort) If .AutoFilterMode Then rgbAb.AutoFilter End If End With '-------- erst vorhandene Liste löschen -------------- With wsLaAb .Activate z = rgbLaAb.End(xlDown).Row .Range(Cells(4, 1), Cells(z, 30)).Clear 'wirklich notwendig? .Range("J2,M2,Z2,F1,H1").ClearContents End With '--------- jetzt Laufende kopieren ---------------------------- With wsLa .Activate z = rgbLa.End(xlDown).Row Set rgbLa = .Range(Cells(4, 1), Cells(z, 30)) rgbLa.Copy Destination:=wsLaAb.Range(rgbLaAb.Address) End With With wsLaAb .Activate Set rgbLaAb = .Cells(.Range("A4").End(xlDown).Row + 1, 1) 'Setzt neue Zielzelle End With '(für Destination im Copy-Befehl) '---------- jetzt Abgemeldete kopieren ---------------------------- With wsAb .Activate z = rgbAb.End(xlDown).Row Set rgbAb = .Range(Cells(4, 1), Cells(z, 30)) rgbAb.Copy Destination:=wsLaAb.Range(rgbLaAb.Address) wsLaAb.Activate 'Lauf+Abge aktivieren '--------- Spalte "B" Daten löschen --------------------- wsLaAb.Range(Cells(4, 2), Cells(65536, 2)).Clear End With '---- aktive Zelle setzen, muß mit With Neu gesetzt werden --- With wsLaAb Set rgbLaAb = .Range("A4") rgbLaAb.Activate End With '----------- Zahlenreihe setzen ----------------------------- 'Range("A4").Select ActiveCell.FormulaR1C1 = "1" ActiveCell.AutoFill Destination:=Range(ActiveCell.Address, Cells(Range("E65536").End(xlUp).Row, 1)), Type:=xlFillSeries '--------- jetzt wird sortiert, lf.Nr. Spalte "A" lassen ----------- With wsLaAb .Activate Set rgbLaAb = .Range("A4") rgbLaAb.Activate z = rgbLaAb.End(xlDown).Row Set rgbLaAb = .Range(Cells(4, 2), Cells(z, 30)) rgbLaAb.Sort Key1:=Range("F4"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With '------- für die Formeln ------------------------------------ With wsLaAb wsLaAb.Range("F2").Activate ActiveCell.FormulaR1C1 = _ "=TEXT(""Laufende "",)&TEXT(R[-1]C,""#.0"")&"" + Abgemeldete ""&TEXT(R[-1]C[2],""#.0"")" Set wsLaAb = Nothing Set wsLa = Nothing Set wsAb = Nothing Set rgbLaAb = Nothing Set rgbLa = Nothing Set rgbAb = Nothing Application.ScreenUpdating = True End Sub

Nein, Walter,
Experte bin ich in Dingen EXCEL nun wirklich nicht. Heimwerker trifft es eher, und so kann ich mir auch den einen oder anderen Schnitzer erlauben, ohne dass da das Wohl des Büros davon abhängt.
Anders scheint es mir allerdings bei Deinem Projekt zu sein, das im Endstadium einer ausgeeiften Lösung gleichkommen soll, zuverlässig arbeiten und von Dir gepflegt werden soll. Da ist ja fast schon zu Überlegen, ob Du nicht eine professionielle Hilfe in Anspruch nehmenen solltest. Insofern ist vielleicht auch verständlich, dass Du Dir nicht die Zeit nehmen kannst, Lernschritte zu festigen, ehe es zum nächsten Punkt geht.
Ausgangspunkt war, der übermäßige Einsatz von Select/Active-Befehlen in Deiner ersten vorgestellten Testentwicklung, die zu einer "flackernden" Bildschirmaktualisierung führte, um es noch einmal zu wiederholen.
Es ist nun zwischenzeitlich eine Arbeitsmappe daraufhin entstanden, die diesen Makel nicht mehr aufweist und als Grundlage dienen sollte, um nicht fortwährend mit anderen Namen und Programmstrukturen operieren zu müssen. Active/Select-Befehle fehlen dort bis auf die letzte Setzung der Activzelle, die nach der Aktuallisierung den Focus haben soll.
Nun zeigst Du hier einen Programmteil, der eigentlich das Wesen der Objektreferenzierung nicht ausnutzt, indem wieder auf Active & Co. zurückgegriffen wird.
Nun sind wir bereits ein Stück weit in der Abänderung des Programmcodes geschritten und ich würde einer der Letzten sein, die sich mit diesem "Unvollendeten" im Regen stehen lassen wollte, doch ist von Deiner Seite klar zu entscheiden, in welcher Art Du Dir die Erabeitung vorstellst, da es sich eben nicht um eine Übung handelt, für die alle denkbaren Irrwege zulässig sind.
Anderseits hege ich den Verdacht, dass am Ende ein schlecht zu entwirrender Flickenmuster-Programmcode entsteht, da mir für strukturierte Hinweise/Empfehlungen und im Zusammenhang sehende Erläuterugen der Überblick über die Gesamtfunktion und -aufgaben des Programmbausteines fehlt. So werden untere Zellen von Summenbereichen nach Spalte E ermittel, obwohl doch Recheckbereich übernommen wurden.
Warum also z.B. wird nun in E eine andere untere Zellennummer anzusprechen sein, als die für Reihe A einmal festgestellbare, sobald alle Blöcke kopiert sind? Welche (Auto-)Filterfunktion sollen wann eingesetzt?
Sofern es sich bei den Daten um vertrauliche Daten handelt und auch keine komplette Mustermappe erstellt werden kann, die als alleinige Arbeitsunterlage dient, an der alle Aufgaben simuliert werden können (ggf. als Zip-Datei hochzuladen), dann ist zu überlegen, ob es in Deinem näheren Umfeld nicht die Möglichkeit gibt, das Projekt in seinen Planungsschritten und Entwicklungsphasen fachkundig zu besprechen.
Sofern ich weiterhin unterstützend tätig sein kann - ohne das ich professioniellen Softwareentwicklern eine Aufgabe entziehe -, bitte ich darum, dass der Zeitraum zur Erarbeitung und Festigung von Erkenntnisschritten an Hand einer Beispielsmappe eingeplant ist, denn nur so, kann auch später der Programmcode mit vernünftigen Zeitaufwand gepflegt werden, so meine ich jedenfalls.
Wenn Du die Forumsleitung darum bittest, mir Deine Emailadresse zukommen zu lassen, lassen sich die weiteren Schritte vielleicht effektiver planen, als dieses bisher geschehen ist.
Ich hoffe Du hast Verständnis für das Darstellte, denn eine kürze Bewertung Deines Programmcodes wäre mir auch nicht möglich gewesen unabhängig von den Unklarheiten in den beabsichtigten Programmschritten.
Gruß,
Uwe

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bildschirm "flackern"

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread