VBA erkannt Excel Zellenwert nicht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Tino.
Danke (schon wieder) für Deine Antwort/Hilfe. Wenn ich dich mit meinem mangelhaften VBA Verständnis richtig verstehe, arbeitet "Target" nur wenn ich eine direkte Eingabe tätige und da ich mir mein "X" mit einer Formel ziehe bringt mir das also gar nischts :-/
Wie sage ich denn nun diesem Mistding:
Lies das was in der Zelle C5 steht, dann sperre/sperre nicht c10 bis c18 und führ das bis Spalte AH fort.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
If Not Intersect(Rows(1), Target) Is Nothing Then
Me.Protect , UserInterfaceOnly:=True
With Range("A1:D10")
For Each rngCell In .Columns
With rngCell
Range(.Cells(2), .Cells(.Rows.Count)).Locked = _
UCase(.Cells(1).Value) = "X"
End With
Next rngCell
End With
End If
End Sub

Ich habe auch schon mit deinem Code, den du mir netterweise für mein erstes Simpelbeispiel gebastelt hast gearbeitet. Aber ich bin einfach zu lange aus VB rausgewesen und noch nicht lange genug zurück.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
If Not Intersect(Rows(5), Target) Is Nothing Then
Me.Protect , UserInterfaceOnly:=True
With Range("C10:AH18")
For Each rngCell In .Columns
With rngCell
Range(.Cells(10), .Cells(.Rows.Count)).Locked = _
UCase(.Cells(5).Value) = "X"
End With
Next rngCell
End With
End If
End Sub

Dank Dir schon mal - auch wenn du dir das Bier virtuell vorstellen musst ;-)

Hallo Tino,
leider ist es genau so.
Ich ziehe mir per WENN und SVERWEIS Daten aus einer Liste.
Wenn die Kriterien X oder Y oder Z erfüllt sind soll die Spalte (Teil einer Matrix) nicht mehr bearbeitbar sein ("X").
Wenn nicht. Soll eine Eingabe in die Spalte möglich sein, die ich in den nachfolgenden Schritte auswerte/benutze.
D. h. es gibt keine Eingabe per Hand oder VBA die ich für das Sperren, wie von dir vorgeschlagen, überwachen kann.
Zusätzlich sollte die ganze Prozedur über mehrere Excel-Reiter laufen.
Wenn ich die Sub als Worksheet_Calculate (ByVal Target As Range) nutze, passiert leider gar nichts.
Die X-Spalten die ich sperren möchte sind zwar bereits über bedingte Formatierung deutlich markiert, aber in dem Laden hier hätte ich mir gewünscht das noch etwas sicherer zu gestalten.
Vielen Dank für deine/eure Bemühungen - aber langsam muss ich wohl zu dem Schluss kommen dass es keine, mit vertretbarem Aufwand, gestaltbare Lösung gibt.
Gruß, Marc

Private Sub Worksheet_Calculate() Dim rngCell As Range Me.Protect , UserInterfaceOnly:=True With Range("D5:AH18") For Each rngCell In .Columns With rngCell Range(.Cells(6), .Cells(.Rows.Count)).Locked = _ UCase(.Cells(1).Value) = "X" End With Next rngCell End With End Sub

Sub FormelErstellen() Dim rngRange As Range, FArray Tabelle1.Protect , UserInterfaceOnly:=True Set rngRange = Tabelle1.Range("C5:AH5") FArray = rngRange.Formula rngRange.NumberFormat = "General" rngRange.Formula = FArray End Sub

Beliebteste Forumthreads (12 Monate)

VBA erkannt Excel Zellenwert nicht

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA erkannt Excel Zellenwert nicht

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread