Datum

Titel

24.04.2024 20:38:58

Summe mit Bedingung, nur letzte Ergebnisse anzeigen

24.04.2024 19:29:30

Formel filter

24.04.2024 18:49:56

merge & select

24.04.2024 17:19:09

Formel mit Index-Funktion

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

256to260

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

DropDown Liste auf Pos. 1

Forumthread: DropDown Liste auf Pos. 1
7 Beiträge zu diesem Forumthread
Anzeige
307 Threads zu ähnlichen Themen
Top 100 Forumthreads

18.05.2003 20:08:55

Silvia

Hallo Forum,
ich suche nach einer Möglichkeit, die Listen
immer an der 1. Pos. beginnen zu lassen.
Gefunden habe ich folgenden Betrag:

Das Ganze funzt so aber nicht. Stattdessen bekomme
ich eine Fehlermeldung "91 With Block oder Variable nicht definiert".
Könnt Ihr mir weiter helfen?
Silvia

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: DropDown Liste auf Pos. 1

18.05.2003 21:36:50

L.Vira
Hmm....

18.05.2003 22:26:55

Silvia
Re: Hmm....

18.05.2003 22:34:09

L.Vira
Uups....

18.05.2003 22:46:18

Silvia
Re: Uups....

19.05.2003 00:35:49

L.Vira
Funzt noch nicht

19.05.2003 19:06:23

Silvia
Re: Funzt noch nicht

19.05.2003 22:22:50

L.Vira

Re: DropDown Liste auf Pos. 1

18.05.2003 21:36:50

L.Vira

Sub AufPos1()
Dim DD As control
For Each DD In me.controls
If typename(DD) = "ComboBox" then
DD.ListIndex = 0
end if
Next
End Sub

Hmm....

18.05.2003 22:26:55

Silvia

Danke für Deinen Beitrag.

Leider bekomme ich eine Fehlermeldung wie folgt:
Fehler beim Kompilieren.
Methode oder Datenobjekt nicht gefunden.

Markiert ist der Bereich ".controls"

Muß ich vielleicht noch etwas in Excel installieren oder aktivieren?
Silvia

Re: Hmm....

18.05.2003 22:34:09

L.Vira

Verstehe ich nicht. Es sind aber Comboboxen in userform?
Ist der Verweis auf MicrosoftForms 2.0 Object Library gesetzt?
Das Makro steht doch hoffentlich im Modul des userform?

Uups....

18.05.2003 22:46:18

Silvia

Es handelt sich hierbei um
eine List-Funktion Daten/Gültigkeit/Liste.
Obj.Lib 2.0 ist aktiv.
Jetzt bin ich wohl aufgeschmissen, oder?
Silvia

Re: Uups....

19.05.2003 00:35:49

L.Vira

Das glaube ich nicht. Die Zelldropdown sind wohl nicht direkt
über VBA ansprechbar aber ich hab da ein workaround gestrickt:

Option Explicit
Sub Gültigkeit()
Dim VB As Range, C As Range, VF As String
On Error GoTo ENDE
Set VB = [a1].SpecialCells(xlCellTypeAllValidation)
For Each C In VB
If C.Validation.Type = 3 Then
VF = C.Validation.Formula1
If Left(VF, 1) = "=" Then
VF = Mid(VF, 2, Len(VF) - 1)
C = Range(VF).Cells(1).Value
Else
VF = Left(VF, InStr(VF, ";") - 1)
C = VF
End If
End If
Next
Set C = Nothing
Exit Sub
ENDE:
MsgBox "Keine Zellen mit Gültigkeitsprüfung gefunden ", 64, "gebe bekannt..."
End Sub

Funzt noch nicht

19.05.2003 19:06:23

Silvia

Hallo,
komme erst jetzt zum probieren!
Ich habe den Code 1:1 übernommen und gestartet,
mit dem Ergebnis, dass der Reihe nach immer der
an 1. Pos. stehende Eintrag, aus der Liste, in die Zelle geschrieben wird.
An den Code traue ich mich selber nicht heran,
weil ich den Inhalt nicht interpretiren kann.
Ich bitte um weitere Unterstützung
Silvia

Re: Funzt noch nicht

19.05.2003 22:22:50

L.Vira

das war es doch, was du wolltest, den ersten Eintrag, oder?