Anzeige
Archiv - Navigation
1940to1944
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhalte Textboxen in Abhängikeit anpassen
19.08.2023 22:29:28
Andreas
Hallo, mein Userform soll etwas erweitert werden.

Es sollen die Werte der Textboxen in Abhängikeiten angepasst werden.

Wie könnte man folgendes in Vba ausdrücken.

Ist die Zahl in der Textbox 1 im UF100 gleich oder größer als die Zahl in der Textbox 2 dann soll in Textbox 3 der Inhalt der Zelle (AE3) des Sheets("Auswertung") angezeigt werden.

Ist die Zahl in der Textbox 1 im UF100 kleiner als die Zahl in der Textbox 2 dann soll in Textbox 3 der Inhalt der Zelle (AE2) des Sheets("Auswertung") angezeigt werden.

LG Andreas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalte Textboxen in Abhängikeit anpassen
20.08.2023 00:27:06
onur
With UF100

.Textbox3=Sheets("Auswertung").Range("AE2")
IF CDbl(.Textbox1) >= CDbl(.Textbox2) Then .Textbox3 = Sheets("Auswertung").Range("AE3")
End With
Anzeige

192 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Anzeige

Infobox zum Thema

EXCEL - Inhalte von Textboxen in Abhängigkeit von Zelle A1 anpassen


Inhaltsverzeichnis


Die Fragestellung


Du möchtest den Inhalt von Textboxen auf einem Excel-Arbeitsblatt automatisch anpassen, basierend auf dem Wert in Zelle A1.


Erläuterung des Problems {#erläuterung-des-problems}


Textboxen in Excel können verwendet werden, um Textinformationen auf einem Arbeitsblatt anzuzeigen. Wenn diese Informationen abhängig von den Daten in einer Zelle (wie A1) variieren sollen, muss eine Verbindung zwischen der Zelle und der Textbox hergestellt werden.


Lösung des Problems {#lösung-des-problems}


Um den Inhalt einer Textbox basierend auf dem Wert einer Zelle zu ändern, kannst du ein VBA-Makro verwenden, das auf das Worksheet_Change-Ereignis reagiert. Hier ist ein Beispiel, wie du dies umsetzen kannst:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim txtBox As OLEObject
    Set txtBox = Me.OLEObjects("TextBox1") ' "TextBox1" ist der Name der Textbox

    ' Überprüfen, ob die Änderung in Zelle A1 erfolgt ist
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        ' Aktualisiere den Inhalt der Textbox mit dem Wert von Zelle A1
        txtBox.Object.Text = Me.Range("A1").Value
    End If
End Sub

Dieses Makro muss im Codeblatt des entsprechenden Arbeitsblattes platziert werden, nicht in einem allgemeinen Modul. Es überprüft, ob die Änderung in Zelle A1 stattgefunden hat, und wenn ja, wird der Text der Textbox entsprechend aktualisiert.


Anwendungsbeispiele aus der Praxis


  • Dynamische Formulare: Anpassen von Formularen, die sich automatisch aktualisieren, wenn bestimmte Werte geändert werden.
  • Dashboard-Displays: Erstellen von Dashboards, die Schlüsselinformationen in Textboxen anzeigen, die sich mit den Daten ändern.

Tipps


  • Stelle sicher, dass der Name der Textbox korrekt ist. Du kannst den Namen im Eigenschaftenfenster der Textbox finden.
  • Verwende Application.EnableEvents = False vor der Änderung von Zellen durch das Makro, um eine Endlosschleife zu vermeiden, und setze es zurück auf True, wenn du fertig bist.

Verwandte Themenbereiche


  • Ereignisgesteuerte Programmierung in Excel
  • Interaktive Benutzeroberflächen in Excel
  • VBA und Formularsteuerelemente

Zusammenfassung


Die Anpassung von Textbox-Inhalten in Abhängigkeit von Zellwerten kann durch das Worksheet_Change-Ereignis in VBA erreicht werden. Dies ermöglicht die Erstellung dynamischer und interaktiver Excel-Arbeitsblätter, bei denen sich die angezeigten Informationen automatisch aktualisieren, wenn sich die zugrunde liegenden Daten ändern.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige