Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Sendkey

Forumthread: Sendkey

Sendkey
20.10.2005 17:31:33
Alois
Hallo
Ich möchte ein Vb-projekt in einer Tabelle mit Makro importieren.
Mit SendKeys "%{F11}", True komm ich in den Editor.
Wie kann ich dann Strg M und die zu importierende csl-Datei einfügen?
Bitte um eure Hilfe
Alois
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sendkey
20.10.2005 18:27:27
Alois
Danke für den Tipp.
Trotzdem kann man mit Sendkey auch Tastenkombinationen machen?
Gruß Alois
Anzeige
AW: Sendkey
20.10.2005 18:54:59
Matthias
Hallo Alois,
schon mal in der VBA-Hilfe geschaut? Da steht doch alles über SendKeys.
Gruß Matthias
AW: Sendkey
20.10.2005 19:58:56
Alois
VBA-Hilfe ? Da steht wenig über SendKeys.
Aber das habe ich im Forum gefunden.


      
Private Sub CommandButton12_Click()
Dim strPath As String
   
strPath = Application.Path & "\"
On Error GoTo Errorhandler
ThisWorkbook.VBProject _
    .VBComponents("GlobaleVariable").Export strPath & "GlobaleVariable.bas"
Workbooks.Add 1
With ActiveWorkbook.VBProject
    .VBComponents.Import strPath & "GlobaleVariable.bas"
    .VBComponents("GlobaleVariable").Name = "MyModul"
End With
Kill strPath & "\GlobaleVariable.bas"
MsgBox "Modul wurde kopiert!"
Exit Sub
' Bei Fehlernummer 1004, diese Meldung ausgeben.
Errorhandler:
    
If Err.Number = 1004 Then
        MsgBox "Das kopieren des VBA Moduls ist fehlgeschlagen!" & vbCr & _
           "Bitte überprüfen Sie folgende Einstellung! " & vbCr & _
           "EXTRAS -> MAKRO -> SICHERHEIT -> Vertrauenwürdige Quellen." & vbCr & _
           "'Zugriff auf Visual Basic Projekt vertrauen' muss aktiviert sein! ", vbCritical, _
           " Meldung vom Makro Modul kopieren!"
    
Else
        MsgBox "Err.Number = " & Err.Number & ".   " & Err.Description, vbCritical
    
End If
End Sub
 

So geht's


      
https://www.herber.de/forum/archiv/672to676/t673353.htm 

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige