Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

UserForm Schaltfläche | Herbers Excel-Forum


Betrifft: UserForm Schaltfläche von: Andy
Geschrieben am: 17.01.2012 17:49:04

Hallo,
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

  

Betrifft: AW: UserForm Schaltfläche von: Hajo_Zi
Geschrieben am: 17.01.2012 17:53:57

Hallo Andy,

    With ThisWorkbook.Worksheets("Tabelle1")
        Dim LoLetzte As Long
        LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, . _
Rows.Count) + 1
        .Cells(LoLetzte, 1) = CDbl(txtZahl1.Text) + CDbl(txtZahl2.Text)
    End With

GrußformelHomepage


  

Betrifft: AW: UserForm Schaltfläche von: Andy
Geschrieben am: 17.01.2012 18:20:27

Hallo,
das ging ja schnell und funktioniert
Vielen Dank!!


Beiträge aus den Excel-Beispielen zum Thema "UserForm Schaltfläche"