habe in einer Tabelle per Markro drei Komboboxen positioniert.
Bislang lief alles reibungslos. Jetzt kommt immer, wenn ich die Tabelle aktiviere kommt immer Laufzeitfehler 13 - Typen unverträglich.
Folgendes Makro:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim varMerker1 As Variant, varMerker2 As Variant, varMerker3 As Variant
Dim lngIndex As Long
If Target.Row "größer" 3 And Target.Cells.Count = 1 Then
Select Case Target.Column
Case 1
varMerker1 = Target.Value
varMerker2 = Target.Offset(0, 1).Value
varMerker3 = Target.Offset(0, 3).Value
Me.ComboBox2.Visible = False
Me.ComboBox3.Visible = False
With Me.ComboBox1
.Top = Target.Offset(1, 0).Top
.Left = Target.Left
.LinkedCell = Target.Address
If varMerker1 "" Then
For lngIndex = 0 To .ListCount - 1
If .List(lngIndex, 0) = varMerker1 And _
.List(lngIndex, 1) = varMerker2 And _
.List(lngIndex, 3) = varMerker3 Then
.ListIndex = lngIndex
Exit For
End If
Next
Else
.ListIndex = -1
End If
.Visible = True
End With
Case 17 ...
Markierte Zeilen nach Debuggen habe ich fett markiert.
Gibts irgendwelche Tips für mich?
P.S.: Scheinbar kann hier kein "Größer"Zeichen egeschrieben werden. Habe deshalb im Code auch "größer" ausgeschrieben.