programm einem makro zuweisen

  • Excel

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von 1989moni1989.

    programm einem makro zuweisen

    Hallo!!!

    über Extras/Makros/VisualBasic-Editor hab ich jetzt ein programm erstellt und das funktioniert soweit einwandfrei...

    allerdings würde ich es jetzt gerne übe eine schaltfläche aufrufen direkt aus excel und ich habe keine ahnung, wie man das macht... denn dieses programm wurde keinem makro zugewiesen....

    habt ihr einen rat???

    lg Moni

    Hallo Moni,

    füge eine Befehlsschaltfläche in Dein Worksheet. Aktiviere den Entwurfmodus. Doppelklicke auf die Schaltfläche.

    >Private Sub CommandButton1_Click()
    >Call Modul1.Makro1
    >End Sub

    1-ste und 3-te Zeile sollten vorhanden sein.
    2-te Zeile eingeben. Wenn Du das Makro aufgezeichnet hast, dann sollte Modul1 passen. Nach dem Punkt der Name Deines Makros (in dem Beispiel wurde kein Namen vergeben->System vergibt Makro1).

    Hoffe ich schreibe nicht zu kompliziert, ist mein 1-ster Beitrag.

    lg
    FreeRider74

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FreeRider74“ ()

    hey ;)
    danke für deine antwort!!!

    aber ich hab ein kleines problem...
    also mein programm ist gar kein makro...
    es erscheint nicht in der makro-liste, sondern nur wenn ich das arbeitsblatt öffne und dann auf extras, makros, VisualBasic-Editor klicke...

    wenn ich das programm dort drinnen ausführe über den grünen pfeil, dann klappt alles perfekt, aber ich kann ihm keinen makro namen geben... zumindest weiß ich nicht, wie man das macht...

    glg moni

    Hi,

    @1989moni1989

    ändere die Zeile:

    Private Sub ... in Sub ...

    Dann wird es auch als Makro "erkannt" und Du kannst es direkt der Schaltfläche zuweisen (reMaustaste - Makro zuweisen)


    bye ...

    LaMa5.
    Die Wissenschaft wird nie ein besseres Kommunikationssystem in den Büros erfinden können als die Kaffeepause.
    (Autor: Earl Wilson, amerik. Schriftsteller)
    https://www.serviceteam-md.de

    also ich glaube ich poste jetzt mal den quellcode *gg*
    denn es erscheint noch immer nix als makro...

    soeinfach mit aufzeichnen und dann rauslöschen gehts auch nicht, weil ich ein formular dazu nehme...


    Visual Basic-Quellcode

    1. Function Alter(sDatum As String) As Long
    2. Dim dtDate As Date
    3. sDatum = Trim$(sDatum)
    4. If Len(sDatum) = 10 Then
    5. dtDate = CDate(sDatum)
    6. Alter = Year(Date) - Year(dtDate)
    7. End If
    9. End Function
    12. Sub cmdOK_Click()
    13. If txtVorname = "" Or txtNachname = "" Or txtStrasse = "" Or txtPlz = "" Or txtGeburtstag = "" Or txtOrt = "" Then
    14. MsgBox "Du hast nicht alles angegeben!"
    15. Else
    16. MsgBox "Du bist/wirst " & Alter(txtGeburtstag.Value) & " Jahre alt!" & vbCrLf & "Danke für deine Eingabe!"
    17. End
    18. End If
    19. End Sub
    21. Sub txtGeburtstag_AfterUpdate()
    22. Dim sDate As String
    24. 'Eingabe trimmen
    25. sDate = Trim(txtGeburtstag.Value)
    26. 'Länge prüfen
    27. If Len(sDate) > 0 Then
    28. 'Läne <> 10 prüfen
    29. If Len(sDate) <> 10 Then
    30. 'Hinweis anzeigen
    31. MsgBox "Ungültige Datumseingabe. Bitte das Format TT.MM.JJJJ verwenden!"
    32. 'Eingabefeld leeren
    33. txtGeburtstag.Value = ""
    34. Else
    35. 'Gültigkeit des Datums überprüfen
    36. If Not IsDate(sDate) Then
    37. 'Hinweis Anzeigen
    38. MsgBox "Ungültige Datumseingabe. Bitte das Format TT.MM.JJJJ verwenden!"
    39. 'Eingabefeld leeren
    40. txtGeburtstag.Value = ""
    41. End If
    42. End If
    43. End If
    45. End Sub
    47. Sub txtNachname_AfterUpdate()
    48. txtNachname.Value = Trim$(txtNachname.Value)
    49. End Sub
    51. Sub txtOrt_AfterUpdate()
    52. txtOrt.Value = Trim$(txtOrt)
    53. End Sub
    55. Private Sub txtPlz_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    56. Select Case KeyAscii
    57. Case 48 To 57
    58. Case Else
    59. KeyAscii = 0
    60. End Select
    61. End Sub
    63. Sub txtStrasse_AfterUpdate()
    64. txtStrasse.Value = Trim$(txtStrasse.Value)
    65. End Sub
    67. Sub txtVorname_AfterUpdate()
    68. txtVorname.Value = Trim$(txtVorname.Value)
    69. End Sub

    Hi,

    OK, bei nem Formular siehts schon wieder anders aus.

    1.) Erstelle einen CommandButton direkt auf Deinem Excel Sheet (Steuerelemente Toolbox über Ansicht einblenden)
    2.) rechts Klick auf den Button --> Code anzeigen
    3.) im Codefenster wird autom. eine Sub erzeugt, dort hinein UserForm1.Show (falls Du die Form umbenannt hast, den entspr. Namen anstatt UserForm1 verwenden!)

    so müsste es jetzt hinhauen.


    bye ...

    LaMa5.
    Die Wissenschaft wird nie ein besseres Kommunikationssystem in den Büros erfinden können als die Kaffeepause.
    (Autor: Earl Wilson, amerik. Schriftsteller)
    https://www.serviceteam-md.de