Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
364to368
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
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

listenfeld über daten - gültigkeit mit vba

listenfeld über daten - gültigkeit mit vba
20.01.2004 13:37:33
dietmar
hallo community,
ich habe in zelle a1 ein listenfeld eingefügt, welches seine daten aus dem bereich a5:a10 bezieht (eingerichtet über daten - gültigkeit)
bis hierhin kein problem.
nun möchte ich ein 2. listenfeld in b1 einrichten, dessen bereich jedoch variieren soll, nämlich abhängig von dem, was in a1 ausgewählt wurde.
mal der b5:b10 oder mal c5:c10 oder mal...
wie setze ich das mit vba um?
danke, dietmar

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: listenfeld über daten - gültigkeit mit vba
21.01.2004 09:49:56
Dan
Hallo,
' dieser Code in Class Modul des Sheets, wo sich die ListBoxen befinden
' die ListBoxen sollten lstErste und lstZweite heissen und mussen es ActiveX Control sein, nich die Excel Controls, und beide mussen im selben Sheet eigefugt sein
' Wenn man den Wert in dem ersten ListBox andert, wird der ListFillRange des zweiten LB verandert...
' falls du noch Fragen haben solltest, schreib mir : DDMAIL@seznam.cz
' Grusse Dan.
Option Explicit

Private Sub lstErste_Change()
If (Me.lstErste.ListIndex > -1) Then
Dim rlstErsteListFillRange As Range
Set rlstErsteListFillRange = Range(Me.lstErste.ListFillRange)
Me.lstZweite.ListFillRange = rlstErsteListFillRange.Offset _
(0, lstErste.ListIndex + 1). _
Address(RowAbsolute:=False, ColumnAbsolute:=False)
End If
End Sub

Anzeige

157 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige