Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1204to1208
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1204to1208
1204to1208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sprungziel per Makro

Sprungziel per Makro
Lorenz
Hallo liebe Excel-Freunde,
bin zuversichtlich, dass mir hier wie immer am besten geholfen werden kann.
Für jede Hilfe besten Dank im Voraus.
Folgende, vermutlich simple Aufgabe:
Möchte per Makro von der aktuellen Cursor/Zell-Position um eine bestimmte Anzahl von Zeilen nach unten oder oben springen! Die Richtung wie auch die Anzahl der Zeilen soll aus errechneten Zellen ausgelesen werden (z.B. A1 - 1 = nach oben; 2 = nach unten; A2 - 10 = zehn Zeilen).
Das i-Tüpfelchen wäre, wenn das Verlassen des gültigen Zeilenbereichs nicht möglich wäre, einfach zur Zeile 1 bzw. Zeile 1048576 springen, wenn errechnetes Sprungziel außerhalb!
Hoffe ich habe mich klar ausgedrückt.
Für alle Tipps vielen Dank!
Gruß
Lorenz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Je nachdem das sofort und automatisch...
22.03.2011 14:21:13
Luc:-?
…oder erst auf Button-Betätigung erfolgen soll, Lorenz,
ist die Art der Prozedur zu wählen — also entweder Ereignis- oder normale Proz anlegen! Der entscheidende Befehl würde im 1.Fall (bei Target bereitstellender EProz) so lauten: Target.Cells(1).Offset((2 * Range("A1") - 3) * Range("A2"), 0).Select Anderenfalls wäre Target.Cells(1) durch ActiveCell zu ersetzen. (.Cells(1) steht nur zur Sicherheit, falls mehrere Zellen ausgewählt wurden → kann auch entfallen.)
Den gültigen Zellbereich kenne ich nicht. Falls du aber damit den UsedRange meinst, musst du Offset vor dem Select noch mit If Intersect(…, UsedRange) Is Nothing Then Cells(1, Target bzw ActiveCell.Column).Select Else ….Select überprüfen.
Gruß Luc :-?
Anzeige
Das Verlassen des Bereichs verhindern
22.03.2011 14:41:14
Matthias
Hallo
Für Das i-Tüpfelchen
Schau Dir mal ScrollArea an.
eine Variante: 
Private Sub Worksheet_Activate()
ActiveSheet.ScrollArea = "A1:A1000"  'Bereich anpassen
End Sub
oder ins Workbook_Open() 
Private Sub Workbook_Open()
Tabelle1.ScrollArea = "A1:A1000"  'Bereich anpassen
End Sub
Jetzt läßt sich der gesetzte Bereich nicht verlassen,
wenn man ihn nicht wieder aufhebt. ( Tabelle1.ScrollArea = "" )
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige