PDA

Vollständige Version anzeigen : Dropdownliste


illarden2
06.08.2001, 12:40
hallo leute,

ich hab folgendes vor: in einer spalte meiner tabelle soll man immer aus einer von 5 möglichkeiten wählen können.

damit man nicht in jeder neuen zeile ein neues dropdownfeld braucht soll die ausgabeverknüpfung anhande der zuletzt markierten zelle neu zugeordnet werden.

hat jemand soetwas / o.ä. schon gemacht und oder erfahrung damit.

vielen dank im vorraus

Gruß René

illarden2
06.08.2001, 14:11
hi leutz,

hab mir doch noch selber eine lösung überlegt, falls jemand ein ähnliches prob hat oder verbesserunger für den VBA-Code hat stell ich den hier aus (bei funzt es)

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre><span class="TOKEN">Sub</span> rw_()
<span class="TOKEN">Dim</span> rw, y
rw = Selection.Rows.Row
y = rw
rw = &quot;$F$&quot; &amp; rw
ActiveSheet.Shapes(&quot;Drop Down 3&quot;).Select
<span class="TOKEN">With</span> Selection
.ListFillRange = &quot;$N$1:$N$5&quot;
.LinkedCell = rw
.DropDownLines = 6
.Display3DShading = <span class="TOKEN">False</span>
<span class="TOKEN">End</span> <span class="TOKEN">With</span>
ActiveSheet.Shapes(&quot;Drop Down 3&quot;).Select
<span class="TOKEN">With</span> Selection
.ListFillRange = &quot;$N$1:$N$5&quot;
.LinkedCell = &quot;$N$6&quot;
.DropDownLines = 6
.Display3DShading = <span class="TOKEN">False</span>
<span class="TOKEN">End</span> <span class="TOKEN">With</span>
&nbsp;
<span class="TOKEN">If</span> Worksheets(1).Cells(6, 14).Value = &quot;1&quot; <span class="TOKEN">Then</span>
Worksheets(1).Cells(y, 6).Value = &quot;erster Grund&quot;
<span class="TOKEN">ElseIf</span> Worksheets(1).Cells(6, 14).Value = &quot;2&quot; <span class="TOKEN">Then</span>
Worksheets(1).Cells(y, 6).Value = &quot;zweiter Grund&quot;
<span class="TOKEN">ElseIf</span> Worksheets(1).Cells(6, 14).Value = &quot;3&quot; <span class="TOKEN">Then</span>
Worksheets(1).Cells(y, 6).Value = &quot;dritter Grund&quot;
<span class="TOKEN">ElseIf</span> Worksheets(1).Cells(6, 14).Value = &quot;4&quot; <span class="TOKEN">Then</span>
Worksheets(1).Cells(y, 6).Value = &quot;vierter Grund&quot;
<span class="TOKEN">ElseIf</span> Worksheets(1).Cells(6, 14).Value = &quot;5&quot; <span class="TOKEN">Then</span>
Worksheets(1).Cells(y, 6).Value = &quot;f&uuml;nfter Grund&quot;
<span class="TOKEN">End</span> <span class="TOKEN">If</span>
rw = 0
y = 0
Cells(6, 14).Clear
&nbsp;
<span class="TOKEN">End</span> <span class="TOKEN">Sub</span></pre></div>
Code eingefügt mit dem MOF Code Converter (http://www.ms-office-forum.net/forum/codeconverter.php)

zur erklärung also hab ein Formulardropdownfeld ("Drop Down 3") mit wertebereich von N1 bis N5.

-klick irgendow in der betreffenden zeile
-wert aus liste wählen
-wert wird in Spalte F übernommen

Word bietet dafür ja ne viel leichtere lösung ;-)

<font size="1" face="Century Gothic">Moderatorenanmerkung: die Überarbeitung dieses Beitrages ist im Zuge der Arbeiten zu sehen, die durch den Wechsel der Forensoftware zum 01.01.2003 verursacht wurden.

Es wurde in diesem Beitrag der Code für dieses Forum angepasst.<font>