Microsoft Excel

Herbers Excel/VBA-Archiv

Warum kann ich nicht Worksheet_Change

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

  

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


  

Betrifft: Danke klappt -) von: Walter mb
Geschrieben am: 17.04.2008 11:11:36

Hallo Specke,
SUPER, geht schon,
danke,
walter mb


  

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.

GrußformelHomepage


  

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


  

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


  

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


  

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

.