mal wieder eine Frage von mir.
Ich habe folgendes Problem.
In Zelle M7 und N7 steht jeweils ein Wert. Dieser soll, mit einem Drehfeld, um 0,1 hoch oder runtergezählt werden können. Also jeweils ein Drehfeld/Button für eine Zelle.
Alle 220 Zeilen soll das gleiche wieder passieren.
Also ein extra Drehfeld/Button für die entsprechenden Zellen.
z.B.
M227 / N227
M447 / N447
M 5067 / N 5067
Ich habe jetzt zwei Kleine Makros geschrieben. Welche ich auf Buttons zuweisen konnte. Für die ersten 2 Zellen. (Siehe unten).
Nun ist mein Problem wie ich diese 2 Makros auf ein Drehfeld anwende und wie ich das mit einer Schleife auf die restlichen übertragen kann. Da ich sonst einen sehr großen Aufwand hätte. Die Drehfelder/Buttons sollen mit einem Makro platziert und erstellt werden. (
Ich hoffe ich habe mich verständlich ausgedrückt und ihr könnt mir weiterhelfen.
Hier das Makro zum Hochzählen:
Sub zaehlen_plus()
Cells(7, 13) = Cells(7, 13) + 0.1
End Sub
Makro zur Positionierung und erstellung:
Sub Erstellung()
Dim t As Range
For i = 6 To 5271 Step 220
Set t = ActiveSheet.Range(Cells(i, 13), Cells(i, 13))
Set btn = ActiveSheet.buttons.Add(t.Left, t.Top, t.Width, t.Height)
With btn
.OnAction = "zaehlen_plus"
.Caption = "+"
.Name = "+"
End With
Next i
For i = 6 To 5271 Step 220
Set t = ActiveSheet.Range(Cells(i + 2, 13), Cells(i + 2, 13))
Set btn = ActiveSheet.buttons.Add(t.Left, t.Top, t.Width, t.Height)
With btn
.OnAction = "zaehlen_minus"
.Caption = "- "
.Name = "-"
End With
Next i
For i = 6 To 5271 Step 220
Set t = ActiveSheet.Range(Cells(i, 14), Cells(i, 14))
Set btn = ActiveSheet.buttons.Add(t.Left, t.Top, t.Width, t.Height)
With btn
.OnAction = "zaehlen_plus_N"
.Caption = "+"
.Name = "+"
End With
Next i
For i = 6 To 5271 Step 220
Set t = ActiveSheet.Range(Cells(i + 2, 14), Cells(i + 2, 14))
Set btn = ActiveSheet.buttons.Add(t.Left, t.Top, t.Width, t.Height)
With btn
.OnAction = "zaehlen_minus_N"
.Caption = "- "
.Name = "-"
End With
Next i
Application.ScreenUpdating = True
End Sub