Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Combobox auswahl verändern





Frage

Hallo und einen schönen Sonntag morgen liebe Suportnetfreunde ... Da ich zur Zeit an einem Problem hänge ist dieser für mich nicht ganz so schön. Ich benutze Kombinationsfelder einer Userform die sich in Abhaengigkeit fülllen. Die meisten Worte in der Combobox sind so lang das ich diese abkürzen möchte. (mit den abkürzungen wird weitergearbeitet)Da aber auch Laien das Programm verwenden sollen ist es nicht sinnvoll die Abkürzungen direkt in der Combobox zu verwenden. Ich hatte dann die Idee das ich über VBA mir die ausgewählte Zeile auslesen lasse und er mir in der selben Zeile nur eine Spalte weiter die Abkürzung wiedergibt und in die combobox schreibt.... Soweit die Idee.... leider bin ich VBA Neuling und komme hier mit meinem begrenzten Kenntnissen nicht weiter.... Hier mal etwas von der VBA: Private Sub ComboBox1_Change() ´*************************************************************************** ´Bei Änderung der ComboBox1 ´*************************************************************************** Dim Wiederholungen As Integer Dim i As Integer Dim AnzZeilen As Integer ´Alle Einträge in der Combobox löschen ComboBox2.Clear ´Sichtbaren Eintrag in der Combobox löschen ComboBox2.Text = "" ´Letzte beschriebene Zeile in Blatt Daten ermitteln Letzte_Zeile = Sheets("Daten").Range("A65536").End(xlUp).Row ´Ausgewählter Eintrag aus der Combobox in Variabele "Auswahl1" ´schreiben Auswahl1 = ComboBox1.Value ´For/Next Schleife um Combobox mit den Einrägen aus Blatt "Daten" ´Spalte C ohne Duplicatt zu füllen. For Wiederholungen = 3 To Letzte_Zeile ´Wenn der ausgewählte Begriff = dem Eintrag in Spalte A in der Zeile, ´die durch die For/Next Schleife angesprochene Zeile dann... If Sheets("Daten").Cells(Wiederholungen, 1) = Auswahl1 Then ´...Eintag aus Blatt "Daten" Spalte C der durch die For/Next Schleife ´angesprochenen Zeile in Spalte IV kopieren Sheets("Daten").Cells(Wiederholungen, 2).Copy Cells(Wiederholungen, 256) ´Duplicate löschen If WorksheetFunction.CountIf(Range("IV2:IV" & Wiederholungen), _ Cells(Wiederholungen, 256)) = 1 Then _ ´Werte in ComboBox eintragen With ComboBox2 AnzZeilen = Sheets("Daten").UsedRange.Rows.Count For i = 1 To AnzZeilen UserForm1.ComboBox1.TextColumn = -1 If Len(UserForm1.ComboBox1.Value) > 2 Then UserForm1.ComboBox1.TextColumn = 0 d = UserForm1.ComboBox1.Text Range("B5") = Sheets("Daten").Cells(d, 2) If d > 1 Then GoTo Ende End If Next i .AddItem Sheets("Daten").Cells(Wiederholungen, 2) End With End If End If ´Nächster Schleifendurchlauf Next Wiederholungen ´Daten in Spalte IV löschen Range("IV2:IV" & Letzte_Zeile).ClearContents ´Ausgewählter Begriff in Zelle B5 eintragen Range("B5") = ComboBox1.Text Ende: End Sub Also das Problem geht bei der Zeile: AnzZeilen = Sheets....... los Ich hoffe das mir jemand helfen kann. Vielen dank schonmal. MfG Fischi

Antwort von