Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte aus Dropdown automatisch herausziehen

Werte aus Dropdown automatisch herausziehen
05.03.2008 17:17:18
Holger Rogoll

Hallo, ich habe ohne VBA eine Excel - Tabelle erstellt.
Sie dient dem Abfragen von Prüfungswissen per sog. Multiple - Choice - Test. Ganz rechts in einer versteckten Spalte sind die Lösungen (weisse SChrift auf weissem Grudn) versteckt. Daneben gibt es eine Spalte mit lauter Dropdown - Feldern. Dahinter stecken (Daten -- Gültigkeit -- Liste) 4 Antworten. Davon ist immer genau eine richtig.
Dieses primitive Prüfungssystem soll jetzt in eine richtige Datenbank migriert werden. Dazu müssen aber alle Antworten (die falsche - richtige - falsche - falsche, etc.) DIREKT sichtbar und NICHT im Drop - Down - Menü versteckt in eine TXT - Datei.
Es handelt sich jetzt um 300 Fragen. Natürlich wäre es möglich, die Felder händisch "herauszukopieren", nur da muss ich ja 4 * 300 = 1200 * kopieren und werde deppert.
Frage: Wie kann ich das 4fache "aus einem Drop - Down - Herauskopieren" automatisieren?
mfg hr

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus Dropdown automatisch herausziehen
05.03.2008 21:22:30
Josef Ehrensberger
Hallo Holger,
das geht im Prinzip so.
Sub ReadValidationList()
Dim rng As Range, r As Range
Dim strFile As String, strTmp As String

strFile = "F:\Temp\antwort.txt" ' Textdatei in die die Antworten geschrieben werden - Anpassen!

On Error Resume Next
Set rng = Columns(4).SpecialCells(xlCellTypeAllValidation) 'Spalte mit gültigkeiten (hier 4=D) - Anpassen!
On Error GoTo 0

If Not rng Is Nothing Then
    
    Open strFile For Output As #1
    
    For Each r In rng
        strTmp = r.Validation.Formula1
        Print #1, strTmp
    Next
    
    Close #1
    
End If

End Sub


Gruß Sepp



Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige