Ich hoffe ihr könnt mir helfen. In einem Tabellenblatt wird folgendes eingegeben, immer in der letzten freien Zelle in A das Datum in B und C eine Zahl und in D ein Betrag. Wenn ich das direkt so auf dem Blatt eingebe fängt wenn ich die Zelle D verlasse ein Makro1 an zu laufen und schreibt alles noch in andere Blätter. Nun dachte ich mir zur vereinfachung der Eingaben mache ich mir eine Maske. Das eintragen klappt auch wunderbar nur wird das Makro1 nicht ausgeführt. Kann ich das eventuell via Application.Run in den Code einbinden mit dem ich die Maske auslese? Das Makro1 befindet sich in Microsoft Excel Objekte im Blatt "Buchungen". Der Titel lautet:
Private Sub Worksheet_Change(ByVal Target As Range)
Wenn ja wo im Code zum auslesen muss ich die Application einfügen? Ich hoffe ich habe mich verständlich ausgedrückt.
Der Code lautet:
Private Sub CommandButton1_Click()
With Sheets("Buchungen")
lz = Range("A65536").End(xlUp).Row + 1
.Cells(lz, 1).Value = CDate(TextBox1.Value)
.Cells(lz, 2).Value = CLng(ComboBox1.Value)
.Cells(lz, 3).Value = CLng(ComboBox2.Value)
.Cells(lz, 4).Value = TextBox2.Value
.Cells(lz, 5).Value = TextBox3.Value
.Cells(lz, 6).Value = TextBox4.Value
.Cells(lz, 7).Value = TextBox5.Value
.Cells(lz, 8).Value = TextBox6.Value
.Cells(lz, 9).Value = TextBox7.Value
.Cells(lz, 10).Value = TextBox8.Value
End With
Dim ObCb As Object
For Each ObCb In Me.Controls
If TypeName(ObCb) = "TextBox" Then ObCb.Value = ""
If TypeName(ObCb) = "ComboBox" Then ObCb.Value = ""
Next ObCb
End Sub
Besten Dank füre eure Hilfe
Gruss Roger