Fullscreen toogeln VBA-Userform zeigt nichts an!
28.11.2013 17:29:39
Thorben
Ich wieder,
Moin Klaus,
Code Arbeitet nur nach öffnen der Datei!
Kann mir jemand sagen warum der Code seine Arbeit verweigert wenn...:
...ich mit diesen beiden Codes zwischen Fullscreen und nicht Fullscreen toogle
Anschließend verweigert der vbModeless Code seine Arbeit:
Sub aaScreenFull()
'Fullscreen anzeigen
If Not wbk Is Nothing Then
If MsgBox("Die Fullscreeneinstellungen für """ & wbk.Name _
& """ wurden noch nicht zurückgesetzt." _
& vbLf & "Makro ""aaScreenNormal"" jetzt starten?", _
vbQuestion + vbOKCancel, "Fullscreen zurücksetzen") = vbOK Then
Call aaScreenNormal
Else
Exit Sub
End If
End If
Set wbk = ActiveWorkbook
With Application.Windows(wbk.Name)
bolHeadings = .DisplayHeadings
.DisplayHeadings = False
bolHScrollBar = .DisplayHorizontalScrollBar
.DisplayHorizontalScrollBar = True
bolVScrollbar = .DisplayVerticalScrollBar
.DisplayVerticalScrollBar = True
bolWorkTabs = .DisplayWorkbookTabs
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFullScreen = True
.DisplayFormulaBar = False
End With
End Sub
Sub aaScreenNormal()
'Fullscreen zurücksetzen
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
If wbk Is Nothing Then
MsgBox "Makro ""aaScreenFull"" wurde noch nicht gestartet.", _
vbInformation, "Fullscreen zurücksetzen"
Else
With Application.Windows(wbk.Name)
.DisplayHeadings = bolHeadings
'.DisplayHorizontalScrollBar = bolHScrollBar
'.DisplayVerticalScrollBar = bolVScrollbar
.DisplayWorkbookTabs = bolWorkTabs
End With
With Application
.DisplayFullScreen = False
.DisplayFormulaBar = True
End With
End If
Set wbk = Nothing
ActiveWindow.DisplayWorkbookTabs = True
Call Blenden
End Sub
UserForm wir gestartet wie Klaus schon vorgegeben hat, aber ohne Average und mit CountA.
Userform habe ich angepasst!
Private Sub CommandButton1_Click()
UserForm1.Show vbModeless
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
With UserForm1
.LSumme.Caption = Application.WorksheetFunction.Sum(Selection)
.LAnzahl.Caption = Application.WorksheetFunction.CountA(Selection)
End With
End Sub
Nach dem Umschalten bleibt die UserForm stumm...
Danke schon mal und Gruß
Thorben