Liste und Eingabefeld :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Liste und Eingabefeld

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

haifischjunge
Newbie
Newbie

Anmeldedatum: 08.08.2007
Beiträge: 41
Wohnort: München

Verfasst am: 27.08.2007, 13:28

Hallo Leutz,

Ich will folgendes erstellen:

Wenn ich in der Zelle D4 "ja" auswähle, soll in der Zelle D7 eine Auswahl durch eine Liste möglich sein. Wenn ich "Nein" auswähle soll es nur eine ganz normale zelle sein, in die man dann was eintragen kann. Es soll also bei "Nein" keine Auswahl möglich sein.

Vielen Dank und Gruss
hai

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 27.08.2007, 13:48

Hallo!

Rechtsklick auf den Tabellenreiter und diesen Code ins Codefenster rechts einfügen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$4" Then Exit Sub
If Target = "ja" Then
With Range("D7").Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlEqual, _
Formula1:="=$H$1:$H$10"
End With
Else
Range("D7").Validation.Delete
End If
End Sub

In diesem Beispiel ist die Liste in den Zellen H1:H10 hinterlegt.
Das musst du anpassen, oder du gibst die Liste direkt ein:

Formula1:="groß,klein,lang,kurz"

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

haifischjunge
Newbie
Newbie

Anmeldedatum: 08.08.2007
Beiträge: 41
Wohnort: München

Verfasst am: 27.08.2007, 14:55

danke für die Lösung aber irgendwie krieg ich es nicht hin.
hab dein code so umgeschrieben aber hat gar kein effekt. es passiert nichts

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$5" Then Exit Sub
If Target = "ja" Then
With Range("D9").Validation
.Delete
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlEqual, _
Formula1:="=$P$2:$P$245"
End With
Else
Range("D9").Validation.Delete
End If
End Sub

vielen dank und gruss
hai

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 27.08.2007, 15:04

Tja, bei mir funktioniert's...

Hast du einen Blattschutz aktiviert oder laufen noch andere Makros, die dieses Makro behindern könnten?

Teste es mal an einer neuen Datei.

haifischjunge
Newbie
Newbie

Anmeldedatum: 08.08.2007
Beiträge: 41
Wohnort: München

Verfasst am: 27.08.2007, 15:21

weiss nicht was ich falsch mach...

anbei die datei bei der ich dein code ausprobiert habe

Mappe1.xls

Beschreibung:

Download

Dateiname:

Mappe1.xls

Dateigröße:

21.5 KB

Heruntergeladen:

27 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 27.08.2007, 15:28

Groß- und Kleinschreibung!!!!

Du gibst "Ja" ein, aber fragst nach "ja".
Da ist Excel sehr pedantisch...

haifischjunge
Newbie
Newbie

Anmeldedatum: 08.08.2007
Beiträge: 41
Wohnort: München

Verfasst am: 27.08.2007, 15:57

ja sorry, jetzt funzt es.

was müsste ich denn davor schreiben, wenn die daten auf dem Tabellenblatt Datenpflege sind:

Formula1:="=$A$2:$A$245"

habs mit Formula1:="=Datenpflege!$A$2:$A$245" geht leider nicht

vielen dank und gruss
hai

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 27.08.2007, 16:06

Hallo!

Dazu müssest du einen Namen vergeben, da die Gültigkeitsprüfung nur auf Umwegen Bezüge von anderen Tabellenblättern zulässt:

Menü Einfügen > Namen > Definieren
Name: MeineListe
Bezieht sich auf: =Datenpflege!$A$2:$A$245

Im Code wird dies dann zu

Formula1:="=MeineListe"

Statt "MeineListe" kannst du natürlich auch einen aussagekräftigeren Namen verwenden; aber vermeide (wie üblich) die Verwendung von Sonderzeichen.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Dateien aus Liste erstellen und nach ...	snowy18	Microsoft Excel Hilfe	10	22.09.2008, 11:41
	>>Textfeld mit Daten füllen übe...	E-MaX-I	Microsoft Excel Hilfe	6	02.09.2008, 19:39
	Aus Zellen in Liste	eccgiraffe	Microsoft Excel Hilfe	4	29.08.2008, 09:12
	Verteiler Liste	gravA	Microsoft Outlook Hilfe	0	22.07.2008, 15:03
	Auftragsnummer aus Liste und Auftrags...	CarstenDD	Microsoft Excel Hilfe	4	18.07.2008, 07:52

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de