Meldung: Makro nicht gefunden

Computer: Software & Programmierung Visual Basic
21

Hallo Experten,

ich bins nochmal :wink:

ich habe per Makro eine Exceltabelle und ein Button
programmiert. Wenn ich auf das Button klicke, kommt diese
Fehlermeldung: Makro ‚message‘ nicht gefunden.

------------Makro für Button-------------------

With Selection
dWidth = .Cells(.Cells.Count).Left - _
.Cells(1).Left + .Cells(.Cells.Count).Width
dHeight = .Cells(.Cells.Count).Top - _
.Cells(1).Top + .Cells(.Cells.Count).RowHeight
Set btn =
xlWb.Worksheets(„tabelle1“).Buttons.Add(.Cells(1).Left, _
.Cells(1).Top, dWidth, dHeight)
End With

btn.Caption = „Aufruf“
btn.OnAction = „message“

Sollte hier nicht besser ein
btn.OnAction = call message
stehen? Willst du wirklich bei Aktion einen Text zuweisen? Ist btn.OnAction eine Variabel?

-------------------Prozedur message--------------
sub message()
Msgbox = „hallo“
End

VIELEN DANK

WillsWissen

22

Hallo.
Frage: Welche Aufgabe hat dieses Makro?
Wenn ich die Aufgabe wüsste, könnte ich eine andere Lösung finden. MfG Kuno

23

Hallo WillsWissen,

ich hab jetzt deine Problematik mal nachgebaut und hatte das selbe Problem wie Du.
Der Button wurde angelegt und beim betätigen kam immer der Fehler, er kann das Makro … nicht finden.
Ich dann mein Coding in ein Modul gepakt.

Private Sub makro()

Dim btn As Object
'Dim xlWb As Workbook

With Selection
dWidth = .Cells(.Cells.count).Left - _
.Cells(1).Left + .Cells(.Cells.count).Width
dHeight = .Cells(.Cells.count).Top - _
.Cells(1).Top + .Cells(.Cells.count).RowHeight

Set btn = ActiveSheet.Buttons.Add(.Cells(1).Left, _
.Cells(1).Top, dWidth, dHeight)
End With

With btn
.Caption = „Aufruf“
.OnAction = „Test“
End With

End Sub

Sub Test()

MsgBox „hallo“

End Sub

Und jetzt läufts!
Viele Grüße

24

VIELEN DANK CHRIS!!!

25

hey, also hab deinen code nochmals angeschaut.

mit dem befehl „with selection“ greifst du ja direkt auf die aktuell selektierte zelle zu.
danach holstu du die höhe und breite in die variablen.
mit set btn setzt du einen button in die variable btn.
wenn du vor worksheets xlWb. setzt, versucht er nach meinem wissen auf informationen aus einer variable xlWb zu holen oder schreiben.
denke ich mal.

gruss
m