Horizontal Zellen verbinen (über Datums-Range)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaa() Dim lCol As Long, i As Integer, d As Date lCol = 2 Do While Cells(5, lCol) "" d = Cells(5, lCol) i = Day(DateSerial(Year(d), Month(d) + 1, 0)) Cells(4, lCol).Resize(, i).Merge lCol = lCol + i Loop End Sub

Hi
das würde ich über Bedingte Formatierung machen und z.B. einen vertikale Rahmenlinie einfügen, wenn ein Monatswechsel stattfindet:
z.B. mit dieser Formel als Regel:

=Monat(B5)Monat(C5)

und einen rechten Rahmen.
auch den Monatsnamen würde ich per Formel darstellen.
da du in jeder Zelle eine Formel brauchst, kann ein Monatsname nicht über den Rand der Zelle hinaus geschrieben werden. Daher schreibst du immer nur einen Buchstaben in eine Zelle (da die Zellen recht schmal sind, sollte das noch brauchbar aussehen):
dh diese Formel in B4:


=TEIL(TEXT(B5;"MMMM");TAG(B5);1)

damit wird der Monatsname immer ab dem 1. des Monats in die Zellen geschrieben.
hat den Vorteil, dass sich das automatisch anpasst, wenn du das Datum in B5 änderst.
Gruß Daniel

Für .xlsx gilt:
Geschlossene Datei:
- aufeinanderfolgende gleiche Formeln werden nur einmal gespeichert (plus Overhead)
- deren Werte werden einzeln gespeichert
- insgesamt wird dann noch komprimiert, da .xlsx ein .ZIP-Format ist
- Um Größenordnungen kleiner sind "Konstruktionsmakros", wenn nicht zu viele Konstanten im Spiel sind
Geöffnete Datei (Verwendung des RAM), maximale Schnelligkeit, keine Kompressionen:
- gleiche Formeln werden (vermutlich) - jede einzeln - verwaltet; also aufgeblähter RAM-Bedarf
- deren Werte werden einzeln gespeichert
- komprimiert wird nicht
.xls:
- wie "Geöffnete Datei" auch bei geschlossener Datei (mit leichten Abweichungen).
_________________________________________________________________________________
Was bedeutet das für unseren Thread? 366 x 15 Byte allein für Werte sind schon gut 5 KB. Das ist zwar nicht die Hölle, aber in vielen Fällen werden auch mehr solcher Daten permanent mitgeschleppt.
_________________________________________________________________________________
Hier noch eine Lösung für neue Excels:
=TEXTVERKETTEN(WIEDERHOLEN("_";99);;INDEX(TEXT(ZEILE($1:$12)*29;"MMMM");))
Die 99 ist individuell an die Spaltenbreite anzupassen, und insgesamt sollte man nicht zu pingelig sein, dass der Monatstext hierbei nicht links vor dem 1. des Monats anschlägt, sondern nur ungefähr kurz nach dem Monatsbeginn steht.
Mit einem " " statt "_" könnte die Formelergebnis-Rückgabe zu viele Zeichen erfordern, um alle Monate zurückzugeben. Daher selbst testen.
Puristen passen dies hier für sich an:
=TEXTVERKETTEN(WIEDERHOLEN("_";{80;70;80;70;80;90;80;70;80;90;80;70});;INDEX(TEXT(ZEILE($1:$13)*29; "MMMM");))
Und um auch noch das Schaltjahr zu erschlagen, ginge
=TEXTVERKETTEN(WIEDERHOLEN("_";INDEX($X$1:$X$13;));;INDEX(TEXT(ZEILE($1:$13)*29;"MMMM");))
mit X1:X13: selbstermittelte Abstände, mit Februars Schaltjahresberücksichtigung.

Beliebteste Forumthreads (12 Monate)

Horizontal Zellen verbinen (über Datums-Range)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Horizontal Zellen verbinen (über Datums-Range)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread