Anzeige
Archiv - Navigation
956to960
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Unprotect, dann in leere Zelle

Unprotect, dann in leere Zelle
28.02.2008 11:21:15
TOM
Hallo,
ich habe ein geschütztes Tabellenblatt.
Mit dem u.a. Code können neue Mitarbeiternamen in Spalte A (ab Zelle A2) eingefügt werden.

Sub Mitarb_neu()
Sheets("Mitarbeiter").Select
ActiveSheet.Unprotect
End Sub


Nun möchte ich, dass der Cursor automatisch in die nächste freie Zelle in Spalte A "springt".
Hat jemand eine Lösung?
Danke vorab
TOM

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

Betreff
Datum
Anwender
Anzeige
AW: Unprotect, dann in leere Zelle
28.02.2008 11:31:00
Ingo
Hallo Tom,

Sub Mitarb_neu()
Sheets("Mitarbeiter").Select
ActiveSheet.Unprotect
ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub


mfG
Ingo Christiansen

AW: Unprotect, dann in leere Zelle
28.02.2008 11:33:16
Beverly
Hi Tom,

Sub Mitarb_neu()
Dim loLetzte As Long
With Worksheets("Mitarbeiter")
loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, . _
Rows.Count)
.Unprotect
Application.Goto .Cells(loLetzte + 1, 1)
End With
End Sub




Anzeige
AW: Unprotect, dann in leere Zelle
28.02.2008 13:54:00
TOM
Danke an Euch beide! Funktioniert wunderbar!
TOM

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige