eleganter lösen aber wie
07.05.2007 17:48:00
asterix80
ich hab folgendes problem. ich habe eine combobox die durch folgendes befehl gefüllt wird:
Dim i%
i = 1
Do Until Cells(i, 1).Value = "Ende_Zeile"
If Cells(i, 1) "" Then _
ComboBox2.AddItem Cells(i, 1) & vbTab & Cells(i, 1).Row
i = i + 1
Loop
da nicht alle zeilen befüllt sind will ich die differenz zwischen der combobox auswahl und dem nachfolgenden wert in der combobox ermitteln, dafür hab ich folgenden code zusammengebastelt:
Private Sub ComboBox2_Change()
Dim j%, k%
Dim m As String
j = Right(ComboBox2.Value, Len(ComboBox2.Value) - InStr(ComboBox2.Value, vbTab))
m = ComboBox2.List(ComboBox2.ListIndex + 1)
k = Right(m, Len(m) - InStr(m, vbTab))
MsgBox "von= " & j & " bis= " & k
End Sub
es funktioniert zwar einwandfrei, nur sieht es mir dannach aus als ob ich wiedermal zu kompliziert gedacht habe, vielleicht gibt es eine elegantere lösung?
wäre über jeden vorschlag dankbar
grüße
asterix