Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
392to396
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten ausblenden in denen cmb-Buttons sind

Spalten ausblenden in denen cmb-Buttons sind
08.03.2004 14:38:39
Torsten K.
Hallo beisammen,
mit folgendem Code kann ich über einen cmb-Button Spalten ein-bzw. ausblenden:

Private Sub cmb_ADMIN_Click()
If Columns("M:T").EntireColumn.Hidden = True Then
Columns("M:T").EntireColumn.Hidden = False
Else
Columns("M:T").EntireColumn.Hidden = True
End If
End Sub

Das Problem dabei ist, das in dem Range("M:T") andere cmb-Buttons enthalten sind. Blende ich die Spalten aus, bleiben leider die cmb-Buttons erhalten. Die sollen aber auch ausgeblendet werden. Weiß jemand Rat?
Vielen Dank im voraus.
Gruß
Torsten

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten ausblenden in denen cmb-Buttons sind
08.03.2004 16:07:12
xXx
Hallo,
so geht's:

Sub test2()
Dim n As Shape, iCol As Integer
For Each n In ActiveSheet.Shapes
iCol = n.TopLeftCell.Column
Select Case iCol
Case 1 To 20
n.Visible = Not (Columns(iCol).Hidden)
End Select
Next n
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de
AW: Spalten ausblenden in denen cmb-Buttons sind
08.03.2004 16:24:29
Torsten K.
Hallo Udo,
ich hab' zwar nicht so recht verstanden, was bei dem Code abläuft (muß ich mir bei Gelegenheit mal genauer ansehen :-)), aber es funktioniert einwandfrei.
Vielen Dank für Deine Hilfe.
Gruß
Torsten
Anzeige
Hast du mittlerweile...
10.03.2004 22:16:13
xXx
...wie's funktioniert?
Gruß aus'm Pott
Udo
AW: Hast du mittlerweile...
11.03.2004 08:52:03
Torsten K.
Hallo Udo,
im Prinzip schon, aber...
Mir ist nich ganz klar, was Excel hier macht:
"iCol = n.TopLeftCell.Column" (die Hilfe F1 hilft mir hier leider auch nicht :-( )
"n.Visible = Not (Columns(iCol).Hidden)" das steht doch dafür, das ich das Einschalten/Ausschalten über einen Button machen kann, stimmt's?
Vielleicht kannst Du ja noch etwas mehr Licht ins Dunkel bringen.
Gruß
Torsten
(P.S.: Finde ich übrigens bemerkenswert, daß Du hier nochmal nachfragst - Danke)
AW: Hast du mittlerweile...
11.03.2004 16:39:44
xXx
Hallo Torsten,
"iCol = n.TopLeftCell.Column"
fragt die Spalte (Column) der Zelle ab, in der sich die obere linke Ecke (TopLeftCell) des Buttons befindet. Es gibt im übrigen auch noch eine BottomRightCell.
"n.Visible = Not (Columns(iCol).Hidden)"
blendet den Button dann aus. Da der Button eine Visible-Eigenschaft (sichtbar) hat, Die Spalte aber eine Hidden-Eigenschaft (versteckt), muss der Wert (True/False) mit NOT umgekehrt werden. Also: Spalte.Hidden=True muss zu Button.Visible=False werden und umgekehrt.
Gruß aus'm Pott
Udo
http://www.excelerator.de
Anzeige
AW: Hast du mittlerweile...
11.03.2004 16:48:08
Torsten K.
Hallo Udo,
vielen für Deine Rückmeldung und Deine Erläuterungen.
Ich hab' aallerdings jetzt ein anderes Problem mit Deinem VBA-Code:
Es kommt vor, daß die cmb-Buttons, nachdem ich die Spalten wieder eingeblendet habe, nicht mehr sichtbar sind. Sie erscheinen erst dann wieder, wenn ich in den Entwurfsmodus aktiviere (beim Deaktivieren verschwinden sie wieder). Desweiteren erscheinen sie dann nicht mehr in den vorgegebenen Spalten, sondern in den daneben liegenden!?
Das ist äußerst lästig und ärgerlich. Hast Du eine Idee woran das liegen könnte?
Hier mein Code:

Private Sub cmb_ADMIN_Click()
'Makro blendet sowohl die Spalten M:T aus
'als auch die darin befindlichen cmb-Buttons.
If GetPassword() = True Then
Application.ScreenUpdating = False
Sheets("START").Unprotect Password:="Kennwort"
Dim n As Shape
Dim iCol As Integer
If Columns("M:T").EntireColumn.Hidden = True Then
Columns("M:T").EntireColumn.Hidden = False
Else
Columns("M:T").EntireColumn.Hidden = True
End If
For Each n In ActiveSheet.Shapes
iCol = n.TopLeftCell.Column
Select Case iCol
Case 13 To 20
'13 = M   bzw. 20 = T
n.Visible = Not (Columns(iCol).Hidden)
End Select
Next n
Else
MsgBox "War wohl nix!"
End If
Sheets("START").Protect Password:="Kennwort"
Application.ScreenUpdating = True
End Sub

Vielen dank für Deine Unterstützung im voraus.
Gruß
Torsten
Anzeige
AW: Hast du mittlerweile...
11.03.2004 20:28:57
xXx
Hallo,
das verstehe ich nicht. Klappt bei mir einwandfrei.
Gruß aus'm Pott
Udo
http://www.excelerator.de

306 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8