Makro der alrltiven Tabelle übergeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Mexcel,
mit Deiner Zusatzinformation (fehlende C5) und onur's berechtigtem Einwand (hatte mich verklickt) denke ich jetzt die Aufgabenstellung richtig verstanden zu haben:
Wenn in C5 eines Blattes ein Wert>0 steht wird die Combobox ausgeblendet und der Unterstellung,
dass es sich bei den Comboboxen um Active-X-Steuerelemente handelt, kann ich Dir folgende Vorschläge machen:
Variante 1 (Makro in Modul2, Trigger in jedem gewünschten Blatt:

In jedes Tabellenmodul einfügen

Private Sub Worksheet_Change(ByVal Target As Range)

  Call Ein_Ausblenden(Target)

End Sub

Ins Modul2 einfügen

Option Explicit

Sub Ein_Ausblenden(Target As Range)

'Ein/Ausblenden, wenn in C5 änderung erfolgt

 If Target.Address = "$C$5" Then

  With ActiveSheet.Shapes("ComboBox1")

    If Target.Value &GT; 0 Then

       .Visible = False

    Else

       .Visible = True

    End If

  End With

 End If

End Sub

Die Ein/Ausblendung passiert nur, wenn in C5 eine Änderung erfolgte und nicht nach Änderungen in anderen Zellen!
Variante 2 (Makrocode und Trigger nur einmal im DieseArbeitsmappe:

In DieseArbeitsmappe einfügen

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

 'Ein/Ausblenden, wenn in C5 eines Blattes eine Änderung erfolgt

 On Error GoTo Fehler

 If Target.Address = "$C$5" Then

  With Sh.Shapes("ComboBox1")

    If Target.Value &GT; 0 Then

       .Visible = False

    Else

       .Visible = True

    End If

  End With

 End If

Fehler:

End Sub

PS: Beispiel 2 reagiert bei Änderungen in allen Arbeitsblättern. Die On error Anweisung bewirkt, dass evtl. Blätter ohne Combobox keinen Fehler erzeugen.
viele Grüße
Karl-Heinz

Hallo Mexcel,
das konnte ja nicht funktionieren, da keine der Vorraussetzungen zutraf:
- Es ist nicht wie angenommen eine, sondern es sind mehrere Comboboxen (CB) je Blatt vorhanden
- Die CB heißen auch nicht "Combobox1" etc. sondern "Auswahlzeile1" etc.
- Außerdem sind es keine Active-X-Elemente, sondern Formblattsteuerelemente
- In Zelle $C$5 wird nichs eingegeben, sondern da steht eine Formel, diese triggert bei Änderungen nichts
- Nach Änderungen im Blatt wird nur die Zelle $C$5 ausgewertet, diese wirkt dann auf alle Comboboxen gleich, das ist sicher nicht das Ziel
Ich habe Dir in Deine Mappe (Achtung, nur abgespecktes Muster, weil zu groß für Upload) im Modul2 und in DieseArbeitsmappe mal was eingebaut, bitte schau mal, ob das jetzt besser passt.
Die CB werden jedoch erst ausgeblendet, wenn in der betreffenden Zeile irgendwo eine Änderung/Eingabe erfolgt
Soll sofort nach Auswahl aus einer CB die Ausblendung passieren, müsstest Du für jede CB eine Sub haben...
PS: In Tabelle KW01 ist auch noch ein Schreibfehler: Worksheet_Cahnage
BTW: Ich glaube auch, dass die Langsamkeit eher an den vielen Formeln als an den Makros liegt.
https://www.herber.de/bbs/user/133641.xlsm
viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

Makro der alrltiven Tabelle übergeben

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro der alrltiven Tabelle übergeben

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread