Listenfeld nicht sichtbar

Moderator: ModerationP

Listenfeld nicht sichtbar

Beitragvon remotho » 09. Sep 2021, 12:03

Ich habe ein Problem, das ich nicht lösen kann.

Ich möchte, dass das Listenfeld82 nicht sichtbar ist, wenn ein Blatt aktiv ist und Zelle A1=3 oder A1=4 hat,,
wenn auf demselben Blatt A1=1 oder A1=2 oder A1=3 ist, wird das Listenfeld82 sichtbar.

Ich habe mehrere Makros ausprobiert, aber es funktioniert nur, wenn ich ein "Optionsfeld" hinzufüge, und das brauche ich nicht, denn ich möchte, dass die Option "Listenfeld" automatisch erscheint
Dies ist mein Makro
Code: Alles auswählen
Sub Zug_ein_aus()
With Worksheets("Frontfold")
If .Range("A1").Value = "3"  or . Range("A1").Value = "4"   Then
     ActiveSheet.Shapes("Listenfeld82").Visible = False
End If
If .Range("A1").Value <=3" Then
     ActiveSheet.Shapes("Listenfeld82").Visible = True
 End If
End With


Wie kann ich dieses Makro verbessern, ohne ein "Optionsfeld" einzubauen?

Ich danke euch vielmals.
remotho
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 289
Registriert: 10. Mär 2015, 16:01

Re: Listenfeld nicht sichtbar

Beitragvon HKindler » 09. Sep 2021, 13:37

Hi,

du solltest deine Routine in ein Event einbauen. Je nachdem, ob der Wert in A1 händisch oder per Formel entsteht, bietet sich das Worksheet_Change oder das Worksheet_SelectionChange-Event an.

Übrigens: du weißt schon, dass 3 nicht gleich "3" ist? Du hast Glück, dass VBA hier eine automatische Typumwandlung vornimmt. Dennoch sollte man sich dessen bewusst sein.
Gruß,
Helmut

----------------------------
Windows 10 Enterprise (64 Bit) / Office 365 ProPlus (32 Bit)
Benutzeravatar
HKindler
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 6280
Registriert: 04. Jul 2013, 09:02
Wohnort: Schwarzwald

Re: Listenfeld nicht sichtbar

Beitragvon thowe » 09. Sep 2021, 14:22

Code: Alles auswählen
If .Range("A1").Value <=3


deinem Code nach soll bei A1 = 3, das Listenfeld angezeigt werden....
LG & ciao....

thowe
<think happy thoughts>
Hast du Milch für Kaffe? Ja, ich habe "Fettarme". Das sehe ich. Bekomme ich nun eine Milch?
Benutzeravatar
thowe
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 686
Registriert: 09. Jul 2007, 12:20
Wohnort: Graz

Re: Listenfeld nicht sichtbar

Beitragvon remotho » 28. Sep 2021, 08:00

Super, vielen dank an euch.
LG
remotho
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 289
Registriert: 10. Mär 2015, 16:01


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 29 Gäste