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