Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spaltenbreite bei Sa und So

Spaltenbreite bei Sa und So
gisela
Hallo,
nachdem ich jetzt zwei Stunden gesucht und nichts passendes gefunden habe, und außerdem nur wenige VBA-Kenntnisse habe, hier mein Problem:
In einer Tabelle habe ich im Bereich (J4 - BS4) Datumseingaben. Wenn eine dieser Datumseingaben einen Sonntag oder Samstag ergibt, soll die Spaltenbreite auf 0.40 gesetzt werden. Ich brauche aus Platzgründen keine "optimale" Spaltengröße, da So und Sa nur Platzhalterfunktion haben.
Kann mir bitte jemand bei der Lösung helfen.
Liebe Grüße
Gisela

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Spaltenbreite bei Sa und So
21.08.2011 19:28:24
Hajo_Zi
Hallo Gisela,
warum machst Du nicht gleich eine Liste ohne Sonnabend undd Sonntag?

AW: Spaltenbreite bei Sa und So
21.08.2011 19:36:32
gisela
Hallo Hajo,
vielen Dank für Deine Mühe.
Ich verwende meine Urlaubsliste. Den makro habe ich vor einiger Zeit hier im Forum gefunden. Und die Liste wird mit allen Tagen angelegt. Für meinen jetzigen Zweck musste ich noch einige andere Veränderungen vornehmen. Das hat auch geklappt. Jetzt möchte ich halt aus Platzgründen die Sa und So-Spalten klein halten. Da ich die Spalten über Bedingte Formatierung farbig abgrenze und aus diesem Grund auch die So und Sa (zur optischen Abgrenzung der wochentage) brauche.
Liebe Grüße
Gisela
Anzeige
AW: Spaltenbreite bei Sa und So
21.08.2011 19:42:55
Hajo_Zi
Hallo Gisela, 
Option Explicit
Sub Ausblenden()
Dim LoI As Long
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, Columns.Count).End(xlToLeft). _
Column, Columns.Count)
For LoI = 1 To LoLetzte
If Application.WorksheetFunction.Weekday(Cells(1, LoI), 2) > 5 Then
Columns(LoI).ColumnWidth = 0.4
End If
Next LoI
End Sub

Gruß Hajo
AW: Spaltenbreite bei Sa und So
21.08.2011 20:04:37
gisela
Hallo Hajo,
hier
If Application.WorksheetFunction.Weekday(Cells(1, LoI), 2) > 5 Then
bekomme ich eine Fehlermeldung.
Hast du noch eine andere Möglichkeit?
Vielen Dank und liebe Grüße
Gisela
Anzeige
AW: Spaltenbreite bei Sa und So
21.08.2011 20:39:37
Hajo_Zi
Hallo Gisela,
in Zeile 1 steht schon ein Datum?
Gruß Hajo
AW: Spaltenbreite bei Sa und So
21.08.2011 21:12:06
gisela
Hallo Hajo,
Datumseingaben stehen nur im Bereich
Bereich (J4 - BS4)
Liebe Grüße
Gisela
AW: Spaltenbreite bei Sa und So
21.08.2011 21:15:39
Hajo_Zi
Hallo Gisela,
Option Explicit
Sub Ausblenden()
Dim LoI As Long
For LoI = 4 To 71
If Application.WorksheetFunction.Weekday(Cells(4, LoI), 2) > 5 Then
Columns(LoI).ColumnWidth = 0.4
End If
Next LoI
End Sub

Gruß Hajo
Anzeige
AW: Spaltenbreite bei Sa und So
21.08.2011 21:25:35
gisela
Hallo Hajo,
zeigt Fehlermeldung :
Die Weekday-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden.
Muss ich irgendwo etwas aktivieren oder ändern?
Liebe Grüße
Gisela
AW: Spaltenbreite bei Sa und So
21.08.2011 21:28:29
Hajo_Zi
Hallo Gisela,
For LoI = 10 To 71
Gruß Hajo
Herzlichen Dank o.T.
21.08.2011 21:36:17
gisela
o.T.
vielen Dank
21.08.2011 21:35:08
gisela
Hallo Hajo,
vielen Dank für deine Geduld.
Habe jetzt dies für den Fehler abzufangen eingebaut und es funktioniert.
On Error Resume Next
dein Makro
On Error GoTo 0
Liebe Grüße
Gisela
Zeig den Code! o.T.
21.08.2011 19:43:09
Josef
« Gruß Sepp »

Anzeige
Code
21.08.2011 19:54:18
gisela
Hallo,
ich habe ein Muster, das mit diesem Makro und dem gewählten Monatsnamen erstellt wird.
Sub neuermonat()
On Error Resume Next
Application.ScreenUpdating = False
'Blatt für Monat anlegen:
Sheets("monatwahl").Select
Range("e11").Select
liste = Range("b4:i103").Value
monatname = Range("D151").Value
Sheets("NeueSeite").Visible = True
Sheets("NeueSeite").Copy Before:=Sheets("monatwahl")
ActiveSheet.Name = monatname
If Err.Number  0 Then
MsgBox ("Monatsblatt bereits vorhanden")
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = False
Sheets("NeueSeite").Visible = False
Sheets(monatname).Activate
Exit Sub
End If
Columns("I:I").ColumnWidth = 12.86
Range("A4").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E2").Select
Range("a4:bs4").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("b5:i104").Value = liste
ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A5").Select
ActiveSheet.Unprotect
Sheets("neueSeite").Visible = False
Application.ScreenUpdating = True
End Sub
Liebe Grüße
Gisela
Anzeige

167 Forumthreads zu ähnlichen Themen

Bedingte Formatierung, wenn Spalte gefüllt
belanglos

Hallo,
ich habe gerade ein Brett vom Kopf.
Ich möchte mit der "Bedingten Formatierung" ein Tabellenblatt formatieren. Bedingung soll aber sein, dass die die "Bedingte Formatierung" alles formatiert, wenn in Spalte A bspw. der Buchstabe A steht.
Kann mir damit jemand weiterhelfen....
11.09.2008 14:34:00
Thread-ID: 1009128
5 Beiträge
Anzeige
Bedingte Formatierung einer ganzen Zeile
Steffan

Hallo,
hab ein neues Problem.
Spalte B ist Hilfsspalte mit 1 oder 0
Ist in der Zelle der Hilfsspalte z.B. (5,2) eine 1, dann die Zeile Rot (zumindestens 5 Spalten davon), ansonsten bleibts so wies ist.
Über bedingte Formatierung hab ich in anderen Foren gelesen, billige Beispiel...
23.12.2008 11:50:29
Thread-ID: 1034966
4 Beiträge
Datumsdifferenz ohne Samstag und Sonntag
dirt

Hallo @ all,
mein Problem ist: Ich möchte eine Datumsdifferenz in einer Excel-Tabelle machen. Das müsste in VBA gemacht werden und nicht über eine Formel in Excel.
Ich hab mir jetzt ein einige Bsp angeschaut aber leider nicht wirklich fündig geworden. Es soll eingentlich ganz Simpel ei...
14.03.2009 15:32:37
Thread-ID: 1060165
10 Beiträge
Anzeige
wenn zelle rot dann rot!
lisa

Hallo
Ich habe eine, für euch wahrscheinlich, ganz banale Frage.
Ich habe über eine bedingte Formatierung alle Sonntage der Zeile 5 meiner Tabelle rot gekennzeichnet.
Nun möchte ich gern alle darunterliegenden Zellen auch rot kennzeichnen.
Also wenn h5=rot;h6bish300 =rot.
I...
02.12.2009 11:37:59
Thread-ID: 1121369
7 Beiträge
Bedingte Formatierung Wenn <>H6:K6
Heinz

Hallo im Forum
Ich möchte in bedingter Formatierung eine Formel einfügen. In G6 =Wenn (G6)H6:K6
Könnte mir bitte jemand weiterhelfen.
Gruß
Heinz
17.12.2009 09:08:32
Thread-ID: 1124541
8 Beiträge
Wenn o dann Text in A1 rot
Heinz A. Wankmüller
Hallo Jörg,dafür verwendest am besten die Bedingte Formatierung.
Setze den Cursor in die Zelle A1 und rufe Format/Bedingte Formatierung auf. Wähle anstatt Zellwert ist den Eintrag Formel ist und gib die Formel =$A$12="o" ein. Danach definierst du noch das gewünschte Format mit roter, vielleicht...
16.04.2002 17:25:23
Thread-ID: 113808
2 Beiträge
Bedingte Formatierung WENN(UND
Judith

Hallo,
ich versuche eine bedingte Formatierung für eine Erinnerung einzubauen, verstehe aber nicht, warum diese Formel nicht funktioniert.
Der Name soll eingefärbt werden wenn bis HEUTE() 90 Tage vergangen sind und das Feld für die Erinnerung auf "Nein" steht.
https://www.herber.de/...
17.02.2010 08:52:17
Thread-ID: 1139118
3 Beiträge
Zellen sortieren und zusammenfassen
Rudi

Hallo,
ich würde gern einen automatischen Bezug der Tabelle 1 zu Datensätzen aus anderen Tabellenblättern herstellen.
Ich möchte die Datensätze in den hinteren Tabellenblättern eingeben und nach Datum sortiert in Tabellenblatt 1 wieder ausgeben. Wie kann ich das am besten bewerkstellig...
23.02.2010 12:28:17
Thread-ID: 1140645
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
3
9
4
6
7
1
2
4
3
6
2
2
11
14
1
6
3
6
2
9
14
4
7