Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen

CommandButton per Makro verschieben

Betrifft: CommandButton per Makro verschieben
von: Volker M
Geschrieben am: 14.04.2003 - 10:53:54

Hallo Excel-Freunde

Ich möchte in einem Tabellenblatt per Makro einen CommandButton direkt in die Zelle, die sich über der aktiven Zelle befindet, verschieben. Also ohne die Koordinaten vorher zu definieren, oder mit ihnen arbeiten zu müssen.
Ist sowas zu realisieren, oder geht dies nur mit Festlegen der Koordinaten.
Wie müsste der Code aussehen ?
Besten Dank im Voraus.
Gruß Volker


  

Re: CommandButton per Makro verschieben
von: Monika Weber
Geschrieben am: 14.04.2003 - 11:02:29

Hallo Volker,

das kannst Du mit einer Ereignis-Prozedur, welche an das Tabellenblatt gebunden ist erreichen, dabei müssen schon Koordinaten angegeben werden, sonst weiss die Schaltfläche ja nicht wo sie angezeigt werden muss.

Ein Beispiel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim shp As Shapes
With ActiveSheet.Shapes(1)
.Top = ActiveCell.Offset(-2, 0).Top
.Left = ActiveCell.Offset(0, 0).Left
End With
End Sub

Es liebs Grüessli
Monika



  

Re: CommandButton per Makro verschieben
von: Volker M
Geschrieben am: 14.04.2003 - 11:52:40

Hallo Monika

Ich danke dir für die schnelle Antwort. Das ist es, was ich gesucht habe.
Es funktioniert.

Nochmals vielen Dank und liebe Grüße
Volker

  

Re: CommandButton per Makro verschieben
von: Monika Weber
Geschrieben am: 14.04.2003 - 12:16:02

Hallo Volker,

freut mich, wenn ich helfen konnte :-)
Danke fürs Feedback.

Es liebs Grüessli
Monika




 

Beiträge aus den Excel-Beispielen zum Thema "CommandButton per Makro verschieben"