Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswahl aus Gültigkeitslisten mit vba

Auswahl aus Gültigkeitslisten mit vba
17.09.2007 10:42:00
Matthias
Hallo zusammen!
Ich habe eine Frage zu zur Auswahl von Listenelementen mittels vba.
Ich habe mit Daten - Gültigkeit eine Dropdownliste erstellt.
Jetzt würde ich gerne mit vba die Auswahl ändern. Wie lautet da der Befehl, hab im Forum leider nichts gefunden.
Danke Matthias

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswahl aus Gültigkeitslisten mit vba
17.09.2007 12:30:59
fcs
Hallo Mathias,
zeichne die Änderung der Einstellung der Datengültigkeit per Makro-Rekorder auf, dann hast die Syntax. ggf. muss du dann noch etwas basteln, damit es passt.
Gruß
Franz
BeispielCode: 

Sub Datengueltigkeit()
'Setzen Validation
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1;2;5;7;9"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
'Änderung Validation
ActiveCell.SpecialCells(xlCellTypeSameValidation).Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1;2;5;8;10"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub


Anzeige
AW: Auswahl aus Gültigkeitslisten mit vba
17.09.2007 12:44:00
Matthias
Danke für die Antwort, aber ich glaub ich habe mich vorhin etwas falsch ausgedrückt. Tut mir leid.
Den untigen Code kannte ich schon. Da verändert man ja die Elemente die man auswählen kann.
Ich würde aber gerne das aktive Element ändern (z.B aus dem aktiven F8, F9 machen). D.h. heißt ich will in einer Schleife alle auswählbaren Elemente aus dem Drop-down durchlaufen.
Weiß da jemand weiter?
Danke Matthias

AW: Auswahl aus Gültigkeitslisten mit vba
17.09.2007 12:57:00
Rudi
Hallo,
so?

Sub tt()
Dim arrVal, i As Integer
arrVal = Split(Selection.Validation.Formula1, ";")
For i = 0 To UBound(arrVal)
Debug.Print arrVal(i)
Next i
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Auswahl aus Gültigkeitslisten mit vba
17.09.2007 14:00:00
Matthias
Hi, danke erst mal, aber ich bin noch nicht damit klar gekommen...
hab jetzt nen teil bevor ich nen neuen befehl aufruf eingefügt
If auswahl = "Alle" Then
Dim arrVal, i As Integer
Worksheets("Cockpit").Range("F53").Select ' das ist die dropdownzelle im menü
arrVal = Split(Selection.Validation.Formula1, ";")
For i = 0 To UBound(arrVal)
Debug.Print arrVal(i)
'hier dann der befehl aus dem der das element aus Cockpit F53 benötigt?
Next i
Else
'....
End If
UBound(arrVal) hatte auch den wert 0?
danke und gruß
Matthias

AW: Auswahl aus Gültigkeitslisten mit vba
17.09.2007 14:23:00
Rudi
Hallo,
das ist nur ein Beispiel!.
Selection musst du an deinen Bereich anpassen.
Und der Rest: Was weiß ich! Bin ich Hellseher?
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Auswahl aus Gültigkeitslisten mit vba
17.09.2007 14:30:43
Matthias
nein natürlich nicht, aber dein code scheint auch nicht besonders konsitent zu sein
müßte z.B arrVal nicht als Vektor deklariert werden?
Debug.Print schreibt in die gerade aktive Zelle? zerstör ich da nicht die zuvor definierte Gültigkeit?
Gruß Matthias

AW: Auswahl aus Gültigkeitslisten mit vba
17.09.2007 15:20:00
Rudi
Hallo,

aber dein code scheint auch nicht besonders konsitent


willst du mich belehren?
Der Code ist ein Beispiel und ich erwarte, dass du versuchst, es zu verstehen. Benutze ggfs. die VBA-Hilfe.


müßte z.B arrVal nicht als Vektor deklariert werden?


einen Datentyp 'Vektor' gibt es nicht. Ist Variant, da nicht feststeht, welcher Art deine Daten sind.


Debug.Print schreibt in die gerade aktive Zelle?


nein, ins Direktfenster.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: Auswahl aus Gültigkeitslisten mit vba
17.09.2007 15:56:09
Matthias
mit Vektor meinte ich ein Objekt das mehrere Elemente des gleichen Typs enthält
diese werden in vba mit einer klammer hinter dem objektnamen definiert
ich wollte dich nicht belehren, sondern kam mit deinen Code nicht zurecht
ich habe aber jetzt festgestellt, dass ich mein problem viel einfacher lösen kann
ich gebe dem gewünschten Feld einfach einen neuen Wert, solang dieser Wert vorher auch in der Drop-Down-Liste war, ist dies auch kein Problem, und die Liste existiert weiterhin...
Matthias

AW: Auswahl aus Gültigkeitslisten mit vba
17.09.2007 16:00:34
Rudi
Hallo,

diese werden in vba mit einer klammer hinter dem objektnamen definiert


dann mach das doch mal.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige

307 Forumthreads zu ähnlichen Themen

Filtern kopieren Auswahlkriterium aus Liste
Silvi

Guten Morgen!
Hab da wiedermal ein Problem und will mal versuchen es kurz und knapp zu beschreiben. In einer Datei filtere ich zunächst per VBA die Kostenstellen heraus und stelle sie in ein anderes Tabellenblatt (Kostenstellen), in diesem Blatt werden erstmal alle doppelten Kostenstellen g...
04.02.2009 08:16:00
Thread-ID: 1046863
20 Beiträge
Anzeige
Namen aus Liste auswählen
Volker

Hallo liebe Excelgemeinde.
Wie nennt man es eigendlich, wenn man z. B. im Bereich a5 bis a25 Namen stehen hat und wenn man im Bereich d30 bis d 55 dann bein Eintagen diese o.g. Namen sozusagen "vorgeschlagen" werden. Wenn man z.b. eine " E" eingibt, sollen alle Namen mit "E" als Anfangsbuch...
02.12.2009 18:55:16
Thread-ID: 1121470
3 Beiträge
Multiselect bei Auswahl aus einer Liste Gültigkeit
Thomas

Hallo!
Folgendes Problem.
Ich habe eine Tabelle in der User Werte in bestimmte Zellen auf Basis einer Vorschlagsliste eingeben sollen.
Diese Werte kommen aus einem vordefinierten Listbereich (z.B. 10 verschiedene Attribute).
Ich habe die Tabelle über die Funktion "Gültigkeit" er...
18.12.2009 18:28:17
Thread-ID: 1124952
4 Beiträge
Anzeige
Liste aus Liste generieren Auswahlmöglichkeit
chris

Hallo zusammen
ich habe folgendes Problem: ich sollte aus einer bestehenden Liste eine neue Liste generieren.
Dabei habe ich Kontrollköstchen, welche ich anklicken kann. Somit kann ich die neu zu überführenden Werte auswählen. Aufgrund dessen kann ich dann auch eine Wahr/ Falsch Aussa...
17.11.2010 17:52:59
Thread-ID: 1187336
2 Beiträge
Auswahl aus Liste mit Kennwort
lutz

Hallo Excel-Profis,
ich habe mal eine Frage bzgl. Kennwortschutz:
Verschiedene Mitarbeiter sollen Eingaben in ein Tabellenblatt machen. Am Anfang wird per Makro aus einer Liste der Mitarbeiter abgefragt.
Kann ich irgendwie sicherstellen, dass jeder Mitarbeiter sich selber nur über K...
26.11.2010 10:17:28
Thread-ID: 1188878
7 Beiträge
Name aus einer Liste auswählen
Willi

Hallo Leute,
ich habe ein Problem wie folgt:
aus einer Spalte in der stehen die Lieferanten untereinander. Es gibt
sehr viele doppelte Eintragungen. Mein wunsch ist folgender:
in einem anderen Blatt möchte ich die Umsätze der Lieferanten zusammenfassen.
Dazu will ich in eine...
09.02.2011 12:56:50
Thread-ID: 1199853
5 Beiträge
Zellen zufällig sortieren und kopieren
Tom

Hallo an Alle, die das lesen :-)
Ich habe folgenden vba-Code gefunden:
Sub til() Sheets("Tabelle1").Select Range("a1").Clear Dim ar_rng(), i ar_rng = Range("A1:A33") For i = 1 To 33 ar_rng(i, 1) = Cells(Int(Rnd() * 33 + 1), "E").Value Next [A1:A33] = ar_rng() End Sub Es werden also die...
16.03.2013 16:03:02
Thread-ID: 1304348
3 Beiträge
Zufällige Auswahl aus vorgegeben Werten
Tess

Hallo Ihr Lieben!
Da es hier immer so tolle Lösungen gibt, komme ich heute mal mit einem (aus meiner Sicht) kniffligen Problem auf euch zu.
Ich möchte aus einer Spalte die insgesamt 72 Werte enthält drei verschiedene Mittelwerte berechnen, indem jeweils 24 Werte aus diesen Werten zufäll...
18.07.2013 16:41:18
Thread-ID: 1323134
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
19
8
2
3
3
1
6
4
2
14
3
5
4
5
6
1
8
7
2
4
4
1
25
7
6