Buttons.add
08.12.2023 12:03:29
MMRH
ich habe in meinem Code zwei Subs:
Sub Schaltfläche()
With Sheets("Datengrundlage").Range("B:B").Select
End With
Dim knopf_pivot As Range
Set knopf_pivot = Range("B1:B1")
knopf_pivot.Select
'ActiveSheet.Buttons.Add(1500.2, 25.8, 124.8, 110.4).Select
ActiveSheet.Buttons.Add(knopf_pivot.Left, knopf_pivot.Top, knopf_pivot.Width, knopf_pivot.Height / 2).Select
Selection.OnAction = "Pivotgrundlage"
Selection.Characters.Text = "Pivot vorbereiten."
'Range("O21").Select
End Sub
und
Sub ManuelleeingabeSchaltfläche()
With Sheets("Datengrundlage").Range("D:D").Select
End With
Dim Knopf_manuell As Range
Set Knopf_manuell = Range(Cells(1, 4), Cells(1, 4))
Knopf_manuell.Select
Range("D1").Select
'ActiveSheet.Buttons.Add(1500.2, 175.8, 124.8, 110.4).Select
ActiveSheet.Buttons.Add(Knopf_manuell.Width, Knopf_manuell.Top, Knopf_manuell.Left, Knopf_manuell.Height / 2).Select
Selection.OnAction = "ManuelleVorschläge"
Selection.Characters.Text = "Vorschläge."
'Range("O21").Select
End Sub
Die erste Sub funktioniert wie erwartet. Ich bekomme einen Knopf in Zelle B1. Die zweite Sub, die m.E. genau gleich funktionieren sollte, liefert mir einen Button der über die Spalten B und D hinausragt. Ich hatte aber erwartet einen Knopf zu bekommen, der exakt in Zelle D1 passt. Warum funktioniert das nicht?
Danke & Grüße