Wenn in Zelle x dann

Hi zusammen,
da ich nun sehr lange bei einem Problem hänge und wohl auf der Leitung stehe erhoffe ich mir hier einen scharfen Blick eines Profis, der mir eventuell weiterhelfen kann :)
Ich habe folgendes Problem.
Ich habe in der Spalte "X" ab der Zeile "40" Werte stehen. Diese möchte ich in einem Menü vorselektieren können.
Sprich in der Zelle
"n30" entspricht 0 bis 2
"n31" entspricht 2.1 bis 4
"n32" entspricht 4.1 bis 7
"n33" entspricht ALLE
Wenn sich nun ein Wert in der Spalte "X" ändert und ein Bereich ausgewählt ist, soll in der Spalte "Y" in der zugehörigen Zeile sich auch der Wert ändern.
Irgendwie klappt es zwar wenn ich es mit nur einer Zeile probiere, wenn ich jedoch den Bereich von Zeile 40 bis 139 nehme, hängt sich mein Excel auf.
Hat jemand eine Idee?
Danke schon mal im Voraus.
lg ponny
folgenden Code hätte ich aktuell:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim e As Object
For Each e In Sheets("Ishikawa (2)").Range("x40:x139" & Cells(Rows.Count, 25).End(xlUp).Row)
If e.Value

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton2_Click() Dim Zelle As Range, Zeile As Long Sheets("Ishikawa (2)").Unprotect For Each Zelle In Range("X40:X" & Cells(Rows.Count, "X").End(xlUp).Row) Select Case Zelle.Value Case 0 To 2: Zeile = 30 Case Is 7: Zeile = 33 End Select Zelle.Offset(0, 1) = Range("N" & CStr(Zeile)).Value Next Sheets("Ishikawa (2)").Protect End Sub

Hi,
also ich habe mal alles auf mein offizielles Sheet angepasst und eigentlich funktioniert es soweit, nur bis auf den "lieben" Blattschutz.
Die Doppelklickfunktion im Auswahlbereich N30..N33 funktioniert, nur für Y40..Y139 kommt immer eine Blattschutzfehlermeldung. (es funktioniert zwar auch, aber mit Fehlermeldung).
Der Code ist doch selbiger, warum einmal mit und einmal ohne Fehler?
Was übersehe ich denn hier?
Danke

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
If Not Intersect(Target, Range("Y40:Y139")) Is Nothing Then
If Target = "¨" Then
Target = "þ"
Else
Target = "¨"
End If
'Auswahl der Berwertungsbereiche
'Markeiren welche Zeilen Kopiert werden sollen mittels Doppelklick
ElseIf Not Intersect(Target, Range("N30:N33")) Is Nothing Then
If Target = "¨" Then
Target = "þ"
Else
Target = "¨"
End If
If Target.Address(0, 0) = "N33" Then
If Range("N33") = "þ" Then
Range("N30:N32") = "þ"
Else
Range("N30:N32") = "¨"
End If
End If
'Auswahl für 5W über Menü (Wenn "alle" dann alle 3 Bereiche markieren))
Cancel = True
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.EnableEvents = False ActiveSheet.Unprotect If Not Intersect(Target, Range("Y40:Y139")) Is Nothing Then Cancel = True Target = IIf(Target = "¨", "þ", "¨") End If If Not Intersect(Target, Range("N30:N33")) Is Nothing Then Cancel = True Target = IIf(Target = "¨", "þ", "¨") End If If Target.Address(0, 0) = "N33" Then Cancel = True Range("N30:N32") = IIf(Target = "þ", "þ", "¨") Range("Y40:Y139") = IIf(Target = "þ", "þ", "¨") End If ActiveSheet.Protect Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim Zelle As Range, Zeile As Long Application.EnableEvents = False For Each Zelle In Intersect(Target, Range("X40:X139")) Select Case Zelle.Value Case 0 To 2: Zeile = 30 Case Is 7: Zeile = 33 End Select Zelle.Offset(0, 1) = Range("N" & CStr(Zeile)).Value Next Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn in Zelle x dann

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread