Hallo Leute,
habe eine Excel Datei, welche sehr viele Dropdown Buttons besitzt. In ihnen kann man "NEIN" oder "JA" auswählen. Wird "JA" angezeigt springen über ein Makro Zeilen und Tabellen auf. Nun zu meiner Frage:
Ist es möglich einen Button einzurichten, der alle Dropdown Buttons auf "NEIN" stellt?
Lieben Dank
Alex
Ja ist es:
Wenn du den Button erstellt hast, fügst du einfach diesen Code ein.
Code:
Sub Schaltfläche2_Klicken()
Dim wksSheet As Worksheet
Dim rngSrc As Range
On Error Resume Next
For Each wksSheet In ThisWorkbook.Worksheets
Set rngSrc = wksSheet.Cells.SpecialCells(xlCellTypeAllValidation)
If Not rngSrc Is Nothing Then rngSrc.Value = "NEIN"
Next wksSheet
On Error GoTo 0
End Sub
Das müsste das Problem lösen, habs gerade bei mir getestet.
Gruß Dubsepp
EDIT: Statt Schaltfläche2_Klicken() musst du natürlich den Namen deiner Schaltfläche einfügen.
Hi Dubsepp,
das Programm funktionier super nur bezieht sich dein Makro nicht nur auf die Dropdown-Zellen sondern auch auf alle andere Zellen. Habe es in meine Excel Datei eingefügt und sobald ich das Makro aktiviere, werden alle Zellen die einen WENN Befehl oder einen WVERWEIS haben, mit Nein oder NV besetzt.
Habe ich was falsch gemacht oder berücksichtigt Dein Makro diese Zellen nicht?
LG Alex
(30.11.2016, 14:56)APfeiffer schrieb: [ -> ]Hi Dubsepp,
das Programm funktionier super nur bezieht sich dein Makro nicht nur auf die Dropdown-Zellen sondern auch auf alle andere Zellen. Habe es in meine Excel Datei eingefügt und sobald ich das Makro aktiviere, werden alle Zellen die einen WENN Befehl oder einen WVERWEIS haben, mit Nein oder NV besetzt.
Habe ich was falsch gemacht oder berücksichtigt Dein Makro diese Zellen nicht?
LG Alex
Beziehen sich diese Zellen irgendwie auf die umgeschalteten Zellen?
Also ich habe gerade eine simple wenn Funktion mit eingefügt und es probiert, bei mir wird nur die Dropdown-Liste verändert, sogar wenn die WENN-Funktion sich auf die gewählte Dropdownliste bezieht.
Hast du das Makro auch in einem Modul eingefügt?
LG Dubsepp
EDIT: Hab mal meine Mappe angefügt damit dus dir selbst ankucken kannst
Hi,
leider funktioinert das so bei mir nicht, da andere Zellen, welche einen WVERWEIS haben, ebenfalls umgestellt werden und somit Information verloren geht. Ich habe das Problem soweit gelöst, dass ich ein Makro aufgezeichnet habe, was das tut was ich will....nämlich alle Dropdowns auf "No" stellen. Vielleicht kannst Du mir einen Tipp geben für eine MassageBox? Ich möchte, sobald ich auf das Makro anklicke, eine Abfrage, ob das Makro ausgeführt werden soll, oder nicht.
Bei "Okay", ja, bei "Abbrechen", nicht.
Hast Du da einen Vorschlag?
LG Alex
(01.12.2016, 09:33)APfeiffer schrieb: [ -> ]Hi,
leider funktioinert das so bei mir nicht, da andere Zellen, welche einen WVERWEIS haben, ebenfalls umgestellt werden und somit Information verloren geht. Ich habe das Problem soweit gelöst, dass ich ein Makro aufgezeichnet habe, was das tut was ich will....nämlich alle Dropdowns auf "No" stellen. Vielleicht kannst Du mir einen Tipp geben für eine MassageBox? Ich möchte, sobald ich auf das Makro anklicke, eine Abfrage, ob das Makro ausgeführt werden soll, oder nicht.
Bei "Okay", ja, bei "Abbrechen", nicht.
Hast Du da einen Vorschlag?
LG Alex
Ich nehme an du hast einen Button oder? Wenn ja, dann versuchs mal den hiermit zu verknüpfen, bzw diesen Code mit dem Button auszulösen.
Code:
Sub test()
If MsgBox("Makro starten?", vbYesNo) = vbYes Then
MsgBox "Ja"
'hier dein Makro einfügen
Else
MsgBox "Nein" 'Exit Sub
End If
End Sub