AW: CommandButton mit Funktion kopieren
01.03.2012 07:00:26
fcs
Hallo rookie,
als Schaltfläche muss du hier die Schaltfläche aus den Formular-Steuerelementen verwenden. So kann die Schaltfläche mit den Zellen kopiert werden.
Das mit den Schaltflächen verknüpfte Makro solltest du in einem allgemeinen Modul der Datei einfügen. Das Makro muss natürlich vor dem Kopieren zugewiesen sein.
Makro:
'Makro erstellt unter Excel 2007
Sub ZelleAPlus1()
'In Spalte A der Zeile, in der sich die linke obere Zelle des verknüpften Shape-Elements _
befindet, _
den Wert um 1 erhöhen
With ActiveSheet
With .Cells(.Shapes(Application.Caller).TopLeftCell.Row, 1)
.Value = .Value + 1
End With
End With
End Sub
Es ist aber ggf. einfacher so einen Zähler per Doppelklick-Ereignismakro in die entsprechenden Zellen zu realiseren. So ein Makro muss dann im VBA-Editor unter der entsprechenden Tabelle eingefügt werden.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target.Row > 4 And Target.Cells.Count = 1 Then
Cancel = True
Target.Value = Target.Value + 1
End If
End Sub
Gruß
Franz