Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Funktion in extra fenster/box anzeigen

Forumthread: Funktion in extra fenster/box anzeigen

Funktion in extra fenster/box anzeigen
24.03.2009 17:08:00
Makrigiannis
hallos leute,
bräuchte mal wieder einen weisen rat....hab folgeneden code einer excell tabelle hinterlegt:
Option Explicit

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)
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)
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)
End If
Next rngZelle
Application.EnableEvents = True
End Sub


ist es möglich, daß wenn ich mit dem curser über die zellen geh,mir der eingebene wert in einem kleinen fenster oder in einer anderen zelle angezeigt wird.
wenn ich also in der zelle B7 den wert 10 eingebe,wird dieser mit dem multiplikator 3 (wert 14) multipliziert.nun soll in einem extra kleinen fenster/box der wert 10 angezeigt...
danke

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion in extra fenster/box anzeigen
24.03.2009 18:01:09
Makrigiannis
ist meine frage verständlich für euch?
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

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.

  1. Öffne die Excel-Datei, in der du die Funktion implementieren möchtest.
  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  3. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
  4. 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
  1. Schließe den VBA-Editor und kehre zu deiner Excel-Tabelle zurück.
  2. Teste die Funktion, indem du einen Wert in eine der angegebenen Zellen eingibst.

Häufige Fehler und Lösungen

  • Fehler: "Komponente nicht gefunden"

    • Lösung: Stelle sicher, dass du den Code im richtigen Modul eingefügt hast. Der Code sollte im Modul des entsprechenden Arbeitsblattes eingefügt werden, nicht in einem allgemeinen Modul.
  • Fehler: Die Box wird nicht angezeigt

    • Lösung: Überprüfe, ob Application.EnableEvents korrekt gesetzt ist. Wenn es auf False bleibt, wird die Box nicht angezeigt.

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige