Makro gesucht

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Makro gesucht von: Reto
Geschrieben am: 18.03.2005 17:04:00

Hallo
Ich hätte da gerne ein Makro gehabt
Also ich habe eine Schaltfläche und da möchte ich abwechseln immer zwischen zwei Makro switchen. Also bei jedem zweitenmal läuft entweder das Makro1 oder makro2
Wer kann helfen?
Reto

Bild


Betrifft: AW: Makro gesucht von: Hajo_Zi
Geschrieben am: 18.03.2005 17:11:19

Hallo Reto,

wenn Du schon die Nakros hast gehe ich mal davon aus das D in VBA nicht ganz bei Null bist.

Ändere die Beschriftung der Schaltfläche und je nach Beschriftung führe das Makro aus.
https://www.herber.de/bbs/user/19848.xls


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

Homepage



Bild


Betrifft: AW: Makro gesucht von: Reto
Geschrieben am: 18.03.2005 18:25:52

Hallo Hajo
Also die Makros habe ich
Sub ausblenden()
    Range("G:I,L:N").Select
    Range("N1").Activate
    Selection.EntireColumn.Hidden = True
End Sub

Sub einblenden()
    Range("F:N").Select
    Range("J1").Activate
    Selection.EntireColumn.Hidden = False
End Sub


Jedoch ist es mir noch nicht gelungen deine Hilfe meinen Makros anzupassen.
Hast du nochmals Zeit?

Gruss Reto


Bild


Betrifft: AW: Makro gesucht von: MichaV
Geschrieben am: 18.03.2005 19:27:36

Hi,

na da scheint Hajo sich ja geirrt zu haben.
Such Dir was aus:



      
'++++++++++++++++++++++++++++++++++++
'einfachste Möglichkeit

Private Sub CommandButton1_Click()
  Range("G:I,L:N").EntireColumn.Hidden = 
Not Range("G:I,L:N").EntireColumn.Hidden
End Sub

'++++++++++++++++++++++++++++++++++++
'Möglichkeit gem. HaJos Vorschlag:

Sub ausblenden()
    Range("G:I,L:N").EntireColumn.Hidden = 
True
    
'Range("N1").Activate 'brauchst Du das wirklich?
    CommandButton1.Caption = "Einblenden"
End Sub


Sub einblenden()
    Range("F:N").EntireColumn.Hidden = 
False
    Range("J1").Activate 
' brauchst Du das wirklich?
    CommandButton1.Caption = "Ausblenden"
End Sub

Private Sub CommandButton1_Click()
  
If CommandButton1.Caption = "Einblenden" Then einblenden Else ausblenden
End Sub

'++++++++++++++++++++++++++++++++++++
'Möglichkeit ohne Änderung der Caption
Public MakroEinblenden As Boolean

Sub ausblenden()
    Range("G:I,L:N").EntireColumn.Hidden = 
True
    
'Range("N1").Activate 'brauchst Du das wirklich?
    MakroEinblenden = True
End Sub


Sub einblenden()
    Range("F:N").EntireColumn.Hidden = 
False
    Range("J1").Activate 
' brauchst Du das wirklich?
    MakroEinblenden = False
End Sub

Private Sub CommandButton1_Click()
  
If MakroEinblenden Then einblenden Else ausblenden
End Sub 


     Code eingefügt mit Syntaxhighlighter 3.0

Gruß! Micha


Bild


Betrifft: AW: Makro gesucht von: Reto
Geschrieben am: 18.03.2005 21:09:26

WOW
Das ist ja der Hammer.
Merci ich habe mich für die einfachste Methode entschieden.
Da hast du dir sehr viel Mühe gegeben.
Dennoch schaue ich mir die anderen Methoden an.

Gruss und Dank von Reto


Bild


Betrifft: Danke- gern geschehen ;o) owT von: MichaV
Geschrieben am: 18.03.2005 22:14:53




 Bild

Beiträge aus den Excel-Beispielen zum Thema "summewenn"