Hallo liebes Forum!
Ich habe mal wieder ein Anliegen...
Dank eurer Hilfe starte ich aus einer bestehenden Excel-Datei heraus eine neue Exceldatei.
1. Für diese neue Datei möchte ich einen Button auf dem Blatt "Tabelle1" erstellen.
2. Hinter dem erstellten Button ein Makro extern via VBA hinterlegen.
Da fängt das Problem an..
Ich habe folgenden funktionsfähigen Code gefunden
Sub AddButton()
Dim tarCell As Range
Set tarCell = Range("A10")
'wohin soll der Button
ActiveSheet.Buttons.Add(0, 0, 0, 0).Select
With Selection
'Eintragung der Bezugszelle
.Top = tarCell.Top
.Left = tarCell.Left
.Height = tarCell.Height
.Width = tarCell.Width
.Text = "Neuer Button"
'Diese Procedure wird ausgelöst
.OnAction = "DeinMakroName"
End With
nur leider geht er nur, wenn ich in der gleichen Datei bleibe...
oder ich spreche ihn falsch an -- Problem: erkennt Buttons.Add nicht. Meine umgebaute Version sieht folgend aus:
WB.Sheets("Tabelle1").Name = "Tab1"
WB.Sheets("Tabelle2").Name = "Tab2"
WB.Sheets("Tabelle3").Name = "Tab3"
WB.Sheets("Tabelle4").Name = "Tab4"
Dim tarCell As Range
Set tarCell = Range("E1")
WB.Sheets("Tab1").Select
WB.Sheets.Buttons.Add(0, 0, 0, 0).Select
With Selection
.Top = tarCell.Top
.Left = tarCell.Left
.Height = tarCell.Height
.Width = tarCell.Width
.Text = "Speichern Button"
'Diese Procedure wird ausgelöst
.OnAction = "DeinMakroName"
End With
Frage 2: kann man hinter diesen Button in irgend einer Form noch ein Makro / Hinweis hinterlegen, so dass er ein bestimmtes Makro anspricht?Meinetwegen auch aus der ursprünglichen Datei, aus der diese neue Datei mit Button erstellt wird. Ich habe da mal was von einem AddIn-speichern gehört.
Vielen Dank einem Jeden im Voraus
Jana