Drehfel zur eine bestimmte zelle Springen

Nazif · 2024-01-07T11:44:49+00:00

hallo zusammen habe eine sehr lange datei, nun möchte ich per Drehfeld zur bestimmten Zellen Hin und zurück Springen. Beispiel: A1 = A100 = A200 = A300 = A400 bis A3100 kann mir bitte jemand zeigen wie das geht. Lieben Dank

Hallo

Sorry, das ich jetzt erst antworte, gestern Abend stundenlang Internet ausgefallen. Hier eine Lösung für dich.
Mit dem Befehl Resize(z, s) kannst du einen bestehenden Bereich um x Zeilen und Spalten beliebig erweitern.

Resize(2, 1) eine Zeile nach unten, Resize (1, 2) eine Spalte nach rechts, Resize(2, 2) ist dan klar, oder?
Mit Range Select und anschließendem eine Zelle Activate, aktivierst du die Zelle, die du bearbeiten willst.
Bei Resize KEINE 0 oder negativ Zahlen verwenden, nur positive Erweiterung! Sonst Laufzeitfehler

mfg Piet

Sub Drehfeld_Auswertung()

Dim Adr1 As String, Zahl As Long, Ofs As Long 'Ofs = Offset

    Ofs = Selection.Rows.Count

    Zahl = ActiveSheet.Spinners(1)

    Adr1 = Selection.Cells(1, 1).Address

    If Zahl >= 400 Then Zahl = 1000

    If Zahl >= 500 Then Zahl = 3000

    

    Range("C" & Zahl + 2).Resize(Ofs, 1).Select         'Range Bereich

    Range("C" & Zahl + 2).Resize(Ofs, 1).EntireRow.Select     'ganze Zeilen

    Range("C" & Zahl + 2).Activate       'aktiviert die 1. Zelle

    If Zahl > 10 Then Zahl = Zahl - 5

    ActiveWindow.ScrollRow = Zahl

End Sub

Hallo

ich kann dir zwei Code Möglichkeiten für den eigenen Bedarf anbieten. Experimente einfach mal damit.
Du kannst das Drehfeld in der Schrittweite auf 100 setzen, und mit If Then die Zahl zusätzlich verändern.
Du kannst auch mit Select Case arbeiten, und für jede Zahl die tatsächlichen Sprungweite festlegen
Bei Select Case kannst du auch mit den einfachen kleinen Zahlen 1,2,3,4 usw. arbeiten.

mfg Piet

Sub Drehfeld_Auswertung()

    Zahl = ActiveSheet.Spinners(1)

    If Zahl >= 400 Then Zahl = 1000

    If Zahl >= 500 Then Zahl = 3000

    Range("A" & Zahl).Select

End Sub



Sub Drehfeld_Auswertung()

    Select Case ActiveSheet.Spinners(1)

    Case 100:  Zahl = 100    'oder Case 1  Einzelstep 1

    Case 200:  Zahl = 200    'oder Case 2

    Case 300:  Zahl = 300    'oder Case 3

    Case 400:  Zahl = 1000

    Case 500:  Zahl = 3000

    'usw.

    End Select

   Range("A" & Zahl).Select

End Sub

Drehfel zur eine bestimmte zelle Springen

Forumthread: Drehfel zur eine bestimmte zelle Springen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Drehfel zur eine bestimmte zelle Springen

Forumthread: Drehfel zur eine bestimmte zelle Springen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread