mist stecke in sackgasse

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Thomas,
es gibt ne Reihe konzeptioneller Mängel, auf die ich unten noch eingehen werde.
Erst mal hat sicherlich deshalb keiner geantwortet, da man nicht auf den ersten Blick begreift, was Du da treibst.
Andererseits: hat man es erst mal begriffen, ist die Lösung eigentlich ganz einfach und mit ein paar Zeilen VBA erledigt:

Sub datenZuordnen()
Dim d_von&, d_bis&, d&, mehrere&
Dim termine As Variant
Dim c As Range
einblenden
d_von = 2
d_bis = Daten.Range("E" & Rows.Count).End(xlUp).Row
termine = Daten.Range("A" & d_von & ":G" & d_bis)
For d = 1 To UBound(termine, 1)
Set c = Jahr.Cells.Find(what:=termine(d, 1), LookIn:=xlValues)
If Not c Is Nothing Then
For mehrere = 0 To termine(d, 3) - 1
c.Offset(, 2 + mehrere * 3) = termine(d, 7)
Next
Else
Daten.Range("H" & d + 1) = "fehler"
End If
Next
ausblenden_Bdef
End Sub

Damit werden alle Termine mit VBA geschrieben, d.h. u.a., daß Du Excel deutlich entlasten kannst, indem Du alle nicht benötigten Formeln rauslöschst.
Schau Dir mal den Ausschnitt an:
Userbild

Sowohl beim Freitag als auch dem Tag ist eine Riesenformel hinterlegt, obwohl beides (in dem konkreten Fall) den Tageswert 42006 hat und die Anzeige "Fr" bzw. "02" nur eine Sache der Formatierung ist.
D.h., die untere Formel (in G4) kannst Du durch ein schlichtes =G3 ersetzen - und das sinngemäß in der gesamten Tabelle.
Die Formeln in G5 bis G9 kannst Du komplett löschen (wie gesagt, die Werte werden mit VBA eingefügt), und zwar sinngemäß auch in der gesamten Tabelle.
Weiterhin sind die Formeln direkt "links daneben", also die Anzahl der Tage, auch hinfällig, da sich das Makro die Info direkt aus dem Blatt "für Kalender" holt.
Man könnte diese Spalten genausogut ganz löschen, müßte dann allerdings im Makro die Zeile

c.Offset(, 2 + mehrere * 3) = termine(d, 7)

entsprechend anpassen - mach das, sobald Du verstanden hast, was da passiert...
Zur Konzeption:
1. arbeitet "mein" Makro nicht über Monatsgrenzen hinweg, d.h. Du nimmst dann bitte zwei Zeilen. Also z.B. statt 30.1. bis 2.2. eben 30.1. bis 31.1. und 1.2. bis 2.2.
2. hat Deine Formel im Blatt "für Kalender" in Spalte C einen grundsätzlichen Mangel: gibst Du etwa in E6 den 6.1. ein, wird wieder bei 1 begonnen, obwohl sich das mit dem Zeitraum 5.1. bis 8.1. überschneidet. Mit "Excel gut" wird es Dir ein Leichtes sein, das zu ändern, schlimmstenfalls mit einer Hilfsspalte, z.B. D.
3. eine Begrenzung auf 5 Zeilen pro Monat ist immer haarig; was ist, wenn dann doch mal 6 Zeilen benötigt werden? Der "sauberste" Ansatz wäre, das Ganze so variabel zu gestalten, daß so viele Zeilen erzeugt werden wie nötig.
Das sollte mit VBA "relativ problemlos" umzusetzen sein, würde in meinen Augen aber einen komplett neuen Ansatz rechtfertigen, in dem man es "gleich richtig" macht. Ein gewisses Hindernis sind dabei die vielen, vielen bedingten Formatierungen...
Die Datei: https://www.herber.de/bbs/user/102707.xlsm
Ach, genau, ich habe Deine Subs zum Ein- und vor allem Ausblenden überarbeitet *und* eine weitere Alternative (mit der jeweiligen Endung _Bdef) aufgezeigt: man kann nämlich in Excel unter "Ansicht/Benutzerdefinierte Ansichten" selbige mit ein- und ausgeblendeten Zeilen/Spalten definieren, so daß zur Änderung der Anzeige nur *eine* VBA-Zeile nötig ist.
Schöne Grüße,
Michael

Hallo Michael,
ich bin überglücklich das Du dich damit beschäftigt hast. Ich habe mir das ganze WE damit beschäftigt und dachte ok versuche ich es mal mit autoausfüllen. Deshalb auch der neue Beitrag von mir aber ich stand immer wieder auf anfang. Die ganzen Formatierungen können alle raus normalerweise baue ich soetwas erst zu schluss ein. Deshalb hätte ich überhaupt kein problem mit einem kompletten neuanfang im gegenteil wenn es danach sogar noch einfacher ist.
zu dein Punkt
3. eine Begrenzung auf 5 Zeilen pro Monat ist immer haarig; was ist, wenn dann doch mal 6 Zeilen benötigt werden? Der "sauberste" Ansatz wäre, das Ganze so variabel zu gestalten, daß so viele Zeilen erzeugt werden wie nötig.
Ich habe es auf fünf reduziert weil es immer langsamer wurde und ich kein Rat mehr wusste.
Da ich mir vorstellen kann das Du schon sehr lange daran gearbeitet hast ist mir sehr peinlich dich zu fragen wie ich es besser Konzeptionieren könnte. ( Hast Du dann die viele arbeit umsonst gemacht?) Aber die Vorstellung diese Beschränkung aufzuheben ist total cool.
Jedoch befürchte ich wenn ich es neu oder besser umschreibe weiß ich nicht wie ich Anfangen könnte. In jedem Fall werde ich erstmal alle deine Tipps in die Tat umsetzen. Hab vielen vielen dank dafür.
(PS: das mit " excel gut" ist für mich schwer zu beurteilen im vergleich von mein örtliches umfeld ist es sicher auch so aber wenn ich sehe was Du zB. schon gemacht hast nun ja da habe ich wohl mit gut übertrieben.)
Was könnte ich ändern damit die Möglichkeit besteht die Beschränkung aufzuheben?
Die Struktur der termindaten ist auch komplett veränderbar. Dies ist nur eine temp zum reduzieren der Daten
viele liebe grüsse thomas

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread