Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ToggleButton
BildScreenshot zu ToggleButton ToggleButton-Seite mit Beispielarbeitsmappe aufrufen

Ansichten wechseln | Herbers Excel-Forum


Betrifft: Ansichten wechseln von: chris
Geschrieben am: 09.01.2010 12:12:27

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.

GrußformelHomepage


  

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
Gruß Matthias


  

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
Geschrieben am: 09.01.2010 17:50:24

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
Gruß Matthias


Beiträge aus den Excel-Beispielen zum Thema "Ansichten wechseln"