Microsoft Excel

Herbers Excel/VBA-Archiv

Zellen Sperren Wenn .... | Herbers Excel-Forum


Betrifft: Zellen Sperren Wenn .... von: Heinz H
Geschrieben am: 12.01.2010 19:42:10


Hallo Leute

Habe unteres Makro erstellt.
Es sollte in A6:A35 suchen ob eine Zelle leer ist dann sperren bis L

Also zB. A6="" Dann sperren A6:L6

Ich bekomme immer "Locked-Eigenschaften des Range Objektes kann nicht festgelegt werden"

Bitte um Hilfe
Heinz

'Zellen Sperren wenn Spalte A leer

Sub Sperren()
Dim i As Integer
 For i = 6 To 35
  If Cells(1, i).Value = "" Then
    Range("A" & i & "").Locked = True
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  End If
Next
 
 
End Sub

  

Betrifft: nicht getestet, aber ... von: Matthias L
Geschrieben am: 12.01.2010 20:20:11

Hallo

wenn Du "A6:A35" prüfen willst

... muß das dann nicht
If Cells(i, 1).Value = "" Then ...
heißen ?

Also die Spalte steht bei Cells() nach dem Komma

Gruß Matthias


  

Betrifft: AW: nicht getestet, aber ... von: Heinz H
Geschrieben am: 12.01.2010 20:24:21

Hallo Matthias

Jetzt bekomme ich immer noch den selben Fehler.

In "Range("A" & i & "").Locked = True"

Gruß
Heinz


  

Betrifft: AW:getestet von: hary
Geschrieben am: 12.01.2010 20:31:18

Hallo heinz
teste mal

Sub n()
Dim i As Integer
ActiveSheet.Unprotect
 For i = 6 To 35
  If Cells(i, 1).Value = "" Then
    Range("A" & i & ":L" & i).Locked = True
  End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

gruss hary


  

Betrifft: hey, nich vordrängeln ;o) ... kwT von: Matthias L
Geschrieben am: 12.01.2010 20:33:30




  

Betrifft: T'schuldigung ;-)) owT. von: hary
Geschrieben am: 12.01.2010 20:35:31

.


  

Betrifft: AW: AW:getestet von: Heinz H
Geschrieben am: 12.01.2010 20:37:03

Hallo Hary

leider den gleichen Fehler

In Range("A" & i & ":L" & i).Locked = True

Sub n()
Dim i As Integer
ActiveSheet.Unprotect Password:="woody-6962"
 For i = 6 To 35
  If Cells(i, 1).Value = "" Then
    Range("A" & i & ":L" & i).Locked = True
  End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Heinz


  

Betrifft: AW:Testmappe von: hary
Geschrieben am: 12.01.2010 20:42:13

Hallo Heinz
Teste mal. Die Tabelle ist nicht geschuetzt. Jetzt Kannst Du ueberall was eintragen. Fuehre dann das Makro aus und Nu?

https://www.herber.de/bbs/user/67177.xls
gruss hary


  

Betrifft: hier mal zum testen von: Matthias L
Geschrieben am: 12.01.2010 20:32:08

Hallo

https://www.herber.de/bbs/user/67176.xls

Was willst Du mit
Range("A" & i & "").Locked = True erreichen ?
Verstehe ich nicht.

Gruß Matthias


  

Betrifft: AW:@ Matthias von: hary
Geschrieben am: 12.01.2010 20:33:56

Nabend Matthias
schaetze soll so sein.

Range("A" & i & ":L" & i).Locked = True



  

Betrifft: ja, hary... von: Matthias L
Geschrieben am: 12.01.2010 20:38:46

Hallo

... das hab ich schon auch so verstanden wie Du

;-)

Gruß Matthias


  

Betrifft: AW: mal die Datei von: Heinz H
Geschrieben am: 12.01.2010 20:46:40


Hallo Mathias & Hary

Hier mal die Datei

https://www.herber.de/bbs/user/67178.xls

Gruß
Heinz


  

Betrifft: VBA (und verbunden Zellen) ohne mich oT von: Matthias L
Geschrieben am: 12.01.2010 20:54:13




  

Betrifft: AW: Entschuldige Matthias & Hary von: Heinz H
Geschrieben am: 12.01.2010 21:01:24

Hallo Hary & Matthias

Ich muß mich bei Euch Entschuldigen.

Ich bin sooo ein großer Ars..

Natürlich lags an den Verbundenen Zellen.

Recht herzlichen Dank für Eure Hilfe.

Heinz


  

Betrifft: und Alles ist gut :o) ... oT von: Matthias L
Geschrieben am: 12.01.2010 21:06:09




  

Betrifft: AW: OH Oh von: hary
Geschrieben am: 12.01.2010 20:59:00

hallo Heinz
wie Matthias schrieb "verbundene Zellen"
Die sind der Tad fast jedes Codes.
------------------
Mach mal im Code aus L ein K
dann funzt es wunderbar
--------------------
ist sogar ein Reim wenn man's liest ;-))
gruss hary


  

Betrifft: AW: OH Oh von: hary
Geschrieben am: 12.01.2010 21:01:23

hallo Heinz
wie Matthias schrieb "verbundene Zellen"
Die sind der Tod fast jedes Codes.
------------------
Mach mal im Code aus L ein K
dann funzt es wunderbar
--------------------
ist sogar ein Reim wenn man's liest ;-))
Wenn Du Spalte P nicht brauchst nimm statt L das P
gruss hary


Beiträge aus den Excel-Beispielen zum Thema "Zellen Sperren Wenn ...."