heut beschäftigt mich folgendes Problem.
In einer schreibgeschützten Datei, in der ich mittels u.s. Makro Bildlauleisten, Zeilenspaltenüberschriften, Bearbeitungsleiste, usw. ausblende, gibt es eine nicht gesperrte Zelle, in der eine Wenn-Dann-Abfrage steht.
Diese das Ergebnis der Abfrage möcht ich nach einfachem Anklicken der Datei via Strg.+c kopieren.
Leider funktioniert dies nicht. Wenn ich den Inhalt des Zwischenspeichers in eine andere Excel-Datei kopieren möchte, bleibt diese leer!
Über rechte Maustaste steht dir Funktion Einfügen auch nicht zur Auswahl.
Tatsächlich steht jedoch der Wert der Abfrage im Speicher, denn wenn ich im Notes in den Betreff einer Mail klicke und dann STRG.+V drücke, steht dort der Wert drin!
Hat jemand eine Idee wie ich den Wert der Zelle kopieren kann?
Danke vorab, Gruß Micha
Option Explicit
Dim Symbol As CommandBar ' Variable für Symbolleisten, nur für deses _
Modul
Public Stand As Boolean ' Zustand der Bearbeitungsleiste, Arbeitsmappen _
weit
' von Melanie Breden
Sub Leisten(AnAus As Boolean) ' Makro mit Übergabe einer Variablen
Application.ScreenUpdating = False ' Bildschirmaktualisierung aus
For Each Symbol In Application.CommandBars ' Schleife über alle Symbolleisten
Symbol.Enabled = AnAus ' Symbolleiste Aus-/Einblenden
Next Symbol
If AnAus = False Then ' Zustand Aus-/Einblenden
Application.DisplayFormulaBar = False ' Bearbeitungsleiste ausblenden
Else
Application.DisplayFormulaBar = Stand ' Bearbeitsleiste zurücksetzen
End If
Application.ScreenUpdating = True ' Bildschirmaktualisierung ein
CommandBars("Cell").Enabled = True
End Sub
Private Sub Einblenden()
' Notmakro zum Einblenden der Symboleisten
Leisten True
End Sub