Herbers Excel-Forum - das Archiv

Warum kann ich nicht Worksheet_Change

Bild

Betrifft: Warum kann ich nicht Worksheet_Change
von: Walter mb

Geschrieben am: 17.04.2008 10:38:32

Hallo Zusammen,
ich habe folgendes

Private Sub Worksheet_Change(ByVal Target As Range)
Makro, klappt alles.
Nun möchte ich auch dies bei der Eingabe in Spalte ebenfalls aktivieren und habe dies
nach unten drangesetzt, leider ohne Erfolg.
Ein 2. Makro mit         

Private Sub Worksheet_Change(ByVal Target As Range)
geht auch nicht, da Fehlermeldung.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Column = 12 Then Exit Sub
If Cells(Target.Row, 12) <> "" Then
Range(Cells(Target.Row, 1), (Cells(Target.Row, 10))).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Cells(Target.Row, 12).Select
Else
ActiveSheet.Unprotect (getStrPasswort)
Range(Cells(Target.Row, 1), (Cells(Target.Row, 10))).Select
Selection.Interior.ColorIndex = xlNone
Cells(Target.Row, 12).Select
End If
If Not Target.Column = 13 Then Exit Sub
If Cells(Target.Row, 13) <> "" Then
Range(Cells(Target.Row, 1), (Cells(Target.Row, 10))).Select
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Cells(Target.Row, 12).Select
Else
Range(Cells(Target.Row, 1), (Cells(Target.Row, 10))).Select
Selection.Interior.ColorIndex = xlNone
Cells(Target.Row, 12).Select
End If
End Sub


mfg Walter mb

Bild

Betrifft: AW: Warum kann ich nicht Worksheet_Change
von: Specke
Geschrieben am: 17.04.2008 10:56:01
Hallo Walter,
If Not Target.Column = 12 Then Exit Sub (hier geht er sofort raus, wenn Target nicht Spalte 12 )
musst Du ersetzen durch
If Not Target.Column = 12 and not target.column=13 Then Exit Sub
Gruß Specke

Bild

Betrifft: Danke klappt -)
von: Walter mb
Geschrieben am: 17.04.2008 11:11:36
Hallo Specke,
SUPER, geht schon,
danke,
walter mb

Bild

Betrifft: AW: Warum kann ich nicht Worksheet_Change
von: Hajo_Zi
Geschrieben am: 17.04.2008 10:56:32
Hallo Walter,
Du prüfst schon zu Beginn onb Spalte 12 falls nicht Exit Sub.
Du solltest mit
If
Else
End if
arbeiten.

Bild

Betrifft: Hallo Hajo, danke für...
von: Walter mb
Geschrieben am: 17.04.2008 11:12:43
Hallo Hajo,
danke für den Hinweis, habe gerade das von Specke getestet, läuft.
mfg Walter mb

Bild

Betrifft: AW: Warum kann ich nicht Worksheet_Change
von: Andi

Geschrieben am: 17.04.2008 10:58:07
Hi,
Nun möchte ich auch dies bei der Eingabe in Spalte ebenfalls aktivieren
Du meinst in Spalte 13, oder?
Soweit kommt er gar nicht, weil Dein Makro bei einer Eingabe in Spalte 13 schon hier aussteigt:
If Not Target.Column = 12 Then Exit Sub
Verwende Select Case:
Select Case Target.Column
Case 12
'was bei Eingabe in Spalte 12 passieren soll
Case 13
'was bei Eingabe in Spalte 13 passieren soll
Case Else
'nix
End Select
Schönen Gruß,
Andi

Bild

Betrifft: Auch Dir, Andi Danke
von: Walter mb
Geschrieben am: 17.04.2008 11:14:56
Hallo Andi,
DANKE, ist im übrigen auch ein guter Hinweis, habe auch getestet.
mfg Walter mb

Bild

Betrifft: gern geschehen... (ot)
von: Andi
Geschrieben am: 17.04.2008 11:20:50
.

 Bild