UserForm Schaltfläche
Andy
ich habe ein Macro das ich ein bisschen anpassen möchte.
Vielleicht könnt Ihr mir dabei helfen!
Übere eine Befehlsschaltfläche wird die Zahl in A1 geschrieben.
Wie kann man das anpassen das jede neue Zahl vortaufend in A2, A3 usw. eingetragen wird.
Danke im Vorras!
Private Sub cmdTabellenblatt_Click()
If Not IsNumeric(txtZahl1.Text) Or _
Not IsNumeric(txtZahl2.Text) Then
MsgBox "Bitte Zahlen eingeben"
Else
ThisWorkbook.Worksheets("Tabelle1"). _
Range("A1").Value = CDbl(txtZahl1.Text) _
+ CDbl(txtZahl2.Text)
End If
End Sub
Anzeige