Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
416to420
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
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

If-Then-Else Anweisung

If-Then-Else Anweisung
Daniel
Hallo Forengemeinde,
bin leider kein VBA-Experte. Habe aber ein Problem mit einer VBA-Anweisung und hoffe Ihr könnt mir dabei weiterhelfen. Das Problem ist, das ich eine Exceltabelle als Präsentation (ohne Menü, Scrollbars, usw..) darstellen möchte wenn eine Bedingung x=1 erfüllt ist. Doch leider funzt es nicht (unten der Code). Könnt Ihr mir weiterhelfen? Vielen Dank im Voraus!
Daniel

Private Sub CommandButton1_Click()
If x = 1 Then
Dim symbol As CommandBar
For Each symbol In Application.CommandBars
symbol.Enabled = False
Next symbol
With ActiveWindow
.DisplayHeadings = False
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
End With
Else
Application.ScreenUpdating = False
Dim symbol As CommandBar
For Each symbol In Application.CommandBars
symbol.Enabled = True
Next symbol
With ActiveWindow
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
Application.DisplayFormulaBar = True
Application.ScreenUpdating = True
End If
Sheets("2002").Select
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: If-Then-Else Anweisung
Stephan
Wann wird Dein x denn 1 ?
AW: If-Then-Else Anweisung @Stephan
Daniel
Hallo Stephan,
x = 1 (provisorisch) wird durch ein bestimmtes Makro festgelegt.
Habe das Problem gerade selber durch probieren gelöst, der Code war etwas zu kompliziert.
Danke für die schnelle Antwort!
Daniel
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige