Symbolleiste nur in einem Worsheet enabled

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Kristin

ich löse es immer so in der Datei


Option Explicit

	

Private Sub Workbook_Open()

	Dim cb As CommandBar

	Dim CBC As CommandBarButton

	Dim I%

	On Error Resume Next

	Set cb = Application.CommandBars.Add(Name:="Preisliste1", _

	temporary:=True, Position:=msoBarTop)

	On Error GoTo 0

	If Application.CommandBars("Preisliste1").Visible = False Then

		cb.Visible = True

		For I = 1 To 15

			Set CBC = cb.Controls.Add(Type:=msoControlButton)

			With CBC

				.Width = 50                 ' Breite der Schalter

				.Style = msoButtonCaption   ' Text auf Schaltfläche

				Select Case I

					Case 1

						.Caption = "IRB"

						.OnAction = "Roboter"

						.TooltipText = "Roboter einfügen"

					Case 2

						.Caption = "Ent."

						.OnAction = "Entlader"

						.TooltipText = "Entlader einfügen"

					Case 3

						.Caption = "LPM"

						.OnAction = "LPM"

						.TooltipText = "LPM einfügen"

					Case 4

						.Caption = "Bel."

						.OnAction = "Belader"

						.TooltipText = "Belader einfügen"

					Case 5

						.Caption = "PTS"

						.OnAction = "PTS"

						.TooltipText = "PTS Einfügen"

					Case 6

						.Caption = "KTS"

						.OnAction = "Gebindetransport"

						.TooltipText = "Gebindetransport einfügen"

					Case 7

						.Caption = "S.S."

						.OnAction = "SS"

						.TooltipText = "Schalt- und Steuerausrüstung einfügen"

					Case 8

						.Caption = "Aus."

						.OnAction = "Auspacker"

						.TooltipText = "Auspacker einfügen"

					Case 9

						.Caption = "Ein."

						.OnAction = "Einpacker"

						.TooltipText = "Einpacker einfügen"

					Case 10

						.Caption = "ET60.1"

						.OnAction = "ET601"

						.TooltipText = "ET 60.1 einfügen"

					Case 11

						.Caption = "ET 85"

						'                        .OnAction = "ET85"

						'                        .TooltipText = "ET 85 einfügen"

						.Enabled = False

					Case 12

						.Caption = "Kopfpa."

						.OnAction = "Kopfpalette"

						.TooltipText = "Kopfpalettenaufleger einfügen"

					Case 13

						.Caption = "NGA"

						.OnAction = "NGA"

						.TooltipText = "Neuglasabheber einfügen"

					Case 14

						.Caption = "NGS"

						.OnAction = "NGS"

						.TooltipText = "Neuglasabschieber einfügen"

					Case 15

						.Caption = "Zu."

						.OnAction = "Zukauf"

						.TooltipText = "Zukauf einfügen"

				End Select

			End With

		Next I

	End If

End Sub

	

Private Sub Workbook_Deactivate()

	'    Schaltflächen nich auswählbar bei Blattwechsel

	'    With Application.CommandBars("Preisliste1")

	'        For I = 1 To 15

	'            .Controls(I).Enabled = False

	'        Next I

	'    End With

	On Error Resume Next

	If Application.CommandBars("Preisliste1").Visible = True Then

		Application.CommandBars("Preisliste1").Visible = False

	End If

End Sub

	

Private Sub Workbook_Activate()

	On Error GoTo neu

	If Application.CommandBars("Preisliste1").Visible = False Then

		Application.CommandBars("Preisliste1").Visible = True

	End If

	Exit Sub

	neu:

	Workbook_Open

End Sub

	

Private Sub Workbook_BeforeClose(Cancel As Boolean)

	On Error Resume Next

	Application.CommandBars("Preisliste1").Delete

End Sub

	

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

	On Error GoTo neu

	If Application.CommandBars("Preisliste1").Visible = False Then

		Application.CommandBars("Preisliste1").Visible = True

	End If

	Exit Sub

	neu:

	Workbook_Open

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Hajo

Hallo Kristin,
Workbook_open und dergleichen funktioniert tatsächlich nur in DieseArbeitsmappe. Auto_open() gibt's nur aus Kompatibilitätsgründen zu Excel5.
DieseArbeitsmappe ist ein sogenanntes Klassenmodul. Hier werden alle Ereignisse, die die Mappe betreffen in entsprechenden Ereignisprozeduren abgearbeitet. Das sind ein ganzer Haufen u.A eben auch das öffnen, schließen, drucken, speichern etc. Eine Liste aller Ereignisse kannst du dir im Auswahlfeld oben rechts anschauen. Auch für die einzelnen Blätter gibt es die entsprechenden Klassenmodule mit den Ereignissen. Hier werden auch die Prozeduren für Steuerelemente (Commandbuttons etc) definiert. Du kannst natürlich in einer Ereignisprozedur einfach nur eine Sub aufrufen.

Ich hoffe, jetzt stehen niemandem die Haare zu Berge ob dieser Erklärung. Wer es besser weiss, oder glaubt es besser zu wissen. korrigiere mich bitte. Ich lasse mich gerne belehren.

Gruss Udo

Beliebteste Forumthreads (12 Monate)

Symbolleiste nur in einem Worsheet enabled

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread