Kein Kopieren im Tabellenblatt möglich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
vielen Dank für Deine Hilfe.
Glaub hab's rausbekommen. Verwende doch in der Datei eine Funktion zum ausblenden der Menüleiste, siehe hier:
'Aus und einblenden Menü wenn kein Eintrag


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If [D5] = "" Then
'

Private Sub Workbook_Activate()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
'ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = False 'Bearbeitungszeile (falls gewünscht)
'Ausblenden Excel Rahmen
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayZeros = False
.DisplayWorkbookTabs = False
End With
Application.DisplayStatusBar = False
End If
'Ausblenden bei A
If [D5] = "A" Then
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
'ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = False 'Bearbeitungszeile (falls gewünscht)
'Ausblenden Excel Rahmen
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayZeros = False
.DisplayWorkbookTabs = False
End With
Application.DisplayStatusBar = False
End If
'Ausblenden bei B
If [D5] = "B" Then
For Each cb In Application.CommandBars
cb.Enabled = False
Next cb
'ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayZeros = False
.DisplayWorkbookTabs = False
End With
Application.DisplayStatusBar = False
End If
'Einblenden bei C
If [D5] = "C" Then
For Each cb In Application.CommandBars
cb.Enabled = True
Next cb
'ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
With ActiveWindow
'Ausblenden Excel Rahmen
.DisplayGridlines = False
'Einblenden Zeilen und Spaltenüberschriften
.DisplayHeadings = True
'Einblenden Nullwerte
.DisplayZeros = True
'Ausblenden Tabellenreiter
.DisplayWorkbookTabs = True
End With
Application.DisplayStatusBar = True
Application.ScreenUpdating = True
End If
End Sub
.

Da muss irgenwo drinn sein, was ein Kopieren verhindert. Hab den gesammten Code aus zum ausblenden des Menüs gelöscht und siehe da, es ging wieder mit dem Kopieren. Würde mich nur interessieren, woran das lag?

Gruß Torge

Beliebteste Forumthreads (12 Monate)

Kein Kopieren im Tabellenblatt möglich

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread