es ist immer hilfreich, wenn man die angewendetet Quelltexte versteht, bevor man daran Änderungen vornimmt. Guckst du: StZei = Application.Match(.Text, Tabelle1.Rows(1), 0)
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
Folgende(r) 1 Nutzer sagt Danke an Klaus-Dieter für diesen Beitrag:1 Nutzer sagt Danke an Klaus-Dieter für diesen Beitrag 28 • Florian20
Private Sub UserForm_Initialize()
ComboBoxSpeichern.List = Split(Application.Trim(Join(Application.Transpose(Application.Transpose(Tabelle1.UsedRange.Rows(1))))))
End Sub
Private Sub ComboBoxSpeichern_Change()
ListBox1.List = Tabelle1.UsedRange.Offset(, ComboBoxSpeichern.ListIndex * 6).Resize(, 6).Value
End Sub
26.09.2018, 09:16 (Dieser Beitrag wurde zuletzt bearbeitet: 26.09.2018, 09:16 von Florian20.)
Hi,
Das klappt ja super, aber es liest trotzdem leere Zeilen und die 1te Zeile in die ListBox1 ein.
Hab es mal Umgebaut und jetzt liest es keine Leeren Zeilen Mehr ein. :19:
Aber immer noch die 1te Zeile.
Code:
Private Sub ComboBoxSpeichern_Change()
' Eintrag in ComboBox in Tabelle suchen / in ListBox setzen
Dim StZeile As Long
Dim ZiZeile As Long
Dim letzte As Long
Private Sub ComboBoxSpeichern_Change()
Dim StSp As Integer
Dim ZiZei As Integer
With ComboBoxSpeichern
StSp = Application.Match(.Text, Tabelle1.Rows(1), 0)
ZiZei = Cells(1, StSp).End(xlDown).Row
ListBox1.List = Range(Cells(1, StSp), Cells(ZiZei, StSp)).Value
End With
End Sub
Viele Grüße
Klaus-Dieter Der Erfolg hat viele Väter, der Misserfolg ist ein Waisenkind Richard Cobden
Private Sub ComboBoxSpeichern_Change()
ListBox1.List = Tabelle1.UsedRange.Offset(1, ComboBoxSpeichern.ListIndex * 6).Resize(Tabelle1.UsedRange.Rows.Count - 1, 6).Value
End Sub