Hallo zusammen,
neben dem "Strict On"-Problem hatte ich ja eingangs auch Fragen zu Formatierungen. Inzwischen habe ich einiges herausgefunden. Ich vermute, dass ist auch für andere interessant (z.B. 1.05 Numberformat), daher poste ich das hier; das ganze als Kommentar, dann kann man sich das vorübergehend in den eigenen Code legen und beim programmieren nachschlagen.
Zur Liste:
Ein "+" hinter der Ziffer kennzeichnet: Problem gelöst, ein "-" zeigt eine noch offene Frage an.
Im Moment tüftele ich noch an:
'1.02 ? Eine Zelle/einen Bereich einfach/doppelt unterstreichen? (Linie unten)
'1.03 ? Alle Formatierungen zurücknehmen (xlnone)
'2.03 ? Einen Registerreiter umbenennen
'2.04 ? Einem Registerreiter eine Farbe zuweisen
'2.05 ? Spaltenüberschriften (A, B, C, ...) ausblenden / einblenden
'2.06 ? Linien ausblenden/einblenden
Viele Grüße
Vaubehnet
'---------------------------------------------------------------
'Voraussetzung ist der oben gepostete Code!
'Befehle müssen an der passenden Stelle
'(.Range z.B. innerhalb With-Schleife) eingefügt werden!
'---------------------------------------------------------------
'-----------------------------
'1. Fragen zu Zelle und Inhalt:
'-----------------------------
'1.01 + Eine Zelle/einen Bereich mit einem Rahmen versehen?
' Geht mit Linestyle:
' Werte: .Linestyle = 1 ' einfache Linie
' 2 ' gestrichelte Linie
' 3 ' ähnlich 2, aber eher gepunktet
' 4 ' langer Strich, kurzer Strich
' 5 ' langer Strick, zwei kurze Striche
' 6 ' Strich-Punkt in fett
' Beispiel:
' With .Range("B4:D7")
' .Borders.LineStyle = 2
' End With
'1.02 ? Eine Zelle/einen Bereich einfach/doppelt unterstreichen? (Linie unten)
'1.03 ? Alle Formatierungen zurücknehmen (xlnone)
'1.04 + Schriftgröße und Schriftart zuweisen, Text unterstreichen
' .Range("A3").Font.Size = 24
' .Range("A3").Font.Name = "ARIAL"
' .Range("A5").Font.Underline = True
'1.05 + Eine Zelle/Bereich ein Zellformat und eine Formatierung zuweisen
' z.B. 1.000er Punkte, zwei Nachkommastellen
' .Range("A3").NumberFormat = "#,##0.00"
'1.06 + Einer Zelle ein Datumsformat zuweisen (dd.mm.jjjj)
' .Range("A4").NumberFormat = "m/d/yyyy"
'1.07 + Nicht einer Zelle, sondern einem Text eine Farbe zuweisen
' (z.B. für Negativwerte rot, sonst schwarz)
' Farbe zuweisen geht mit (-16776961 = rot):
' .Range("A3").Font.Color = -16776961
'-------------------------------------------------------
'2. Fragen zu Reihen, Spalten und Register sowie Dateiname:
'-------------------------------------------------------
'2.01 + Spalten manuell eine feste Breite zuweisen, z.B. Spalte C
' .Columns("C:C").ColumnWidth = 20
'2.02 + Zeilen eine feste Höhe zuweisen
' Einer bestimmten Zeile eine Höhe zuweisen, z.B. 3. Zeile:
' .Rows("3:3").RowHeight = 24
' Mehreren Zeilen eine bestimmte Höhe zuweisen, z.B. 10. - 30. Zeile:
' .Rows("10:30").RowHeight = 25
'
'2.03 ? Einen Registerreiter umbenennen
'2.04 ? Einem Registerreiter eine Farbe zuweisen
'2.05 ? Spaltenüberschriften (A, B, C, ...) ausblenden / einblenden
'2.06 ? Linien ausblenden/einblenden
'2.07 + Excel-Datei direkt ohne Nachfrage drucken
' xlWorkbook.PrintOutEx()
'2.08 + Excel-Datei unter einem anderen Namen speichern
' xlWorkbook.SaveAs("DeinPfad:\DeinDateiname.xlsx")
'2.09 + Spalten automatisch in der Breite anpassen
' app.Columns.AutoFit() ---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14) |