Hallo,
ich habe ein Problem und bräuchte eure hilfe.
zum fall: möchte eine andere Reihe automatisch markieren, wenn in einer anderen Reihe ein bestimmtes Merkmal z.B. "XF" vorkommt.
denke hier liegt der Fehler rng.Rows(z).Colums("V").Select
Code: |
Dim rng1 As Excel.Range
Dim z As Long
Set rng = ActiveSheet.Cells(7, 1).CurrentRegion
For z = rng.Rows.Count To 2 Step -1
Select Case rng.Rows(z).Columns("M").Value
Case "XFB9"
rng.Rows(z).Colums("V").Select
ActiveCell.FormulaR1C1 = "=RC[-10]*RC[-1]/RC[-12]"
Range("V70").Select
Selection.AutoFill Destination:=Range("V70:V71"), Type:=xlFillDefault
Range("V70:V71").Select
End Select
Next z
Set rng = Nothing |
|