Könnte mir jemand diesen Code abändern? Jede 2. Ze
18.10.2005 14:37:52
Speedy18A4
Könnte mir bitte jemand folgenden Quellcode ändern?
Und zwar soll nur in jeder 2. Zeile gesucht werden. Oder in jeder geraden oder in jeder ungeraden in den angegebenen Bereich. Ist das irgendwie möglich?
Wenn das nicht geht könnte ich auch alternativ mit einer Funktion leben die in den angegebenen Bereich nur nach Namenskürzeln (Zeichenfolge)sucht. Wie z.b. "UK" oder so.
Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And (Target.Row >= 1084 And Target.Row <= 1300) Then
Range("$A$1084").Select
Selection.Copy
Cells(Target.Row, Target.Column + 50).Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
'Cells(Target.Row + 0, Target.Column).Select
'Application.Goto Reference:="mas".
Range("Mas_Okt").Select
Selection.Copy
Cells(Target.Row, Target.Column + 51).Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cells(Target.Row - 1 + 2, Target.Column).Select
End If
End Sub