Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
308to312
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
308to312
308to312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

gültigkeit --> wenn Spalte schmal dann

gültigkeit --> wenn Spalte schmal dann
17.09.2003 19:32:33
helena
Hallo
kleines Problem wenn Spalte schmal wird auch Drop-Down schmal
gibt es möglichkeit dies zu beeinflussen ???

Danke für INFO

gruss helena

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gültigkeit --> wenn Spalte schmal dann
17.09.2003 22:13:33
Josef Ehrensberger
Hallo Helena,

meines Wissens kannst du nicht verhindern,
das sich das DropDownFeld der Gültigkeit mit der Spaltenbreite
verändert.
Aber vielleicht kannst du sie durch ein DropDown aus der Steuerelemente-Toolbox
ersetzen.

Gruß Sepp
AW: gültigkeit --> wenn Spalte schmal dann
17.09.2003 22:31:30
helena
Hallo Sepp

habe mir jetzt mit dem beholfen, es klappt aber wieder schmal machen


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$12" Then Call breit
Cancel = True
End Sub


zB bei Save oder bei Print habe ich noch nicht geschafft


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Range("C12").Selection.ColumnWidth = 6
Range("C12").Select
End Sub


weis einfach nicht warum alles in dieser Tabelle wo ich dies benötige

Danke

gruss helena
Anzeige
Spaltenbreite
17.09.2003 22:52:58
Josef Ehrensberger
Hallo Helena,

versuche folgendes.

In das Modul deiner Tabelle (Tabellenname im VBA-Editor doppelklicken)
schreibst du


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$12" Then
Columns("C:C").ColumnWidth = 6 'an deine bedürfnisse anpassen
Else
Columns("C:C").ColumnWidth = 4
End If
End Sub


In das Modul "DieseArbeitsmappe" schreibst du


Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets(1).Columns("C:C").ColumnWidth = 6
End Sub


Ich hoffe du kommst klar - Sepp
Anzeige
Danke Josef es läuft wie gewünscht gruss aus CH o.
17.09.2003 23:06:03
helena
.
Danke für die Rückmeldung! o.T.
17.09.2003 23:11:38
Josef Ehrensberger
o.T.

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige