Code in ohne select umschreiben
Cindy
ich versuche krampfhaft u.st Code in einen Code ohne select umzuwandeln, aber alle Versuche gehen daneben.
Vielleicht kann mir jemand dabei helfen? Schon mal besten Dank.
Gruß
Cindy
Cells(34, ActiveCell.Column).End(xlUp)
Selection.Insert Shift:=xlDown
Selection.Interior.ColorIndex = xlNone
mein Versuch:
With ("Tab1")
With .Range("ActiveCell")
Cells(34, ActiveCell.Column).End(xlUp).Range(.Offset(1, 2), .Offset(2, 0)).Insert Shift:=xlDown
.Interior.ColorIndex = xlNone
End With
End With