Spaltenbreite abhängig wie bedingte Formatierung

Computer: Software & Programmierung Office Software
#1

Liebe Experten,
für eine Kalendertabelle benötige ich ein Makro, das mir die Spaltenbreite in Abhängigkeit von einem Zellinhalt einstellt.

Das Hintergrundfärben der Spalten geht über 2 Formeln in der bedingten Formatierung:
=(TEIL(C$2;1;1)=„S“)
=(TEIL(C$2;1;1)=„F“)
Damit kennzeichne ich automatisch mit Hilfe der Kalenderfunktion (inkl. bew. Feiertage) alle Freitage, Samstage, Sonntage und Feiertage.

Jetzt müsste nur noch die Spaltenbreite automatisch eingestellt werden.

Feedback versprochen für jeden Lösungsansatz und ein Dankeschön dazu.
Ullrich Sander

#2

für eine Kalendertabelle benötige ich ein Makro, das mir die
Spaltenbreite in Abhängigkeit von einem Zellinhalt einstellt.

Das Hintergrundfärben der Spalten geht über 2 Formeln in der
bedingten Formatierung:
Jetzt müsste nur noch die Spaltenbreite automatisch
eingestellt werden.

Hallo Ullrich,

automatische Breite entspricht dem manuellen Format–Spalte–optimale Breite…

Columns(„B:B“).AutoFit
bzw.
Columns(2).AutoFit

die Codezeile kannst du, damit sie auomatisch abläuft, in einen Ereignis-Code des Blattes reinschreiben.
z.B. Worksheet_Change-Ereignis.

Gruß
Reinhard

#3

Hallo Reinhard,
erstmal danke für Deinen Lösungsansatz!
Da hab ich mich wohl sehr missverständlich ausgedrückt.

Ich möchte die Spaltenbreite einstellen für 30/31 Tage pro Monat und alle 12 Monate in den jeweiligen Tabellen.
Dies soll in Abhängigkeit davon passieren, ob in der einzelnen Spalte ein „S“ oder ein „F“ in der zweiten Zeile steht.

Also: WENN C2=„S“ oder „F“, dann Spaltenbreite 3cm SONST 1,5cm.
Und das dann als Schleife für alle 30/31 Tage und alle 12 Monatsblätter.

Ich weiss, dass das fast schon unverschämt viel verlangt ist, aber vielleicht ein Lösungsansatz in dieser Richtung?

Freundliche Grüße
Ullrich Sander

@Reinhard: Spaltenbreite wie bei Bed. Formatierung
@Reinhard: Spaltenbreite wie bei Bed. Formatierung
@Reinhard: Spaltenbreite wie bei Bed. Formatierung
#4

Hallo Ulrich,

Ich möchte die Spaltenbreite einstellen für 30/31 Tage pro
Monat und alle 12 Monate in den jeweiligen Tabellen.
Dies soll in Abhängigkeit davon passieren, ob in der einzelnen
Spalte ein „S“ oder ein „F“ in der zweiten Zeile steht.
Also: WENN C2=„S“ oder „F“, dann Spaltenbreite 3cm SONST
1,5cm.
Und das dann als Schleife für alle 30/31 Tage und alle 12
Monatsblätter.

okay, verstehe ich. Nun habe ich aber diverse Ideen wie deine mappe aufgebaut sein könnte.
lade mal bitte mit rapidshare oder ähnlich ( FAQ:2606 ) eine Beispielmappe hoch.
Dann kann ich, andere, dir sicher auch, eine Vba-Lösung bieten.

Ich weiss, dass das fast schon unverschämt viel verlangt ist,

Kein Akt, dadurch wird nur die Zahl auf dem Scheck den du mir schickst größer *grien*

Gruß
Reinhard

#5

Hallo Reinhard,

da hast Du natürlich recht, so kann sich niemand eine Vorstellung machen. Die Datei liegt auf:
http://rapidshare.com/files/419926054/Monats__bersic…

Im Blatt Januar sind die Spaltenbreiten „von Hand“ annähernd richtig eingestellt, Im Februar ff noch nicht.
In der ausgeblendeten Zeile2 werden die Tageskürzel bzw. ein Ft bei Feiertagen automatisch eingetragen.

Wenn also Wochenende mit Freitag oder Feiertag, breite Spalte, sonst schmal.

Zur Ergänzung: Die ermittlung der bew. Feiertage geschieht auf dem ausgeblendeten Blatt „Ft“.
Auf dem 1. Blatt Grubdlagen wird der 1.1. des Jahres eingetragen, für das der Kalender gelten soll.

Grüße aus dem sonnigen aber lausig kalten Nürnberg

Ullrich Sander