Mit Dropdown menü andere Zellen ansprechen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Mit Dropdown menü andere Zellen ansprechen
von: Sonja
Geschrieben am: 29.05.2002 - 21:27:04

Hi

Ich möchte in einem Dropdown menu verschiedene Eingaben machen z.b. A,B;C,D,E usw. . Wenn man dort dann den gewünschten Eintrag raussucht sollte dieser in einen Bereich geschrieben werden z.B. D1 - D10 , je nachdem ob in D1 schon was steht dann in D2 eintragen usw.
Oder von einem Dropdown menu in das Feld ewas eintragen das gerade Markiert ist. ????
Vielen Dank für die Antworten und Küsschen.
Sonja


nach oben   nach unten

Re: Mit Dropdown menü andere Zellen ansprechen
von: Monika Weber
Geschrieben am: 30.05.2002 - 01:21:15

Hallo Sonja

Erstelle ein UserForm mit einem DropDown und einem Commandbutton.

Dann hinterlege folgenden Code:


Private Sub UserForm_Initialize()
With ComboBox1
   .AddItem "A"
   .AddItem "B"
   .AddItem "C"
End With
End Sub

Private Sub CommandButton1_Click()
  ActiveSheet.Cells(Rows.Count, 4).End(xlUp). _
     Offset(1, 0).Value = ComboBox1.Value
  If [D1] = "" Then [D1].Delete
End Sub

Ich hoffe, dass dir das weiterhilft.
Es liebs Grüessli aus der Schweiz
Monika

PS: Das Küsschen musst du wohl anderweitig verschenken ;-)

Re: Alternative
von: Monika Weber
Geschrieben am: 30.05.2002 - 01:28:45

Hallo Sonja

Erstelle ein Zellen-Drop-Down über "Daten | Gültigkeit" ---> "Liste"
Quelle: A;B;C ...

Füge aus der Symbolleiste "Steuerelement-Toolbox" eine Schaltfläche ein.
Klicke doppelt drauf und hinterlege folgenden Code:


Private Sub CommandButton1_Click()
  ActiveSheet.Cells(Rows.Count, 4).End(xlUp). _
     Offset(1, 0).Value = [A1].Value
  If [D1] = "" Then [D1].Delete
End Sub

Das Dropdown befindet sich in diesem Beispiel in der Zelle A1.

Es liebs Grüessli aus der Schweiz
Monika


Beiträge aus den Excel-Beispielen zum Thema "Mit Dropdown menü andere Zellen ansprechen"