Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
460to464
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
460to464
460to464
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dropdown Schriftgrösse

Dropdown Schriftgrösse
25.07.2004 22:24:04
Hans-Werner
Guten Abend
ich habe am 23.704 22:29Uhr von Beate Schmitz hier im Forum eine für mich interessante Datei gesehen.Folgender Code ändert bei Anwahl die Spaltenbreite
und setzt sie beim Verlassen wieder zurück.
Wie muss ich den Code ändern das er von B4 bis B80 in jeder Zeile funktioniert?
Kann mir jemand helfen?


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$B$4"
Range("$B$4").ColumnWidth = 50
Case Is <> "$B$2"
Range("$B$4").ColumnWidth = 20
End Select
End Sub

## Orginal Datei :https://www.herber.de/bbs/user/8881.xls
Gruss Hans-Werner Schmidt

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dropdown Schriftgrösse
25.07.2004 22:40:16
Nepumuk
Hallo Hans-Werner,
so geht's:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 2 And Target.Row > 3 And Target.Row < 81 Then
        Columns(2).ColumnWidth = 50
    Else
        Columns(2).ColumnWidth = 20
    End If
End Sub


Gruß
Nepumuk
Anzeige
AW: Dropdown Schriftgrösse
25.07.2004 22:47:33
Hans-Werner
Danke Nepumuk
du hast mich gerettet und ich kann meine Datei aufwerten.
Tschüs Hans-Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige