Code vereinfachen
Einzel
Habe diesen Code.
Sub wert()
Dim q As String
Sheets(2).Select
If Not IsEmpty([K1]) And IsNumeric([K1]) Then
[L1] = "A" & [K1]
q = [L1]
[R5] = Range(q).Offset(, 1)
[R11] = Range(q).Offset(, 2)
[R17] = Range(q).Offset(, 3)
[R23] = Range(q).Offset(, 4)
[R29] = Range(q).Offset(, 5)
[R35] = Range(q).Offset(, 6)
End If
Sheets(3).Select
End Sub
Er funktioniert, das Problem ist aber leider das er immer zwischen Sheet 2 und 3 wechselt beim ausführen.Wie kann ich den Code Anpassen, dass er in Sheet 2 ausgeführt wird ohne ich optisch in Sheet 2 gehe sonder in Sheet 3 bleibe?
Gruß
Stephan