Thema Datum  Von Nutzer Rating
Antwort
16.04.2019 13:41:41 Gast123
NotSolved
16.04.2019 14:13:51 Jakob
NotSolved
Rot Variablen Uebergabe
 16.04.2019 19:04:03 Gast15253
NotSolved
16.04.2019 19:08:51 Gast15253
NotSolved
19.04.2019 03:41:04 Gast60587
NotSolved

Ansicht des Beitrags:
Von:
Gast15253		 Datum:
16.04.2019 19:04:03		 Views:
435		 Rating:
     
Antwort:
  Ja
Thema:
Variablen Uebergabe

Füge deinem Blatt die Schaltflächen (Formularsteuerelement) hinzu.

Weise jeder Schaltfläche nachfolgendes Makro zu (ggf. Rechtsklick auf die Schaltfläche -> "Makro zuweisen ...").

Das Makro muss in einem Modul stehen.

Option Explicit

Public Sub MyButton_Click()
  
  Dim shp As Excel.Shape
  
  Select Case TypeName(Application.Caller)
    Case "String"
      On Error Resume Next
      Set shp = ActiveSheet.Shapes(Application.Caller)
      If shp Is Nothing Then Exit Sub
      If shp.Type <> msoFormControl Then Exit Sub
      If shp.FormControlType <> xlButtonControl Then Exit Sub
    Case Else
      Exit Sub
  End Select
  
  Dim objButton As Button
  
  Set objButton = shp.OLEFormat.Object
  
  'Ausgabe nur zur Veranschaulichung
  MsgBox "Name: " & objButton.Name & "'" & vbNewLine & _
         "Caption: '" & objButton.Caption & "'"
  
  Select Case objButton.Name
    Case "Button1"
      '...
    Case "Button2"
      '...
    Case "Button3"
      '...
    Case Else
      '...
      Exit Sub
  End Select
  
End Sub

Das Makro gibt dir - nur zur Veranschaulichung - den Name und die Beschriftung des geklickten Buttons aus (siehe MsgBox-Zeile). In dem Select-Case darunter siehst du dann eine Fallunterscheidung per Schaltflächennamen (dieser ist eineindeutig). Anhand diesem kannst du dann deine Sheet Nummer festlegen und was du sonst noch so machen willst folgt darunter.

 

VG

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.04.2019 13:41:41 Gast123
NotSolved
16.04.2019 14:13:51 Jakob
NotSolved
Rot Variablen Uebergabe
 16.04.2019 19:04:03 Gast15253
NotSolved
16.04.2019 19:08:51 Gast15253
NotSolved
19.04.2019 03:41:04 Gast60587
NotSolved