Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
644to648
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
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

cmb_Button ein/ausblenden

cmb_Button ein/ausblenden
01.08.2005 12:31:19
Torsten
Hallo beisammen,
ich möchte einen cmb_Button in Abhängigkeit des Users ein- bzw. ausblenden:

Private Sub Workbook_Open()
Dim UserName As Integer
Dim cmb_PROT As CommandButton
If Application.UserName = "GWS-TKR" Then
cmb_PROT.Visible = True
Else
cmb_PROT.Visible = False
End If
End Sub

Beim Öffnen der Datei bricht Excel leider mit der Fehlermeldung:
"Objektvariable oder With-Blockvariable nicht festgelegt" ab und bleibt hängen bei: "cmb_PROT.Visible = False".
Was mache ich denn noch falsch?
Vielen dank für Eure Tips im voraus.
Gruß
Torsten

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: cmb_Button ein/ausblenden
01.08.2005 12:42:05
Hajo_Zi
Hallo Torsten,
teste es mal so
Shapes("CommandButton1").Visible = Application.UserName = "GWS-TKR"
Ich vermute mal er ist in der Tabelle
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.


AW: cmb_Button ein/ausblenden
01.08.2005 13:32:26
Torsten
Hallo Hajo,
schönen Dank für Deine Rückmeldung.
Wenn ich Deinen Vorschlag in meinen Code einbinde, erhalte ich die Meldung: "Fehler beim Kompilieren. Sub oder Function nicht definiert" und er bleibt in der "Shape"-Zeile hängen. Hast Du noch eine Idee?
Gruß
Torsten
Anzeige
AW: cmb_Button ein/ausblenden
01.08.2005 13:39:23
Hajo_Zi
Hallo Torsten,
ich vermute mal Du hast das nicht korrekt übernommen.
Wie sieht das zur Zeit?
Hast Du den richtigen Namen für den CommnadButton?
Ist das in der Tabelle?
Gruß Hajo

"Wer Rechtschreibfehler findet, darf sie behalten!"
AW: cmb_Button ein/ausblenden
01.08.2005 13:46:05
Torsten
Hallo Hajo,
ich hatte das mit Copy/Paste übernommen:

Private Sub Workbook_Open()
Dim UserName As Integer
Dim cmb_PROT As CommandButton
Shapes("cmb_PROT").Visible = Application.UserName = "GWS-TKR"
'If Application.UserName = "GWS-TKR" Then
'      cmb_PROT.Visible = True
'Else
'      cmb_PROT.Visible = False
'End If
End Sub

Gruß
Torsten
Anzeige
AW: cmb_Button ein/ausblenden
01.08.2005 13:49:57
Hajo_Zi
Hallo Torsten,
ich habe bisher das Open übersehen. Du mußt die Tabelle noch dovor schreiben.
Worksheets("Tabelle1").
Gruß Hajo

"Wer Rechtschreibfehler findet, darf sie behalten!"
erledigt - mT
01.08.2005 14:03:06
Torsten
Hallo Hajo,
jetzt passt's.
Vielen Dank für Deine Hilfe.
Gruß
Torsten
AW: sorry, doch noch eine Frage dazu...
01.08.2005 14:09:42
Torsten
Hallo Hajo,
wie muß denn der Code aussehen, wenn ich die Abfrage auf 2 UserNames machen möchte?
Der Button also z.B. sichtbar sein soll, wenn der UserName GWS-TKR oder GWS-XXX lautet?
Kannst Du mir hier auch weiterhelfen?
Gruß
Torsten
Anzeige
AW: sorry, doch noch eine Frage dazu...
01.08.2005 14:15:00
Hajo_Zi
Hallo Tosten,
Shapes("CommandButton1").Visible = (Application.UserName = "GWS-TKR" or Application.UserName = "GWS-PGT")
Gruß Hajo

"Wer Rechtschreibfehler findet, darf sie behalten!"
AW: Ich hab's schon.....
01.08.2005 14:16:16
Torsten
Hallo Hajo,
so muss es dann ausschauen:
With Worksheets("START")
.Shapes("cmb_PROT").Visible = Application.UserName = "GWS-TKR" Or _
.Shapes("cmb_PROT").Visible = Application.UserName = "GWS-XXX"
End With
Gruß
Torsten
Anzeige
AW: Verflixt, ich war zu langsam :-) Danke nochmal
01.08.2005 14:18:23
Torsten

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige