ich verwende diesen Code, um eine eingefügte Formel in einer Liste nach unten zu erweitern.
Sub Erweitern()
Range("C2").Select
ActiveCell.FormulaR1C1 = "=""*""&RC[-2]&""*"""
Range("C2").AutoFill Destination:=Range("C2:C" & Range("A5000").End(xlUp).Row), Type:=xlFillDefault
Sub End
So, nun das Problem.
Sobald nur ein Eintrag in der Liste ist, braucht ja nicht nach unten erweitert werden. Logisch!
Jedoch probier ich mich jetzt schon in Select Case bzw. If / Then / Else. Aber das erweitert ja ellenlang den Code und wird unübersichtlich.
Kann mir von euch jemand weiterhelfen?
Dankeschön,
Albert