Kleinen Code vereinfach
Frank
da ich mit VBA noch recht am Anfang bin, habe ich folgenden Code mit Hilfe des Recorders erstellt.
Kann mir jemand sagen, was man hier vereinfachen bzw. zusammenfassen könnte, um den Code zu verkürzen ? Das wäre eine riesen Hilfe für mich beim Lernen der Funktionen:
Columns("B:B").Replace What:=".txt", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A2:A9999").Replace What:="*Search*", Replacement:="zzz_Headers", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("C2") = "=IF(RC[-2]="""",0,IF(RC[-2]=""zzz_Headers"",0,COUNTIF(C[-2],RC[-2])))"
Range("C2").AutoFill Destination:=Range("C2:C9999")
With ActiveWorkbook.Worksheets(1)
.Rows("2:9999").Sort _
Key1:=.Range("C2"), Key2:=.Range("A2"), Key3:=.Range("B2"), _
Order1:=xlDescending, Order2:=xlAscending, Order3:=xlAscending, _
DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal, Header:=xlNo
End With
Columns("C:C").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Columns("C:C").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A$1:$C$10000").RemoveDuplicates Columns:=1, Header:= _
xlYes
Range("A1").Select
VG und vielen Dank im Voraus für jede Hilfe,
Frank