Clever-Excel-Forum

Normale Version: VBA Kalender + Zeile löschen Schaltfläche
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
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
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.