Herbers Excel-Forum - das Archiv
Ansichten wechseln | Herbers Excel-Forum
- Ansichten wechseln von chris vom 09.01.2010 12:12:27
- AW: Ansichten wechseln - von Hajo_Zi am 09.01.2010 12:18:27
- AW: Ansichten wechseln - von chris am 09.01.2010 13:55:48
- mit Togglebutton ... - von Matthias L am 09.01.2010 14:00:05
- AW: mit Togglebutton ... - von chris am 09.01.2010 14:36:17
- ja hier mal ein Beispiel - von Matthias L am 09.01.2010 14:44:20
- AW: ja hier mal ein Beispiel - von chris am 09.01.2010 15:30:35
- .CustomViews("Ansicht1").Show ... - von Matthias L am 09.01.2010 15:44:02
- AW: .CustomViews("Ansicht1").Show ... - von chris am 09.01.2010 17:10:03
- einfärben, ja das geht auch ... (.backcolor) - von Matthias L am 09.01.2010 17:50:24
- einfärben, ja das geht auch ... (.backcolor) - von Matthias L am 09.01.2010 17:50:24
- AW: .CustomViews("Ansicht1").Show ... - von chris am 09.01.2010 17:10:03
- .CustomViews("Ansicht1").Show ... - von Matthias L am 09.01.2010 15:44:02
- AW: ja hier mal ein Beispiel - von chris am 09.01.2010 15:30:35
- ja hier mal ein Beispiel - von Matthias L am 09.01.2010 14:44:20
- AW: mit Togglebutton ... - von chris am 09.01.2010 14:36:17
- mit Togglebutton ... - von Matthias L am 09.01.2010 14:00:05
- AW: Ansichten wechseln - von chris am 09.01.2010 13:55:48
Betrifft: Ansichten wechseln
von: chris
Hallo, Excell-Profis!
Bei meiner Waage-Tabelle habe ich 2 verschiedene Ansichten erstellt in welchen Spalten aus- und andere eingeblendet werden. Ich möchte nun gerne über einen Button zwischen diesen beiden Ansichten wechseln können wobei sich aber auch gleich die Spaltenbreite der Spalte E auf 30 verringert und beim Retourschalten wieder auf 40 vergrößert.
Bitte um Hilfe in VBA bin ich leider bei weitem nicht sattelfest
Grüße
chrischtian
Betrifft: AW: Ansichten wechseln
von: Hajo_Zi
Geschrieben am: 09.01.2010 12:18:27
Hallo Chris,
benutze den Makrorecorder und Zeiche jede Aktion auf und weise Sie dann einem Button zu.
Betrifft: AW: Ansichten wechseln
von: chris
Geschrieben am: 09.01.2010 13:55:48
Hallo Hajo!
Da müßte ich dann zwei Makros aufnehmen...
Gibt es keine Möglichkeit, dies mit einem Button zu lösen?
Betrifft: mit Togglebutton ...
von: Matthias L
Geschrieben am: 09.01.2010 14:00:05
Hallo
z.B.
bei True
Columns("E:E").ColumnWidth = 30
bei False
Columns("E:E").ColumnWidth = 40
Gruß Matthias
Betrifft: AW: mit Togglebutton ...
von: chris
Geschrieben am: 09.01.2010 14:36:17
Ist das eine Befehlsschaltfläche und kann man dieser auch Makros zuweisen....?
gruß Chrischtian
Betrifft: ja hier mal ein Beispiel
von: Matthias L
Geschrieben am: 09.01.2010 14:44:20
Hallo
https://www.herber.de/bbs/user/67101.xls
und etwas abgewandelt (nur mal so zum "reinschnuppern")
https://www.herber.de/bbs/user/67100.xls
Gruß Matthias
Betrifft: AW: ja hier mal ein Beispiel
von: chris
Geschrieben am: 09.01.2010 15:30:35
Tadellos - Aber: Jetzt sollte das ganze zugleich auch noch zwischen zwei "Benutzer definierten Ansichten" wechseln.
Danke
Betrifft: .CustomViews("Ansicht1").Show ...
von: Matthias L
Geschrieben am: 09.01.2010 15:44:02
z.B. so
Sub Breite40()
ActiveWorkbook.CustomViews("Ansicht1").Show
Columns("E:E").ColumnWidth = 30
End Sub
Sub Breite30()
ActiveWorkbook.CustomViews("Ansicht2").Show
Columns("E:E").ColumnWidth = 40
End Sub
Betrifft: AW: .CustomViews("Ansicht1").Show ...
von: chris
Geschrieben am: 09.01.2010 17:10:03
Sensationell - Ich bin begeistert. Danke.
Noch eine Frage: Könnte man das Button auch einfärben?
gruß
Christian
Betrifft: einfärben, ja das geht auch ... (.backcolor)
von: Matthias L
Hallo
z.B so:
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then ToggleButton1.BackColor = &H80FFFF
If ToggleButton1.Value = False Then ToggleButton1.BackColor = &H8000000F
End Sub