Thema Datum  Von Nutzer Rating
Antwort
09.09.2021 10:31:34 Matthias
NotSolved
Blau Per InputBox Wert zu bestimmter Zelle addieren
 09.09.2021 13:28:20 Gast55018
NotSolved
09.09.2021 13:59:12 Matthias
NotSolved
10.09.2021 08:28:18 volti
NotSolved

Ansicht des Beitrags:
Von:
Gast55018		 Datum:
09.09.2021 13:28:20		 Views:
439		 Rating:
     
Antwort:
  Ja
Thema:
Per InputBox Wert zu bestimmter Zelle addieren		 
Option Explicit

Public Sub OnButtonAction_PlusMinus()
  
  If VarType(Application.Caller) <> vbString Then
    Exit Sub
  End If
  
  Dim shpButton As Excel.Shape
  On Error Resume Next
  Set shpButton = ActiveSheet.Shapes(Application.Caller)
  On Error GoTo 0
  
  If shpButton Is Nothing Then
    Exit Sub
  End If
  
  If shpButton.Type <> msoFormControl Then
    Exit Sub
  End If
  If shpButton.FormControlType <> xlButtonControl Then
    Exit Sub
  End If
  
  Dim rngCellAnchor As Excel.Range
  Dim number As Double
  
  Set rngCellAnchor = shpButton.TopLeftCell
  
  If IsNumeric(rngCellAnchor.Value) Then
    number = Application.InputBox("Wert eingeben:", Default:=1, Type:=1)
    Select Case shpButton.OLEFormat.Object.Caption
      Case "+"
        rngCellAnchor.Value = rngCellAnchor.Value + number
      Case "-"
        rngCellAnchor.Value = rngCellAnchor.Value - number
    End Select
  End If
  
End Sub

Obiges Makro jeder einzelnen Schaltflächen zuweisen (Rechtsklick > "Makro zuweisen...") - die Schaltflächen müssen Formularsteuerelemente sein ( kein ActiveX ).

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
09.09.2021 10:31:34 Matthias
NotSolved
Blau Per InputBox Wert zu bestimmter Zelle addieren
 09.09.2021 13:28:20 Gast55018
NotSolved
09.09.2021 13:59:12 Matthias
NotSolved
10.09.2021 08:28:18 volti
NotSolved