Per Makro einen Button erstellen

Computer: Software & Programmierung Visual Basic
#1

Guten Tag,

ich verzweifel: Ich habe ein Exceldokument. In diesem startet per Klick ein Makro, welches folgendes machen soll:

  1. eine vorhandene Exceldatei öffnen
  2. in diese geöffnete Datei einen OK Button hinzufügen

Öffnen klappt, Button erstellen nicht. Hier mein Programmcode:

    Dim DateiPfad As String
    Dim komplDateiName As String
    Dim objUebersicht As Excel.Workbook
    Dim xlApp As New Excel.Application
    Dim iwas As Worksheet
    DateiPfad = ActiveWorkbook.Path
    komplDateiName = DateiPfad & „\UebersichtLadezyklen.xlsm“
    xlApp.Visible = True
    If Dir(komplDateiName) „“ Then   ’ Wenn vorhanden, dann …
        Set objUebersicht = xlApp.Workbooks.Open(komplDateiName)         ’ Datei öffnen
    Else
        MsgBox „Es wurde noch keine Übersichtsdatei angelegt. Bitte zunächst mit dem anderen Makro“ & vbCrLf & „die Übersichtsdatei mit den Daten des Ladeloggers erstellen!“
        ActiveWorkbook.Close
        Exit Sub
    End If
    objUebersicht.Activate
    
    '----------------------------- OK - Button erstellen --------------------------------
    
    Dim tarCell As Range
    Set tarCell = Range(„N3“)
    'wohin soll der Button
    ActiveSheet.Buttons.Add(0, 0, 0, 0).Select ’ HIER LIEGT DAS PROBLEM
    With Selection
        'Eintragung der Bezugszelle
        .Top = tarCell.Top
        .Left = tarCell.Left
        .Height = tarCell.Height
        .Width = tarCell.Width
        .Text = „OK“
        'Diese Procedure wird ausgelöst
        .OnAction = „ButtonEnter“
    End With
    
    '----------------------------------------------------------------------------------------------------------

Lasse ich den Code so, funktioniert er zwar, erstellt mir den OK Button allerdings in dem Dokument, aus dem ich das Makro am Laufen habe.
Versuche ich das:

objUebersicht.ActiveSheet.Buttons.Add(0, 0, 0, 0).Select

kommt eine Fehlermeldung in dieser Zeile: .Top = tarCell.To

Ich glaube, dass ich auch ein grundsätzliches Problem mit den Begriffen Worksheet, Workbook, Excel.Workbook, Application habe…

Könnt ihr mir helfen? Kann auch ein ganz neuer Ansatz sein, der meine beiden obigen Punkte erfüllt…

Vielen Dank

Johannes

#2

per Klick ein Makro, welches folgendes machen soll:

  1. eine vorhandene Exceldatei öffnen
  2. in diese geöffnete Datei einen OK Button hinzufügen

Öffnen klappt, Button erstellen nicht.

Hallo Johannes,

„Oeffne“ macht das was du willst.
Unklar ist mir noch das mit „ActiveWorkbook.Close“. Soll im Ernst die Mappe die das Makro enthält geschlossen werden wenn die zu öffnende Mappe nicht gefunden wird?

Soll vorab geprüft werden ob der Button an der Stelle schon vorhanden ist?

Gruß
Reinhard

Option Explicit

Sub Oeffne()
Dim DateiPfad As String, komplDateiName As String
DateiPfad = ActiveWorkbook.Path
komplDateiName = DateiPfad & "\kwEbbiHilf.xls"
If Dir(komplDateiName) "" Then
 Workbooks.Open komplDateiName
 Call Dazu
Else
 MsgBox "Es wurde noch keine Übersichtsdatei angelegt." & \_
 "Bitte zunächst mit dem anderen Makro" & vbCrLf & \_
 "die Übersichtsdatei mit den Daten des Ladeloggers erstellen!"
 'ActiveWorkbook.Close
 Exit Sub
End If
End Sub

Sub Dazu()
Dim btn As Object
With Range("N3")
 Set btn = ActiveSheet.Buttons.Add(.Left, .Top, .Width, .Height)
End With
btn.Text = "OK"
btn.OnAction = "ButtonEnter"
End Sub

Sub ButtonEnter()
MsgBox "Bereit zum Entern"
End Sub