Textfeld anzeigen wenn bestimmter Wert erreicht ist

Forumthread: Textfeld anzeigen wenn bestimmter Wert erreicht ist

17.11.2024 19:51:27

Chris_St.

Hallo,
Ich bitte um Verzeihung, aber ich bin noch neu hier in diesem Forum!
Habe da eine Frage zu meinem Problem!
Ich möchte gerne verschiedene Textfelder anzeigen lassen wenn ein Bestimmter Wert in der Zelle "Wert" steht!
Dies habe ich zur Zeit mit ActiveSheet.Shapes("Textfeld1").Visible = True gemacht, möchte ich aber gerne anders haben!

In der Tabelle 2 steht in der Spalte "A" der Name vom Textfeld in "B" der Wert bei dem es angezeigt werden sollte und in "C" ob es angezeigt werden soll oder nicht.
Ich möchte auf die Spalte "C" verweisen, ob es angezeigt werden soll oder nicht.
Im Beispiel habe ich nur 3 Textfelder hinterlegt aber in meinem Fall habe ich mehr als 30 und es kommen noch welche dazu!

Hier das Beispiel von mir!
https://www.herber.de/bbs/user/173677.xlsm

Ich danke euch schon mal im Voraus
Sg.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Textfeld anzeigen wenn bestimmter Wert erreicht ist

18.11.2024 00:35:25

ralf_b

ins codemodul von tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)

   Dim result

   If Target.Cells(1).Address = Range("Wert").Address Then

      result = Application.Match(Target.Cells(1).Value, Application.Range("Tabelle2!B:B"), 0)

      If IsNumeric(result) Then

        Shapes(Application.Range("Tabelle2!A" & result)).Visible = IIf(Application.Range("Tabelle2!C" & result) = "JA", True, False)

      End If

   End If

End Sub

AW: Textfeld anzeigen wenn bestimmter Wert erreicht ist

18.11.2024 12:00:01

Kuwer

Hallo,

teste mal damit (Code kommt in das schon vorhandene VBA-Modul der Tabelle1):

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim i As Long

  Dim varSteuerung As Variant

  If Target.Cells(1).Address = Me.Range("Wert").Address Then

    varSteuerung = Tabelle2.Cells(1, 1).CurrentRegion.Value

    For i = 2 To UBound(varSteuerung)

      Me.TextBoxes(Replace(varSteuerung(i, 1), """", "")).Visible = (varSteuerung(i, 3) = "JA")

    Next i

  End If

End Sub

Gruß, Uwe

AW: Textfeld anzeigen wenn bestimmter Wert erreicht ist

22.11.2024 11:40:06

Chris_St.

Hallo Kuwer,
Danke erstmals für deine Hilfe, aber mein Problem hat sich dabei noch nicht gelöst!
In meinem ersten Beitrag habe ich es, glaube ich, nicht richtig Formuliert! Ich möchte mit dem klick auf einen Button "5000", "5500", "6000", "6500" oder "7000"
den Wert in der Zelle "Wert" ändern und zugleich ein Textfeld wo der Wert erreicht bzw. Überschritten wurde!

Danke
Sg. Christoph

Textfeld anzeigen wenn bestimmter Wert erreicht ist

Forumthread: Textfeld anzeigen wenn bestimmter Wert erreicht ist

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Textfeld anzeigen wenn bestimmter Wert erreicht ist

Forumthread: Textfeld anzeigen wenn bestimmter Wert erreicht ist

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread