Betrifft: Schriftgröße in Gültigkeitsbereich
von: Heinz H
Guten morgen im Forum
Kann man die Schriftgröße für Gültigkeitsbereich "Liste" Quelle L54:L58 ändern ?
Ist doch etwas zu klein für manche Benutzer.
ODER gibt es eine andere Lösung ?
Gruß
Heinz
Betrifft: AW: Schriftgröße in Gültigkeitsbereich
von: Hajo_Zi
Geschrieben am: 02.01.2010 09:27:52
Hallo Heinz,
Schriftgröße Daten Gültigkeit
Da hast Du wenig Einfluss.
Im Internet Stand mal folgender Tip:
Zomm 200%, Schriftgröße auf die Hälfte reduzieren und Spalten und Zeilenbeschriftung ausblenden
Betrifft: AW: Schriftgröße in Gültigkeitsbereich
von: Heinz H
Geschrieben am: 02.01.2010 09:35:06
Guten morgen.Hajo
Habe jetzt deinen Tip getestet. Es funktioniert,ABER das optimale ist es auch nicht.
Trozdem recht herzlichen Dank.
Gruß
Heinz
Betrifft: AW: Schriftgröße in Gültigkeitsbereich
von: Beverly
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ooElement As OLEObject
Application.ScreenUpdating = False
If Target.Address = "$C$2" Then
Set ooElement = OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
Left:=0, Top:=0, Width:=0, Height:=0)
With ooElement
.Top = Range("C2").Top
.Left = Range("C1").Left
.Width = Range("C2:D2").Width
.Height = Range("C2:C3").Height
.ListFillRange = "$L$54:$L$58"
.LinkedCell = ""
.Activate
.Object.Font.Size = 12
.Object.DropDown
.Object.ListIndex = 0
End With
End If
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_Change()
Range("C2") = ComboBox1
End Sub
Private Sub ComboBox1_LostFocus()
Range("C2") = ComboBox1
ActiveSheet.OLEObjects(1).Delete
End Sub
Betrifft: AW: Schriftgröße in Gültigkeitsbereich
von: Heinz H
Betrifft: AW: Schriftgröße in Gültigkeitsbereich
von: Beverly
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ooElement As OLEObject
Application.ScreenUpdating = False
If Not Intersect(Target, Range("L6:L35")) Is Nothing Then
Set ooElement = OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
Left:=0, Top:=0, Width:=0, Height:=0)
With ooElement
.Top = Target.Top
.Left = Target.Left
.Width = Range(Target, Target.Offset(1, 2)).Width
.Height = Range(Target, Target.Offset(1, 2)).Height
.ListFillRange = "$L$54:$L$58"
.LinkedCell = ""
.Activate
.Object.Font.Size = 12
.Object.DropDown
.Object.ListIndex = 0
End With
End If
Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_Change()
Range(ComboBox1.TopLeftCell.Address) = ComboBox1
ActiveSheet.OLEObjects(1).Delete
End Sub
Lösche vorher alle Daten Gültigkeit DropDowns in L6:L35.
Betrifft: AW: Schriftgröße in Gültigkeitsbereich
von: Heinz H
Geschrieben am: 02.01.2010 12:02:54
Hallo Karin
Recht-Recht herzlichen Dank.
Ja du hattest recht
"mir scheint, du hast den Code nicht einmal getestet
Funkt. SUPER
Betrifft: AW: Schriftgröße in Gültigkeitsbereich
von: Willy
Geschrieben am: 03.01.2010 00:33:46
Hallo Karin
super Code, ( der Fachmann staunt und der Laie wundert sich )
der erste funzt super,
beim zweiten geht die Gültigkeitsliste weg, aber die ComboBox bleibt in voller größe stehen.
Gruß Willy
Betrifft: ..versuch einmal..
von: robert
Geschrieben am: 03.01.2010 09:05:40
hi,
lösche einmal die boxen per hand, dann sollte es gehen-
zumindest bei mir geht es dann.
gruß
robert
Betrifft: AW: Schriftgröße in Gültigkeitsbereich
von: Beverly
Betrifft: AW: Schriftgröße in Gültigkeitsbereich
von: Willy
Geschrieben am: 03.01.2010 10:54:51
Hallo Robert
löschen, schön und gut, aber wie ???
Hallo Karin
Ich habe es jetzt mehr mal mit neuen leeren Arbeitsmappen probiert und komme immer auf das gleiche Ergebnis. Siehe Anhang.
Gruß Willy
https://www.herber.de/bbs/user/66944.xls
Betrifft: AW: Schriftgröße in Gültigkeitsbereich
von: Beverly
Geschrieben am: 03.01.2010 14:16:30
Hi Robert,
schalte den Entwurfsmodus ein und dann kannst du sie löschen.
https://www.herber.de/bbs/user/66946.xls
Betrifft: ..das sollte wohl an Willy-owT
von: robert
Geschrieben am: 03.01.2010 14:20:44
Betrifft: AW: Schriftgröße in Gültigkeitsbereich
von: robert
Geschrieben am: 03.01.2010 14:24:03
Hi,
hier deine datei nach mehrmaliger auswahl :-)
warum bleiben die stehen ?
gruß
robert
https://www.herber.de/bbs/user/66947.xls
Betrifft: AW: Schriftgröße in Gültigkeitsbereich
von: Beverly
Private Sub ComboBox1_Change()
Range(ComboBox1.TopLeftCell.Address) = ComboBox1
ActiveSheet.OLEObjects(1).Delete
End Sub
Private Sub ComboBox1_LostFocus()
ActiveSheet.OLEObjects(1).Delete
End Sub
Betrifft: Danke Karin :-) owT-Gruß
von: robert
Geschrieben am: 03.01.2010 14:52:22
Betrifft: AW: Danke Karin :-)
von: Willy
.ListFillRange = "$L$54:$L$58"
.ListFillRange = "$L$53:$L$59"
Betrifft: AW: Danke Karin :-)
von: Beverly
Betrifft: AW: Danke Karin :-)
von: Willy
Betrifft: AW: Danke Karin :-)
von: Beverly
Private Sub ComboBox1_LostFocus()
Range(ComboBox1.TopLeftCell.Address) = ComboBox1
ActiveSheet.OLEObjects(1).Delete
End Sub
Da kein Change-Ereignis ausgeführt wird wenn die ComboBox ohne Auswahl eines anderen Eintrages verlassen wird, muss der Eintrag in die Zelle auch beim einfachen Verlassen der ComboBox erfolgen.
Betrifft: AW: Danke Karin :-)
von: Heinz H
Geschrieben am: 04.01.2010 13:24:43
Hallo Karin
Auch ich möchte mich,bei Dir nochmals recht herzlich bedanken.
Gruß
Heinz
Betrifft: Danke Karin :-) owT Gruß Willy
von: Willy
Excel-Beispiele zum Thema "Schriftgröße in Gültigkeitsbereich" | |
---|---|
Über VBA Schriftgröße von Fußzeilen bestimmen | Schriftgröße beim Kopieren verdoppeln |
Schriftgröße der aktiven Zelle bei Auswahl ändern | Bei Öffnen Standardschriftgröße prüfen und Zoom festlegen |
Änderung der Schriftgröße bei Zellauswahl |