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"