Office: (Office 2016) Allgemeiner Code

Hallo Forum, hallo Excelexperten,

da ich seit geraumer Zeit versuche mich mit VBA zu beschäftigen (zu lernen), benutze ich für meine Übungen immer den gleichen Code zu Anfang:

Code:

Dim wb As Workbook
Dim ws As Worksheet

Set wb = ThisWorkbook
Set ws = ActiveSheet

Gibt es eine Möglichkeit diese vier Zeilen mit einer Tastenkombination in den VBA-Editor einzufügen? Wäre toll, wenn so etwas funktionieren würde.

Vielen Dank schon mal.

der Mampfred

 

Hi,

das ist so ohne weiteres nicht möglich bzw. mit sehr großem Aufwand verbunden. Mache einfach folgendes: erstelle ein Standardmodul mit deinen 4 Codezeilen und exportiere dieses Modul mittels Rechtsklick auf das Modul -> Datei exportieren. In einer neuen Arbeitsmappe machst du dann einen Rechtklick im Projektexplorer -> Datei importieren und hast ein Standardmodul mit diesen 4 Codezeilen.

---

 

oder
du nutzt kostenpflichtige Addins, die dir ne Menge Tipperei abnehmen. Ist nur eine Frage wie sehr du es willst.
z.b. MZ-Tools - Productivity Tools for Visual Studio .NET (C#, VB.NET), Visual Basic and VBA
oder Home - Automate Excel

 

Hallo Beverly, hallo Ralf,

danke für eureAntworten.
Die Idee mit dem Standardmodul klingt ganz plausibel.
Um ein "Profi-AddInn" zum Programmiere zu benutzen, bim ich noch nicht weit genug.
Ich werde aber zum gegebenen Zeitpunkt darüber nachdenken.

der Mampfred

 

Hi,

es gibt noch eine andere Möglichkeit: schreibe deine Codezeilen per Makro in die Zwischenablage. Danach kannst du an der gewünschten Stelle im VBA-Editor einfach Strg+V drücken und der Text aus der Zwischenablage wird an der Cursorposition eingefügt.

Erstelle dazu ein Makro in der PERSONAL.XLSB (da du es ja immer wieder benutzen willst) und weise ihm eine Tastenkombination zu. Der Inhalt des Makros ist folgender:

Code:

'PURPOSE: Copy a given text to the clipboard (using DataObject)
'SOURCE: www.TheSpreadsheetGuru.com
'NOTES: Must enable Forms Library: Checkmark Tools > References > Microsoft Forms 2.0 Object Library

Dim obj As New DataObject
Dim txt As String

'Put some text inside a string variable
  txt = "Dim wb As Workbook" & vbLf & "Dim ws As Worksheet" _
        & vbLf & vbLf & "Set wb = ThisWorkbook" & vbLf & "Set ws = ActiveSheet"

'Make object's text equal above string variable
  obj.SetText txt

'Place DataObject's text into the Clipboard
  obj.PutInClipboard

'Notify User
  MsgBox "There is now text copied to your clipboard!", vbInformation

Beachte unbedingt den Hinweis unter NOTES: aktiviere im VBA-Editor bei Extras -> Verweise -> Microsoft Forms 2.0 Object Library, andernfalls wird ein Fehler ausgelöst.
Die Zeile mit der MsgBox kannst du weglassen wenn du nicht darüber informiert werden willst, dass der Text in die Zwischenablage geschrieben wurde. Du kannst natürlich auch einen anderen Text verwenden.

Gefunden habe ich den Code hier: How To Use VBA Code To Copy Text To The Clipboard — TheSpreadsheetGuru

---

 

Hallo Beverly,

S U P E R

vielen Dank

der Mampfred