Private Sub Worksheet_Activate()
UserForm1.Show
TextBox3 = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
End Sub
Private Sub Worksheet_activate()
UserForm1.Show
UserForm1.TextBox3.Value = CDbl(UserForm1.TextBox1.Value) + CDbl(UserForm1.TextBox2.Value)
End Sub
If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then Exit Sub
TextBox3 = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
| A | B | C | |
| 1 | 2 | 3 | 5 |
| verwendete Formeln | ||
| Zelle | Formel | Bereich |
| C1 | =A1+B1 | |
UserForm erstellen:
Entwicklertools > Visual Basic.VBAProject (DeineArbeitsmappe) und wähle Einfügen > UserForm.TextBoxen hinzufügen:
TextBox-Steuerung aus und füge drei TextBoxen zu deiner UserForm hinzu. Benenne sie als TextBox1, TextBox2 und TextBox3.Code für die Berechnung eingeben:
Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Value) And IsNumeric(TextBox2.Value) Then
TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
End If
End Sub
Private Sub TextBox2_Change()
If IsNumeric(TextBox1.Value) And IsNumeric(TextBox2.Value) Then
TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
End If
End SubUserForm anzeigen:
ThisWorkbook-Modul ein:Private Sub Workbook_Open()
UserForm1.Show
End SubTesten:
.xlsm (Makro-fähige Arbeitsmappe) und öffne sie erneut, um die UserForm zu testen.Fehlermeldung: Objekt erforderlich
Fehlermeldung: Typen unverträglich
IsNumeric, um sicherzustellen, dass nur gültige Zahlen verarbeitet werden.Keine Aktualisierung in TextBox3
Change-Ereignis-Handler in den TextBoxen verwendest, damit die Berechnung bei jeder Eingabe aktualisiert wird.Verwendung eines CommandButtons:
Private Sub CommandButton1_Click()
If IsNumeric(TextBox1.Value) And IsNumeric(TextBox2.Value) Then
TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
End If
End SubDirekte Berechnung in einer Zelle:
Beispiel-UserForm:
Download eines Beispiels:
Verwende Option Explicit:
Option Explicit am Anfang deines Moduls hinzu, um sicherzustellen, dass alle Variablen deklariert sind.Fehlerbehandlung einfügen:
On Error Resume Next und überprüfe dann, ob ein Fehler aufgetreten ist.Styling der UserForm:
1. Kann ich die Berechnung auch automatisch durchführen lassen, wenn ich die Werte eingebe?
Ja, durch Verwendung des Change-Ereignisses in den TextBoxen kannst du die Berechnung automatisch durchführen, sobald der Benutzer eine Zahl eingibt.
2. Funktioniert das auch in Excel 2016 oder älteren Versionen? Ja, die oben genannten Schritte und der VBA-Code sind mit Excel 2010, 2013, 2016 und spätere Versionen kompatibel. Stelle sicher, dass Makros aktiviert sind.
3. Was kann ich tun, wenn die TextBoxen nicht richtig angezeigt werden? Überprüfe die Eigenschaften der TextBoxen im Eigenschaftenfenster des VBA-Editors. Möglicherweise musst du die Größe oder Position der TextBoxen anpassen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen