VBA Kalender + Zeile löschen Schaltfläche

[DN_89]

Hallo Zusammen,

auf hajo-excel.de hab ich einen Kalender-code gefunden. der funktioniert auch wunderbar. Des Weiteren habe ich in Spalte Q eine Löschfunktion eingebaut. Wenn ich in der Spaltenzelle Ja wähle und dann auf den Löschen-Button klicke, wird die Zeile gelöscht. Jetzt ruft Excel aber jedesmal den Kalender erst auf, wenn ich auf Löschen klicke. Was hab ich da mit meinen weniger als rudimentären VBA-Kenntnissen vermasselt? 

Kleine Zusatzfrage: Wie fixiere ich die Löschen-Schaltfläche so in der Zelle, dass sie sich in der Größe an die Zelle dynamisch anpasst? Steuerelement formatieren funzt leider nicht?!

Vielen lieben Dank im Voraus!

LG

[LuckyJoe]

Hi,

zur 1. Frage: du rufst mit deinem Button ein Macro auf, das die Zeile enthält

Code:

Application.ScreenUpdating = False

Damit wiederum wird das Ereignis "Worksheet_SelectionChange" aufgerufen, was deinen Kalender anzeigt.

2. Du kannst auch die Eigenschaft von Steuerelementen per VBA verändern. Du kannst das ja mal mit dem Makro-Rekorder ausprobieren. In deinem Fall wäre es z.B.

Code:

ActiveSheet.Shapes("Button 5").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 28.5
Selection.ShapeRange.Width = 96.75

An dem Code kannst du natürlich noch "arbeiten".

Noch umfangreicher sind die Eigenschaften, wenn du dir einen Button über die Steuerelemente-Toolbox anlegst.