Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
416to420
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
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Offset kann bestimmt einfacher sein.....

Offset kann bestimmt einfacher sein.....
Peter
Hallo Ihr,
lacht bitte net aber mir fiel nix anderes ein.....es funktioniert auf jeden Fall einwandfrei.....aber interessehalber....wie gehts einfacher?...:))
With Sheets("Daten")
.Unprotect Password:="Ja"
.Range("B65536").End(xlUp).Offset(2, 0).Locked = True
.Range("B65536").End(xlUp).Offset(2, 1).Locked = True
.Range("B65536").End(xlUp).Offset(2, 2).Locked = True
.Range("B65536").End(xlUp).Offset(2, 3).Locked = True
.Range("B65536").End(xlUp).Offset(2, 4).Locked = True
.Protect Password:="Ja"
End With
Danke
Peter S

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

Betreff
Benutzer
Anzeige
AW: Offset kann bestimmt einfacher sein.....
ChrisL
Hi Peter
so...

Sub TestLock()
Dim LetzteZeile As Long
With Sheets("Daten")
.Unprotect Password:="Ja"
LetzteZeile = .Range("B65536").End(xlUp).Row + 2
.Range(.Cells(LetzteZeile, 2), .Cells(LetzteZeile, 6)).Locked = True
.Protect Password:="Ja"
End With
End Sub

Gruss
Chris
AW: Offset kann bestimmt einfacher sein.....
20.04.2004 19:52:42
Peter
Hallo Chris,
ja funzt bestens und schaut zumindest ein ganzes Stück eleganter aus
Vielen Dank
Peter S.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige