AW: Kein Kopieren im Tabellenblatt möglich
02.06.2006 09:19:17
Torge
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