Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1144to1148
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code vereinfachen

Code vereinfachen
Einzel
Hallo und guten abend,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
warum selektierst Du denn ? kwT
16.03.2010 23:02:36
Matthias
AW: Code vereinfachen
16.03.2010 23:04:37
Rudi
Hallo,
etwa so:
Sub wert()
Dim q As String
With Sheets(2)
If Not IsEmpty(.Range("K1")) And IsNumeric(.Range("K1")) Then
.Range("L1") = "A" & .Range("K1")
q = .Range("L1")
.Range("R5") = .Range(q).Offset(, 1)
.Range("R11") = .Range(q).Offset(, 2)
.Range("R17") = .Range(q).Offset(, 3)
.Range("R23") = .Range(q).Offset(, 4)
.Range("R29") = .Range(q).Offset(, 5)
.Range("R35") = .Range(q).Offset(, 6)
End If
End With
End Sub

Da gibts aber noch Potenzial
Gruß
Rudi
AW: Code vereinfachen
17.03.2010 07:30:44
Einzel
Guten morgen,
Ja genau so meinte ich es. Danke
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige