Office: Excel 2003 - Problem mit Formularsteuerelementen und Buttons

Auf die Idee bin ich ja noch gar nicht gekommen, den aufgezeichneten Macro Code für die Programmierung beim AktiveX zu missbrauchen ^^

Wie bekommen ich das hier

mit dem hier vereint?

 

Was kann ich tun um möglichst mit einem Makro zu erreichen das Exel die Tageseingabe (Zahlen mit 0 Dezimalstellen) mit bestätigen des AktivX Buttons in die Monatsbilanz übernimmt und die Monatsbilanz mit jedem bestätigen des Buttons die neuen zahlen mit einbezieht?

 

Code:

Private Sub CheckBox1_Click()
   ' Kontrollkästchen wird aktiviert
   If CheckBox1 Then
      ' Datum wird in A7 geschrieben
      Range("A7") = Date
      ' Kontrollkästchen wird deaktiviert
   Else
      ' A7 wird geleert
      Range("A7").ClearContents
   End If
   With Range("D7:S7").Interior
      .Pattern = xlSolid
      .PatternColorIndex = xlAutomatic
      .ThemeColor = xlThemeColorDark1
   End With
End Sub

Bis später,
Karin

 

dazu hatte ich in Beitrag #7 bereits einen Code gepostet. Diesen musst du nur auf die betreffenden Zelleadressen erweitern und anpassen.

Bis später,
Karin

 

Hallo,

1) In der beiliegenden Excel-Datei habe ich versucht, anhand Deines JPG-Bildes den gewünschten Additionsmechanismus per VBA-Programm zu realisieren - mit 2 Buttons:
1a) Der untere ENTER-Button ist ein Formularsteuerelement: Sein Code befindet sich in einem allgemeinen Codemodul,
1b) Der obere ENTER-Button ist ein ActiveX-Button: Sein Code befindet sich im Codemodul des Arbeitsblattes "Tabelle1",wobei dieser Code nichts anderes tut, als den Code des 1a)-Buttons aufzurufen.
2a) Damit ist bewiesen, dass es sich im Prinzip um denselben Code handelt - nur ist ein ActiveX-Button komfortabler zu programmieren, da man auf seine Eigenschaften und Methoden zugreifen kann, was in diesem Fall nicht ausgenutzt wird.
2b) Dagegen ist der Vorteil von Steuerelementen vom Typ 1a), dass man sie bequemer im Arbeitsblatt einsetzen kann, insbesondere wenn man keine Zeile an VBA-Code schreiben will - aber bei Buttons ist das völlig egal, man muss in jedem Fall VBA-Code schreiben - EXCEL4.0-Makros/Befehle kommen doch wohl nicht mehr infrage.

 

Ich habe es dank eurer Hilfe noch rechtzeitig geschafft, entsprechende Datei fertig zu stellen. In diesem Zusammenhang möchte ich mich ausdrücklich bei allen bedanken die es sich hier zur Aufgabe gemacht haben mich zu unterstützen. Mit Speziellem Dank an Beverly und Exl121150 ohne deren Hilfe ich definitiv nicht so schnell zur Lösung gekommen wäre.

Vielleicht kann mir Exl121150 noch schnell den Befehl Einfügen der die Tageseingabe in der ersten Tabelle nach Übernahme in die Monatsbilanz, aus der Tabelle entfernt. Da nicht täglich alle Felder ausgefüllt werden könnte es sonst zu einer Eingabe bereits veralteter Daten in die Monatsbilanz führen.

Ansonsten bin ich mit diesem Projekt fertig und habe eine Menge gelernt, werde mich mit großer Wahrscheinlichkeit jetzt noch intensiver mit Exel beschäftigen! Da Exl121150 mir den kleinen Löschzusatz sicher auch privat schicken kann, kann dieser Thread geschlossen werden und Platz machen für andere Hilfebeiträge!

Gruß Equi =)

 

Hallo,

in der beiliegenden Excel-Datei habe ich Dir auch den Löschbefehl für den Tageseingabebereich implementiert.

Dabei sind 2 Möglichkeiten gegeben:
a) Den Löschbefehl durch Klicken eines Buttons (CLEAR-ActiveX bzw. CLEAR-Formular) auszuführen.
b) Den Löschbefehl einfach als zusätzlichen Befehl im Anschluss an die Addition in den Monatsausgabebereich auszuführen.

Die Variante a) habe ich Dir als sofort einsatzbereit realisiert - wieder durch 2 Buttons mit der Aufschrift "CLEAR (ActiveX)" bzw. "CLEAR (Formular)".
Möchtest Du lieber Variante b) haben, müsstest Du in das allgemeine Codemodul "Modul1" von VBA gehen und das Kommentarzeichen ' des letzten Befehls in der "SUB FormENTER_Klicken()" entfernen, also den Apostroph vor "Tageseingabe.Clearcontents".