Thema Datum  Von Nutzer Rating
Antwort
28.03.2020 10:27:13 Holzkopf
NotSolved
Blau Array ansteuern
 28.03.2020 10:59:22 Gast68106
Solved
28.03.2020 11:41:22 Gast604
NotSolved
28.03.2020 11:54:40 Gast0815
NotSolved
28.03.2020 12:10:50 Gast51551
NotSolved
28.03.2020 13:25:30 Gast72790
NotSolved

Ansicht des Beitrags:
Von:
Gast68106		 Datum:
28.03.2020 10:59:22		 Views:
547		 Rating:
     
Antwort:
 Nein
Thema:
Array ansteuern

Da bieten sich ehern Formularsteuerelemente an, anstatt Active-X Steuerelemente.

Beim Einfügen (bzw. per Rechtsklick auf das Formularsteuerlement) kann man dem Formularsteuerelement...

... ein Makro zuweisen.

z.B.

Option Explicit

'
' OnAction für Formularsteuerelement-Schaltflächen
'
Public Sub MyButton_Click()
  
  If Not TypeName(Application.Caller) = "String" Then
    Exit Sub
  End If
  
  Dim objButton As Object
  
  On Error Resume Next
  Set objButton = ActiveSheet.Shapes(Application.Caller)
  If Err.Number <> 0 Then Exit Sub
  On Error GoTo 0
  
  If objButton.Type <> MsoShapeType.msoFormControl Then
    Exit Sub
  Else
    If objButton.FormControlType <> XlFormControl.xlButtonControl Then
      Exit Sub
    Else
      Set objButton = objButton.OLEFormat.Object
    End If
  End If
  
  MsgBox "Es wurde auf die Schaltfläche '" & objButton.Name & "' geklickt.", vbInformation
  
'  Select Case objButton.Name
'    Case "cmdBtn_201"
''      w = Array("Saiga AS 12", TimeValue("09:50:00"))
'
'    Case "cmdBtn_202"
''      w = Array("HK MK 3 (HK 33)", TimeValue("09:23:00"))
'
'    Case Else
'      'unbekannte Schaltfläche
'  End Select
  
End Sub

In diesem Makro wird überprüft wie / von wem das Makro aufgerufen wurde. Liegt eine Zeichenfolge vor, wird versucht das Shape darüber zu finden und prüft bei Erfolg den Typ (hier auf Schaltfläche).

Danach kann man dann anhand von z.B. dem Schaltflächennamen weiter verfahren wie man es möchte.

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
28.03.2020 10:27:13 Holzkopf
NotSolved
Blau Array ansteuern
 28.03.2020 10:59:22 Gast68106
Solved
28.03.2020 11:41:22 Gast604
NotSolved
28.03.2020 11:54:40 Gast0815
NotSolved
28.03.2020 12:10:50 Gast51551
NotSolved
28.03.2020 13:25:30 Gast72790
NotSolved