Resize mit Rows.Count
24.11.2022 12:33:54
Much
Hoffe Ihr könnt mir Input gegeben. Trete gerade etwas auf der Stelle damit.
Ich möchte in meinem Such Makro bei Resize die Rows nicht fix eingeben, sondern mit Rows.Count ermitteln.
Hab schon so manches probiert, aber in diesem Code kommt immer ein Murx raus.
Hier der Code zur besseren Orientierung, hoffe das es reicht.
lg Much
Dim rngFound As Range
Dim such As String
Dim tblVar As String
Dim ws As Worksheet
tblVar = UF_Eingabe.txt_Tab
Set ws = Worksheets(tblVar)
Worksheets(tblVar).Activate
With Worksheets(tblVar)
such = UF_Eingabe.txt_carta.Value
Set rngFound = .Rows(1).Find(such, LookIn:=xlValues, LookAt:=xlWhole)
rngFound.End(xlUp).Offset(1, 0).Resize(6, 1).Select
UF_Eingabe.cmb_Color.RowSource = Selection.Address
End With