Dim i As Integer
With ActiveWorkbook.Sheets(1) ' oder ActiveSheet
For i = 2 To 100
If .Cells(i, 8) = Me.cbTarif2.value Then
Me.tbLeistungen2.value = .Cells(i, 9)
End If
Next
End With
Bei diesem Source-Code wird immer exakt genau auf die Worksheet verwiesen, in der die Änderung durchgeführt werden sollen.
Im o.g. Beispiel wird die erste Tabelle geändert. Es kann auch statt dessen "ActiveSheet" verwendet werden, falls immer die aktuelle Tabelle geändert werden soll.
VG, BigBen