AW: Kombinationsfeld
08.09.2006 14:18:23
Ptonka
Hallo,
richte die ein zweites Tabellenblatt ein und nenne es Hilfsblatt.
Dann schreibst Du auf Deinem Tabellenblatt (Tabelle1) in Spalte A Deine Kriterien, die in das Dropdown sollen.
Zusätzlich richtest Du Dir eine Schaltfläche ein, die das Dropdown ein und ausblendet.
Die Schaltfläche versiehst Du mit dem Makro "Makro1", das Dropdown mit dem Makro "dd_weg".
Falls Du wünscht, schicke ich Dir eine Beispieldatei.
Gruß,
Ptonka
Public Anzahl As Integer
Sub Makro1()
'Leerzeilen entfernen
Application.ScreenUpdating = False
Sheets("Tabelle1").Select
Columns("A:A").Select
Selection.Copy
Sheets("Hilfsblatt").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Anzahl = [A65536].End(xlUp).Row
Spalte = 1
Call DDfüllen
Sheets("Hilfsblatt").Select
For i = 1 To Anzahl
Select Case Spalte
Case Is = Cells(i, 1).Value
GoTo weiter
End Select
Next i
weiter:
For j = Anzahl To 1 Step -1
Zelle = Cells(j, 1)
Select Case Zelle
Case Is = ""
Rows(j).Select
Selection.Delete
End Select
Next j
Sheets("Tabelle1").Select
Range("A1").Select
Application.ScreenUpdating = True
ActiveSheet.Shapes("Drop Down 1").Visible = True
End Sub
Sub DDfüllen()
'Dropdown 1 mit dem entsprechenden Auswahlbereich versehen
Sheets("Tabelle1").Select
ActiveSheet.Shapes("Drop Down 1").Visible = True
ActiveSheet.Shapes("Drop Down 1").Select
ActiveSheet.Shapes("Drop Down 1").Visible = False
With Selection
.ListFillRange = "Hilfsblatt!$A$1:$A$" & Anzahl
.LinkedCell = "Hilfsblatt!$B$1"
.DropDownLines = 15
.Display3DShading = True
End With
Sheets("Hilfsblatt").Select
End Sub
Sub dd_weg()
ActiveSheet.Shapes("Drop Down 1").Visible = False
End Sub