Marko auf best. Bereiche mit B-Schutz

Sub test() Dim i, anzNach, anzZeil, soll As Integer, tmp As String soll = 3 'die soll-Anzahl der signifikanten stellen anzZeil = Selection.Cells.Count 'Zellenanzahl ermitteln For i = 1 To anzZeil 'Schleifenstart von zelle 1 bis letzte Zelle tmp = Selection.Cells(i) 'einlesen neuer Zelle If tmp 1 dann trenne die Zahl bei , und _ sag mir wie lang sie ist 'bei Amerikanischer einstellung muss hier das , duch einen . ersetzt werden 'aus 152,5648 mach er hier 152 = 3 Stellen vor dem , End If If anzNach ?0.000 End If Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Blattschutz() With ActiveSheet Cells.Select Selection.Locked = False Selection.FormulaHidden = False Range("B2:N400").Select Selection.Locked = True Selection.FormulaHidden = False If Not Range("B1:N1").AutoFilter Then Range("B1:N1").AutoFilter End If .Protect userinterfaceonly:=True, Password:="PW" End With End Sub

With ActiveSheet .EnableAutoFilter = True '--das fehlt .Cells.Locked = False .Cells.FormulaHidden = False .Range("B2:N400").Locked = True Cells.FormulaHidden = False If Not .Range("B1:N1").AutoFilter Then .Range("B1:N1").AutoFilter End If .Protect userinterfaceonly:=True, Password:="PW" End With

Hi,
wie gesagt, es klappt soweit alles, jedoch ist mir noch ein Fehler aufgefallen, welcher mittels des Makros gelöst werden soll.
Das Makro soll nur durchgeführt werden, wenn in dem Bereich ("H10:I53,K10:L53,N10:O53") eine Zahl steht, sprich Wert > 0.
Wo und mit welchen Befehl kann ich das einbauen?
Vielen Dank für eure Hilfe.

Sub test()
Worksheets("Konzentrationsberechnung").Unprotect Password:="ICP"
Dim Cells As Range
soll = 3 'die soll-Anzahl der signifikanten stellen
anzZeil = Selection.Cells.Count 'Zellenanzahl ermitteln
For Each Cells In Range("H10:I53,K10:L53,N10:O53") 'Schleifenstart von zelle 1 bis letzte  _
Zelle
tmp = Cells 'einlesen neuer Zelle
If tmp 1 dann trenne die Zahl bei , und _
sag mir wie lang sie ist
'bei Amerikanischer einstellung muss hier das , duch einen . ersetzt werden
'aus 152,5648 mach er hier 152 = 3 Stellen vor dem ,
End If
If anzNach  ?0.000
End If
Next Cells
Worksheets("Konzentrationsberechnung").Protect Password:="ICP"
End Sub

Sub test() Worksheets("Konzentrationsberechnung").Unprotect Password:="ICP" Dim Cells As Range soll = 3 'die soll-Anzahl der signifikanten stellen anzZeil = Selection.Cells.Count 'Zellenanzahl ermitteln For Each Cells In Range("H10:I53,K10:L53,N10:O53").SpecialCells(xlCellTypeConstants, 1) ' _ Schleifenstart von zelle 1 bis letzte Zelle tmp = Cells 'einlesen neuer Zelle If tmp 1 dann trenne die Zahl bei , und _ sag mir wie lang sie ist 'bei Amerikanischer einstellung muss hier das , duch einen . ersetzt werden 'aus 152,5648 mach er hier 152 = 3 Stellen vor dem , End If If anzNach ?0.000 End If Next Cells Worksheets("Konzentrationsberechnung").Protect Password:="ICP" End Sub

Sub test() Worksheets("Konzentrationsberechnung").Unprotect Password:="ICP" Dim Cells As Range soll = 3 'die soll-Anzahl der signifikanten stellen anzZeil = Selection.Cells.Count 'Zellenanzahl ermitteln For Each Cells In Range("H10:I53,K10:L53,N10:O53").SpecialCells(xlCellTypeFormulas, _ xlNumbers) 'Schleifenstart von zelle 1 bis letzte Zelle tmp = Cells 'einlesen neuer Zelle If tmp 1 dann trenne die Zahl bei , und _ sag mir wie lang sie ist 'bei Amerikanischer einstellung muss hier das , duch einen . ersetzt werden 'aus 152,5648 mach er hier 152 = 3 Stellen vor dem , End If If anzNach ?0.000 End If Next Cells Worksheets("Konzentrationsberechnung").Protect Password:="ICP" End Sub

Beliebteste Forumthreads (12 Monate)

Marko auf best. Bereiche mit B-Schutz

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread