Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

ComboBox auswahl
#1
Hallo liebe Community,

Ich habe eine Frage zu dem Letzten Beitrag https://www.clever-excel-forum.de/Thread...n-Speziell
Ich habe mir das ganze nochmal angeschaut und habe die Tabelle umgebaut.

Frage / Problem:

Wegen dem umgebaut geht jetzt natürlich die Routine nicht mehr.
Ich Lade meine Datei hoch dort ist alles erklärt.

Lg Flo


Angehängte Dateien
.xlsm   Mappe1.xlsm (Größe: 34,33 KB / Downloads: 12)
Live is a Game Play it
Antworten Top
#2
Hallo Florian,

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:
  • Florian20
Antworten Top
#3
Hallo Klaus Dieter,

Das hab ich nicht gesehen, das ich das auch so einfach machen kann.

Aber es geht nicht, es geht nur zum teil.

Es wird nicht alles eingelesen.

Weil ja bei der Ziel Zeile ein Ragne angegeben ist also ("A") .
Aber test2 ist ja nicht bei "A" sondern bei "G"

Test3 wäre dann Bei "M" und Test4 bei "S" und so weiter immer +6
Live is a Game Play it
Antworten Top
#4
Ich habe jetzt eine lösung gefunden.

Aber diese Liest auch leer Zeilen ein.

Code:
Private Sub ComboBoxSpeichern_Change()

   Dim StZeile As Long
   Dim ZiZeile As Long
   
   
' Hier werden die Daten aus der Tabelle gestzt
With ComboBoxSpeichern
   
   StZeile = Application.Match(.Text, Tabelle1.Rows(1), 0)    ' Eintrag der combobox in der tabelle suchen
   ZiZeile = StZeile + 5                                      ' Zeile gefunden Range festlegen

    ListBox1.List = Tabelle1.Range(Columns(StZeile), Columns(ZiZeile)).Value

End With
End Sub
Live is a Game Play it
Antworten Top
#5
Hallo,

(25.09.2018, 13:56)Florian20 schrieb: Aber diese Liest auch leer Zeilen ein.

welche leeren Zeilen? Und warum zweimal Columns?
Gruß Stefan
Win 10 / Office 2016
[-] Folgende(r) 1 Nutzer sagt Danke an Steffl für diesen Beitrag:
  • Florian20
Antworten Top
#6
Oder:


Code:
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
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
[-] Folgende(r) 1 Nutzer sagt Danke an snb für diesen Beitrag:
  • Florian20
Antworten Top
#7
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

' Eintrag der combobox in der tabelle suchen

    StZeile = Application.Match(ComboBoxSpeichern.Text, Tabelle1.Rows(1), 0)
       ZiZeile = StZeile + 5
   letzte = Tabelle1.Range(Columns(StZeile), Columns(ZiZeile)).End(xlDown).Row

' Einträge in ListBox Setzen

   ListBox1.List = Tabelle1.UsedRange.Offset(, ComboBoxSpeichern.ListIndex * 6).Resize(letzte, 6).Value

End Sub
Live is a Game Play it
Antworten Top
#8
Hallo Florian,

versuche es mal damit:


Code:
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
Antworten Top
#9
So klappt's:


Code:
Private Sub ComboBoxSpeichern_Change()
   ListBox1.List = Tabelle1.UsedRange.Offset(1, ComboBoxSpeichern.ListIndex * 6).Resize(Tabelle1.UsedRange.Rows.Count - 1, 6).Value
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste