Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

UserForm Schaltfläche

Forumthread: UserForm Schaltfläche

UserForm Schaltfläche
Andy
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

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: UserForm Schaltfläche
17.01.2012 18:53:57
Hajo_Zi
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


Anzeige
AW: UserForm Schaltfläche
17.01.2012 19:20:27
Andy
Hallo,
das ging ja schnell und funktioniert
Vielen Dank!!

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige