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

listbox in userform

listbox in userform
03.07.2006 23:28:33
selo
hallo an alle spezialisten
ich habe da wieder einmal ein problem bei dem ich nicht weiter weiß.
ich habe eine tabelle in der in spalte a datumswerte stehen nun möchte ich in einer listbox einer userform genau die datumswerte und die werte aus spalte i anzeigen lassen bei denen in der zugehörigen spalte i die werte positiv sind.
ps:die tabelle ist immer variabel lang.
ich hoffe jemand kann mir helfen
https://www.herber.de/bbs/user/34828.xls
gruß
selo

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: listbox in userform
04.07.2006 02:15:59
fcs
Hallo Selo
füge folgenden Code für das Userform ein

Private Sub UserForm_Initialize()
Dim wks As Worksheet, Zelle As Range, i As Long, Werte()
Set wks = Sheets("Tabelle1")
With wks
ReDim Werte(Application.WorksheetFunction.CountIf(.Range(.Cells(2, "I"), _
.Cells(.Rows.Count, "I").End(xlUp)), ">=0") - 1, 1)
i = 0
For Each Zelle In .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
If Zelle.Offset(0, 8).Value >= 0 Then
Werte(i, 0) = Zelle.Value 'Spalte A
Werte(i, 1) = Zelle.Offset(0, 8).Value 'Spalte I
i = i + 1
End If
Next
End With
With Me.ListBox1
.List = Werte()
.ColumnCount = 2
ReDim Werte(0)
End With
End Sub

gruss Franz
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige