Funktion in extra Fenster anzeigen
Schritt-für-Schritt-Anleitung
Um eine Funktion in Excel in einem extra Fenster oder einer Box anzuzeigen, kannst du den folgenden VBA-Code verwenden. Dieser Code ermöglicht es dir, den eingegebenen Wert in einer separaten Zelle oder einem kleinen Fenster anzuzeigen.
- Öffne die Excel-Datei, in der du die Funktion implementieren möchtest.
- Drücke
ALT + F11
, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen
> Modul
, um ein neues Modul zu erstellen.
- Füge den folgenden Code in das Modul ein:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range
Const Multiplikator1 As Currency = 13
Const Multiplikator2 As Currency = 42
Const Multiplikator3 As Currency = 14
Application.EnableEvents = False
For Each rngZelle In Target
If Not Intersect(rngZelle, Range("B5:M5, B8:M8, B11:M11")) Is Nothing And IsNumeric(rngZelle) And rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator1)
MsgBox "Eingegebener Wert: " & rngZelle
End If
If Not Intersect(rngZelle, Range("B6:M6, B9:M9, B12:M12")) Is Nothing And IsNumeric(rngZelle) And rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator2)
MsgBox "Eingegebener Wert: " & rngZelle
End If
If Not Intersect(rngZelle, Range("B7:M7, B10:M10,B13:M13")) Is Nothing And IsNumeric(rngZelle) And rngZelle > 0 Then
rngZelle = CCur(rngZelle * Multiplikator3)
MsgBox "Eingegebener Wert: " & rngZelle
End If
Next rngZelle
Application.EnableEvents = True
End Sub
- Schließe den VBA-Editor und kehre zu deiner Excel-Tabelle zurück.
- Teste die Funktion, indem du einen Wert in eine der angegebenen Zellen eingibst.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode, um Funktionen in Excel anzuzeigen, besteht darin, ein Textfeld zu verwenden. Du kannst ein Textfeld in der Excel-Tabelle einfügen und über die Zelle, die du bearbeitest, dynamisch aktualisieren. Diese Methode ist nützlich, wenn du die Informationen ständig im Blick haben möchtest, ohne auf eine Box klicken zu müssen.
Praktische Beispiele
Hier sind einige praktische Beispiele, wie du die Funktionalität erweitern kannst:
-
Multiplizieren von Werten: Du kannst den Multiplikator anpassen, um verschiedene Berechnungen durchzuführen. Ändere die Werte von Multiplikator1
, Multiplikator2
und Multiplikator3
, um unterschiedliche Ergebnisse zu erzielen.
-
Anzeigen in einer Zelle: Anstelle eines MsgBox kannst du den Wert auch in eine bestimmte Zelle, z.B. A1
, schreiben, indem du Range("A1").Value = rngZelle
hinzufügst.
Tipps für Profis
-
Verwende benutzerdefinierte Funktionen: Wenn du komplexere Berechnungen durchführen möchtest, erstelle benutzerdefinierte Funktionen (UDFs) im VBA, die du in Excel aufrufen kannst.
-
Ereignisse optimieren: Achte darauf, dass du Application.EnableEvents
immer wieder auf True
setzt, um unerwartete Verhaltensweisen zu vermeiden.
FAQ: Häufige Fragen
1. Wie kann ich die Größe des Fensters anpassen?
Du kannst die Größe des MsgBox-Fensters nicht direkt ändern. Eine Alternative wäre, ein UserForm zu erstellen, das du anpassen kannst.
2. Funktioniert dieser Code in Excel 365?
Ja, dieser VBA-Code funktioniert in Excel 365 sowie in anderen Versionen von Excel, die VBA unterstützen.