Zwei Makros in einem Button

Forumthread: Zwei Makros in einem Button

15.10.2021 10:26:48

Frederic

Hallo :)
ich habe folgendes Problem und zwar möchte ich Spalten ein und ausblenden und habe dafür jeweils ein Makro geschrieben.
Nun möchte ich diese in einem Button ausführen lassen, je nachdem ob sie schon ausgeblendet oder eingeblendet sind. Die einzelnen Makros funktionieren, doch dass mit dem Button leider nicht..
Hier ist der Code


Option Explicit
Sub SpaltenAusblenden()
Sheets("Entwurf Leads").Activate
Columns("S:W").EntireColumn.Hidden = True
Columns("Y:Z").EntireColumn.Hidden = True
End Sub
Sub SpaltenEinblenden()
Sheets("Entwurf Leads").Activate
Columns("S:W").EntireColumn.Hidden = False
Columns("Y:Z").EntireColumn.Hidden = False
End Sub
Private Sub CommandButton1_Click()
Dim CB As CommandButton
Set CB = CommandButton1
If CB.Value = True Then
CB.Caption = "Spalten einblenden"
Call SpaltenAusblenden
Else
CB.Caption = "Spalten ausblenden"
Call SpaltenEinblenden
End If
End Sub

VG
Frederic

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: nimm den Umschaltbutton gruss owT

15.10.2021 10:35:36

hary
AW: Zwei Makros in einem Button

15.10.2021 10:42:08

Daniel
oder so

15.10.2021 10:44:36

Rudi
AW: oder so

19.10.2021 10:45:11

Frederic
AW: Zwei Makros in einem Button

15.10.2021 10:57:10

UweD
AW: Zwei Makros in einem Button

15.10.2021 11:05:04

UweD

AW: nimm den Umschaltbutton gruss owT

15.10.2021 10:35:36

hary

AW: Zwei Makros in einem Button

15.10.2021 10:42:08

Daniel

Hi
du könntest einen Toggle-Button (Umschaltknopf) verwenden.
dann wäre der Code einfach:


Range("S:W,Y:Z").EntireColumn.Hidden = Togglebutton1.Value

mit einem Button könnte man das Umschalten durch eine einfache logische Operation durchführen:


Range("S:W,Y:Z").EntireColumn.Hidden = Not Columns("S:S").Hidden

oder du machst das ganze ohne Makro.
hierzu markierst du nacheinander die Spalten S:W und Y:Z und drückst im Menü DATEN - GLIEDERUNG - GRUPPIEREN
danach kannst du dann über das +/- Symbol die einzelnen Blöcke ein- und ausblenden und über das 1/2-Symbol dann alle Blöcke (1 = ausblenden, 2 = einblenden)
Gruß Daniel

oder so

15.10.2021 10:44:36

Rudi


Sub SpaltenAusblenden()
With Sheets("Entwurf Leads")
.Columns("S:W").EntireColumn.Hidden = True
.Columns("Y:Z").EntireColumn.Hidden = True
End With
End Sub
Sub SpaltenEinblenden()
With Sheets("Entwurf Leads")
.Columns("S:W").EntireColumn.Hidden = False
.Columns("Y:Z").EntireColumn.Hidden = False
End With
End Sub
Private Sub CommandButton1_Click()
Dim CB As CommandButton
Set CB = CommandButton1
Select Case CB.Caption
Case "Spalten einblenden"
Call SpaltenAusblenden
CB.Caption = "Spalten ausblenden"
Case "Spalten ausblenden"
Call SpaltenEinblenden
CB.Caption = "Spalten einblenden"
End Select
End Sub

AW: oder so

19.10.2021 10:45:11

Frederic

funktioniert!!
Danke Rudi :)

AW: Zwei Makros in einem Button

15.10.2021 10:57:10

UweD

Hallo
das müsste reichen


Private Sub CommandButton1_Click()
Dim CB As CommandButton
Set CB = CommandButton1
With Sheets("Entwurf Leads")
'.Activate wird normal nicht benötigt
.Columns("S:W").EntireColumn.Hidden = Not .Columns("S:W").EntireColumn.Hidden
.Columns("Y:Z").EntireColumn.Hidden = Not .Columns("Y:Z").EntireColumn.Hidden
End With
CB.Caption = IIf(CB.Caption = "Spalten ausblenden", "Spalten einblenden", "Spalten ausblenden")
End Sub

LG UweD

AW: Zwei Makros in einem Button

15.10.2021 11:05:04

UweD

Das .EntireColumn kannst du noch wegloschen
LG UweD

Beliebteste Forumthreads (12 Monate)

Forumthread: Zwei Makros in einem Button

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread