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

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
.

297 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige