Datum

Titel

23.04.2024 08:26:15

Rückgabewert mehrere Suchkriterien Datumsbereich

23.04.2024 08:20:37

VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen

23.04.2024 08:04:28

4-fach verschachtelte WENN-Funktion

22.04.2024 22:36:13

Marko automatisch ausführen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

708to712

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Cursor in 1. ungeschützte Zelle

Forumthread: Cursor in 1. ungeschützte Zelle
7 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

22.12.2005 07:18:35

Celine

Hallo zusammen,
ich habe mehrere Dateien bei denen nach der Dateneingabe die entsprechenden Zellen bzw. Zeilen gesperrt werden.
Nun zu meiner Frage:
Gibt es einen VBA-Code, der automatisch die erste ungeschützte Zelle findet, diese Zelle auswählt und automatisch zu der 3 Zeilen höher liegende Zeile scrollt (damit die letzten 3 bereits eingegebenen Zeilen noch zu sehen sind).
Beispiel:
Alle Zellen in den Zeilen 1 bis 103 sind bestückt, gesperrt und der Blattschutz aktiviert.
Das Makro soll nun Zelle A104 finden, den Cursor dort setzen und auch in Zeile 100 scrollen.
Hat jemand eine einfache und schnelle Lösung (Schleife ?) ?
Mit freundlichen Grüßen
Celine

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Cursor in 1. ungeschützte Zelle

22.12.2005 07:53:54

Franz
AW: Cursor in 1. ungeschützte Zelle

22.12.2005 15:03:51

Celine
AW: Cursor in 1. ungeschützte Zelle

22.12.2005 17:07:22

Franz
AW: Cursor in 1. ungeschützte Zelle

23.12.2005 08:44:38

yps
O.T. Schöne Weihnachten

23.12.2005 09:01:54

Franz
AW: O.T. Schöne Weihnachten

23.12.2005 09:31:49

yps
Kindersekt hihihihi

23.12.2005 09:46:54

Franz

AW: Cursor in 1. ungeschützte Zelle

22.12.2005 07:53:54

Franz

Hallo Celine,
so ganz hab ich deine Frage noch nicht verstanden. Aber vielleicht hilft dir das weiter:


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

Damit können gesperrte Zelle bei gesetztem Blattschutz überhaupt nicht selektiert werden. Musst allerdings bevor es wirkt, vorher kurz zu einem anderen Blatt wechseln.
Grüße
Franz

AW: Cursor in 1. ungeschützte Zelle

22.12.2005 15:03:51

Celine

Hallo Franz,
danke dass Du mir helfen möchtest.
Da es eine sehr große Datei ist, möchte ich erreichen, dass der Cursor auf die erste ungeschützte Zelle (= erste leere nächste Eingabezelle) springt.
Das geht mit "User darf nur ungeschützte Zellen auswählen" (= ActiveSheet.EnableSelection = xlUnlockedCells) gut.
Aber wie bekomme ich es hin, dass auch an diese Stelle gescrollt wird ? (Scrollen bis 3 Zeilen über der nächsten leeren Eingabezellen, damit die letzten bereits bestückten Eingabezeilen noch zu sehen sind)
Gruß, Celine.

AW: Cursor in 1. ungeschützte Zelle

22.12.2005 17:07:22

Franz

Hallo Celine,
das mit dem Hinscrollen hab ich leider auch nicht im Griff. Da hab ich selber ne Datei, bei der ich immer mit der Hand "Nachscrollen" muss, sorry. Darum Frage offen...
Grüße
Franz

AW: Cursor in 1. ungeschützte Zelle

23.12.2005 08:44:38

yps

hi,
in verbindung mit ActiveSheet.EnableSelection = xlUnlockedCells
probiert mal:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Goto Reference:=ActiveCell, Scroll:=True
ActiveWindow.ScrollRow = Selection.Row - 3
End Sub

cu Micha

O.T. Schöne Weihnachten

23.12.2005 09:01:54

Franz

Hallo Micha,
schön von Dir zu hören/lesen. Hat mich doch mal wieder nicht nach Bln gespült. Nichtsdestotrotz schöne Weihnachten Dir und einen superguten Rutsch ins Neue Jahr.
Haufen Grüße
Frnaz

AW: O.T. Schöne Weihnachten

23.12.2005 09:31:49

yps

hi Franz,
ich wünsche dir natürlich ebenfalls ein wunderschönes weihnachtsfest (lass dich reich beschenken und gib selbst nicht soviel geld aus), einen nicht allzu heftigen rutsch ins neue jahr (pflegt man in München eigentlich auch den brauch mit sekt anzustossen oder bleibt man da bei bier ? *grins*) und ein gesundes und erfolgreiches nächstes jahr
cu Micha

Kindersekt hihihihi

23.12.2005 09:46:54

Franz

nachdem ich ganz ruhig mit meinen beiden Kleinen rutsche (sicherlich nicht ganz leise, aber ruhig .... ?!?!?) gibts Kindersekt! - wir kennen also noch ne weitere Variante hier, gibts auch alles einfach so im Supermarkt..... :-)))))
ciao
Franz