Alle Button das selbe Makro
30.09.2003 11:51:17
Miguel
Hallo Leute,
in einer Tabelle sollen automatisch Buttons erstellt werden bis das Ende der Tabelle erreicht wurde. Alle Buttons sollen das gleiche Makro ausführen.
Soweit so gut.
Nur wie teile ich diesem einen Makro mit, welcher Button es aufgerufen hat, damit es dann die Werte der Zeile verarbeitet, in der der Button gedrückt wurde !!!
Ich bin verzweifelt, für Tips wäre ich sehr dankbar.
Der Code mit dem ich die Buttons erstelle:
Do While Range("A" & i) <> ""
hoehe = Range("A" & i).Height
oben = oben + Range("A" & i - 1).Height
ActiveSheet.buttons.Add(links, oben, 60, hoehe).Select
Selection.Name = "Button" & i - 1
Selection.OnAction = "verarbeiten"
Selection.Characters.Text = "Ausführen" & i - 1
With Selection.Characters(Start:=1, Length:=9).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
End With
i = i + 1
Loop