VBA Problem
18.12.2006 15:43:16
Stefan
Hab in einer Tabelle folgendes Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Application.Goto Cells(1, WorksheetFunction.Match(Cells(1, 1), Range("b1:iv1"), 0) + 1), True
End If
End Sub
Es bewirkt dass wenn in A1 ein gewisser Wert steht, dass der Cursor in die Spalte springt, in der der Wert von A1 steht.
Nun hab ich versucht eine Combox zu machen, welche nach der Auswahl den gewählten Wert in A1 reinschreibt. Das funktioniert auch soweit.
Nur habe ich das Problem, dass in A1 zwar der richtige Wert steht, jedoch der Cursor NICHT mehr in die Spalte hüpft.
Habe das mit "Eigenschaften" der Combobox gemacht. Also LinkedCell = A4 und ListFillRange = A100:A150
Hat jemand eine Idee wie ich das besser machen könnte ?
Für eine Antwort wäöre ich sehr dankbar
LG Stefan