Office: Ratlosigkeit .....

Versuch seit Tagen raus zufinden wie ich ein Drehfeld in Excel erstellen kann mit Texten. Mit Zahlen klappt gut nützt aber nix.

Meine Frage wie kann ich ein Drehfeld in Excel erstellen:

das erste Feld soll leer bleiben
das zweite Feld soll Frei rein
und das dritte Feld soll FTF rein

und das in ein Drehfeld.

und das mit einer bestimmten Zelle verknüpft.

Wie muss ich die Zelle gestallten das dieses geht?

MfG Postmaster1968 :cry:

 

das geht nur über VBA, also ActiveXSteuerelemente.

 

Hallo,

nachfolgendes Beispiel nimmt an,
1) dass es sich um ein Formular-Drehfeld handelt mit folgenden Einstellungen:
- Zellverknüpfung: $A$2
- Minimalwert: 1
- Maximalwert: 3
- Schrittweite: 1
2) Im Zellbereich A3:A5 befinden sich Deine 3 Texte
3) In Zelle C6 wird Dein gewünschter Textwert (aus dem Bereich A3:A5)entsprechend der Einstellungen des Drehfeldes angezeigt.

oder aber Du kannst auch anstelle von Punkt 2)+3) die Formel in Zelle C7 verwenden, die die 3 Texte direkt in die Formel verpackt.

	A	B	C	D
1
2	3
3	---
4	Frei
5	FTF
6			FTF
7			FTF
8

Zelle	Formel
C6	=INDEX(A3:A5;A2)
C7	=WAHL(A2;"---";"Frei";"FTF")

 

Jou geht super....

Wie kann ich das aber machen so das das Feld leer, also keine
Striche oder die Zahl 0 drin sein soll?

Kann man das eigentlich auch so gestalten wie ich es jetzt beschreibe oder ist das nicht möglich?

Folgendes:

Feld wo es erscheinen soll eins von den drei Sachen , wenn man dieses Feld anklickt das wie so ein Kommentar Fenster auf geht und da dann man aus den drei Sachen auswählen kann und dann sich das fenster wieder schließt und in der Zelle dann das vorhanden ist was man ausgewählt hat. Geht so was?

MfG Postmaster1968 :-D :mrgreen: :-D

 

Hallo,

wenn das Ganze in jeder beliebigen Zelle möglich sein soll, so ist dies nur mit einem VBA-Makro möglich.

Da Du außerdem nicht angegeben hast, ob Du es nur für ein bestimmtes Arbeitsblatt benötigst oder für die ganze Arbeitsmappe, habe ich das Makro für die Arbeitsmappe erstellt.

Code:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  With ActiveCell.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="',Frei,FTF"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = "Validierungsfehler"
    .InputMessage = ""
    .ErrorMessage = "Es ist nur eine Auswahl aus 3 Werten möglich"
    .ShowInput = True
    .ShowError = True
    
  End With
End Sub

Installation des Makros:
1) Obigen weißen Bereich mit der Maus markieren und in die Zwischenablage kopieren (Tastenkombination Strg+C)
2) Zurück in das Arbeitsblatt wechseln, von dort in den VBA-Editor umschalten (Tastenkombination Alt+F11)
3) Im Projektfenster (Tastenkombination Strg+R) des VBA-Editors auf den Listeneintrag 'DieseArbeitsmappe' einen Doppelklick ausführen, sodass sich das Codemodul-Fenster der Arbeitsmappe öffnet.
4) In dieses Codemodul das Makro einfügen (Tastenkombination Strg+V)
5) Wieder zurück ins Arbeitsblatt wechseln - damit ist das Makro installiert.

Anwendung des Makros:
1) Sobald Du in irgendeiner Zelle irgendeines Arbeitsblattes einen Doppelklick ausführst, erscheint rechts neben der Zelle ein Combobox-Pfeil.
2) Wenn Du auf diesen Pfeil klickst, öffnet sich die Comboboxliste mit den 3 gewünschten Listeneinträgen, aus denen Du einen auswählen kannst.

 

Ooooh hört sich das schwierig an.

Da lass ich lieber die Finger davon. Vielleicht irgendwann später.

Viele Dank....

MfG Postmaster1968 :mrgreen:

 

Hallo,

wenn Du Dich präzise an die Schritte für die Installation hältst, muss es klappen - im Prinzip besteht das Ganze ja nur im Kopieren des Makrotextes von hier und dem Einfügen an einem bestimmten Ort der Excel-Arbeitsmappe.

 

Ja, habe das schon versucht, beim ersten mal tat sich nichts. Beim zweiten mal ging die Exceldatei nicht mehr auf.

Mit den Markos komme ich noch nicht so klar..... :cry:

Drotzdem danke nochmal.

Bleibe bei der ersten Variante mit Drehfeld. :-)

MfG Postmaster1968 :mrgreen: