DropDown

Bild

Betrifft: DropDown von: Andreas
Geschrieben am: 22.02.2005 20:06:24

Hallo

Habe eine Tabelle wobei ich mit einem Button die Tabelleninhalte löschen kann:


Sub Löschen()
activesheet.unprotect password:="xxx"
Range("D13:HG71").ClearContents
activesheet.protect password:="xxx"    
End Sub


Mein Problem ich habe in dieser Tabelle auch DropDownfelder, wo auch der Inhalt gelöscht werden soll!
Wie würde der Code dann ausehen?

Gruß Andreas


Bild


Betrifft: AW: DropDown von: Bert
Geschrieben am: 22.02.2005 20:20:28

Wie wird dein Dropdown gefüllt?

Bert


Bild


Betrifft: AW: DropDown von: Andreas
Geschrieben am: 22.02.2005 20:36:33

Es ist ein Kombinationsfeld nehme die Werte aus einer anderen Tabelle


Bild


Betrifft: AW: DropDown von: Bert
Geschrieben am: 22.02.2005 20:47:55

Wie, über Eingabebereich?

Bert


Bild


Betrifft: AW: DropDown von: Andreas
Geschrieben am: 22.02.2005 20:59:50

Ich muss doch die Werte für das DropDown Menü festlegen und da hab ich 15Werte und eine leere Zelle damit Das DropDown zu erst leer ist!

Vielleicht muss ich die dann auswählen oder ??

Gruß


Bild


Betrifft: AW: DropDown von: Noch offen
Geschrieben am: 22.02.2005 22:50:55




Bild


Betrifft: AW: DropDown von: Bert
Geschrieben am: 22.02.2005 23:00:28


Sub ComboBoxFormular()
Dim CB As Object
Set CB = ActiveSheet.Shapes("Drop Down 1")
CB.ControlFormat.ListIndex = 0
End Sub


Bert


Bild


Betrifft: AW: DropDown von: Andreas
Geschrieben am: 22.02.2005 23:04:29

Wie muss ich das hier einfügen??


Sub Löschen()
activesheet.unprotect password:="xxx"
Range("D13:HG71").ClearContents
activesheet.protect password:="xxx"    
End Sub


Andreas


Bild


Betrifft: AW: DropDown von: Bert
Geschrieben am: 22.02.2005 23:52:09


Sub Löschen()
Dim CB As Object
ActiveSheet.Unprotect Password:="xxx"
Range("D13:HG71").ClearContents
ActiveSheet.Protect Password:="xxx"
Set CB = ActiveSheet.Shapes("Drop Down 1")
CB.ControlFormat.ListIndex = 0
End Sub


Bert


Bild


Betrifft: AW: DropDown von: AndréL.
Geschrieben am: 22.02.2005 23:05:39

Hallo,
Range("C1:H71").Validation.Delete

das löscht Dir die Felder mit der Gültigkeit (DropDown).
Um den inhalt zu löschen, mußt Du evtl. Namen oder Verweise
auf andere Tabellenblätter auch löschen.

Gruß
AndréL.


Bild


Betrifft: AW: DropDown von: Andreas
Geschrieben am: 22.02.2005 23:07:56

Hallo

Also dann so:


Sub Löschen()
activesheet.unprotect password:="xxx"
Range("D13:HG71").ClearContents
Range("D13:HG71").Validation.Delete
activesheet.protect password:="xxx"    
End Sub


Danke Andreas


Bild


Betrifft: AW: DropDown von: Andreas
Geschrieben am: 22.02.2005 23:09:37

Hallo

Was heisst löschen!
Es soll einfach dann leer sein das DropDownFeld um wieder eine neue auswahl zu treffen!

Gruß


Bild


Betrifft: AW: DropDown von: Andreas
Geschrieben am: 23.02.2005 00:26:36

Hallo
habt ihr ne Antwort auf meine gestellte Frage??

Gruß


Bild


Betrifft: AW: DropDown von: Bert
Geschrieben am: 23.02.2005 00:43:52

Du solltest dir alle Antworten ansehen.

Bert


 Bild

Beiträge aus den Excel-Beispielen zum Thema "DropDown"