Office: (Office 2010) VBA Code

Hallo zusammen,
kann mich jemand bei der Übersetzung eines VBA Codes unterstützen?

Ich bekam diese Datei und blick nicht ganz durch was damit verarbeitet wird. *boah

Vielen vielen Dank im Voraus!

VLG

Sub Kopieren_Aktivieren()
'Tastenkombinationen einschalten
Application.OnKey "^x"
Application.OnKey "^c"
Application.OnKey "^v"
Application.OnKey "+{DEL}"
Application.OnKey "+{INSERT}"

'Drag & Drop wieder erlauben
Application.CellDragAndDrop = True

'Schaltflaechen in Menüleiste => Bearbeiten aktivieren
procControlEnableDisable 21, True ' Ausschneiden
procControlEnableDisable 19, True 'Kopieren
procControlEnableDisable 22, True 'Einfuegen
procControlEnableDisable 755, True 'Inhalte einfuegen
procControlEnableDisable 809, True 'Office-&Zwischenablage

End Sub

Sub Kopieren_Deaktivieren()
'Tastenkombinationen deaktivieren
Application.OnKey "^x", ""
Application.OnKey "^c", ""
Application.OnKey "^v", ""
Application.OnKey "+{DEL}", ""
Application.OnKey "+{INSERT}", ""

'Drag & Drop ausschalten
Application.CellDragAndDrop = False

'Schaltflaechen in Menüleiste => Bearbeiten deaktivieren
procControlEnableDisable 21, False ' Ausschneiden
procControlEnableDisable 19, False 'Kopieren
procControlEnableDisable 22, False 'Einfuegen
procControlEnableDisable 755, False 'Inhalte einfuegen
procControlEnableDisable 809, False 'Office-&Zwischenablage

End Sub

Sub procControlEnableDisable(intId As Integer, _
bolStatus As Boolean)
Dim cmbSuche As CommandBar
Dim cmbcSteuerelement As CommandBarControl
On Error Resume Next
For Each cmbSuche In Application.CommandBars
Set cmbcSteuerelement = _
cmbSuche.FindControl(ID:=intId, recursive:=True)
If Not cmbcSteuerelement Is Nothing Then
cmbcSteuerelement.Enabled = bolStatus
End If
Next
End Sub

:)

 

Moin,
ohne die Datei zu kennen, die ersten beiden Funktionen machen genau das, was ihr Name sagt: die erste aktiviert sämtliche Möglichkeiten des Kopierens und Einfügens, die zweite schaltet genau diese Funktionen aus.
Die letzte Funktion bekommt Parameterwerte übergeben, daher ist es ohne Zusammenhang und Aufrufprozedur schwer ersichtlich, was diese Sub machen soll. Da es um CommandBars geht, gehe ich von einer älteren Prozedur aus, da ab Excel 2007 eigentlich kaum mehr mit Commandbars gearbeitet wird. Aber da kann ich mich auch irren...

 

Hi,

die Aufrufprozeduren des letzten Makros stehen ja in den ersten beiden Subs. Die machen das gleiche für die Schaltflächen, falls man anstatt der Shortcuts über die Schaltflächen kopieren/ausschneiden und einfügen will.

LG Dax

 

Ok, hast Du Recht, habe ich übersehen..

 

Hallo zusammen,
vielen Dank für die Antwort. Ich habe hier eine Datei bekommen in welche ich einarbeiten soll!
D.h. es wurden eigentlich alle Daten die ich dort reinkopiert habe mitaufgezeichnet?

 

Moin,
Deine Frage verstehe ich nicht. Du hast eine Datei bekommen, in der sich die Makros befinden, die Du oben gepostet hast. Was Du wo reinkopiert hast, kann ich nicht erkennen.