Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zelleninhalt in ComboBox

Zelleninhalt in ComboBox
25.02.2006 11:50:20
Inka
Hallo @all,
wie bekomme ich es hin, das mir der Zelleninhalt der Spalte B, mit dem dazugehörigen Zelleninhalt der Spalte I in einer ComboBox angezeigt wird
die sich in einer UF befindet.Ich bekomme das einfach net gebacken.
Die Spalte I ist für Stunden formatiert.
Mit bestem Dank im voraus.
Gruß
Inka
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt in ComboBox
25.02.2006 11:53:07
Nepumuk
Hallo Inka,
Spalte B ab welcher Zeile?
Gruß
Nepumuk

AW: Zelleninhalt in ComboBox
25.02.2006 11:57:47
Inka
Hallo,
ab der Zeile 4
Gruß
Inka
AW: Zelleninhalt in ComboBox
25.02.2006 12:13:11
Nepumuk
Hallo Inka,
ein Beispiel:
Private Sub UserForm_Activate()
    Dim strArray() As String
    Dim lngRow As Long, lngLastRow As Long
    With Tabelle1
        lngLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row - 3
        Redim strArray(1 To lngLastRow, 1 To 2)
        For lngRow = 1 To lngLastRow
            strArray(lngRow, 1) = .Cells(lngRow + 3, 2).Text
            strArray(lngRow, 2) = .Cells(lngRow + 3, 12).Text
        Next
    End With
    With ListBox1
        .ColumnCount = 2
        .ColumnWidths = CStr(Tabelle1.Columns(2).ColumnWidth * 6) & ";" & _
            CStr(Tabelle1.Columns(12).ColumnWidth * 6) 'Multiplikator anpassen !!
        .List = strArray
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: Zelleninhalt in ComboBox
25.02.2006 12:22:17
Inka
Hallo,
erstmal Danke für die Hilfe.
Ich bekomme nur die Spalte B angezeigt, Spalte I nicht.
Gruß
Inka
AW: Zelleninhalt in ComboBox
25.02.2006 12:25:35
Nepumuk
Hallo Inka,
mein Fehler. In der Schriftart des Forums ist augenscheinlich ein großes i und ein kleines L nicht zu unterscheiden. Dann natürlich so:
Private Sub UserForm_Activate()
    Dim strArray() As String
    Dim lngRow As Long, lngLastRow As Long
    With Tabelle1
        lngLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row - 3
        Redim strArray(1 To lngLastRow, 1 To 2)
        For lngRow = 1 To lngLastRow
            strArray(lngRow, 1) = .Cells(lngRow + 3, 2).Text
            strArray(lngRow, 2) = .Cells(lngRow + 3, 9).Text
        Next
    End With
    With ListBox1
        .ColumnCount = 2
        .ColumnWidths = CStr(Tabelle1.Columns(2).ColumnWidth * 6) & ";" & _
            CStr(Tabelle1.Columns(9).ColumnWidth * 6) 'Multiplikator anpassen !!
        .List = strArray
    End With
End Sub

Gruß
Nepumuk

Anzeige
AW: Herzlichen Dank! Das ist es.
25.02.2006 13:23:41
Inka
.
AW: Frage ist natürlich beantwortet!
25.02.2006 13:25:16
Inka
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige