Clever-Excel-Forum

Hallo zusammen,

vorab einmal meinen Code:
rivate Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "L12" Then
   If Range("L12").Value = "AP MA manuell" Then
     ActiveSheet.CommandButton2.Visible = True
    Else
     ActiveSheet.CommandButton2.Visible = False
   End If
 ElseIf Target.Address(0, 0) = "N10" Then
   If Range("N10").Value = "ja" Then
      UserForm3.Show vbModal
   Else
      Application.EnableEvents = False
      Range("D6").Value = "0"
      Range("D8").Value = "0"
      Range("D10").Value = "0"
      Range("D12").Value = "0"
      Range("D14").Value = "0"
      Range("D16").Value = "0"
      Range("D18").Value = "0"
      Application.EnableEvents = True
   End If
 End If
End Sub
 
 
Private Sub CommandButton2_Click()
UserForm2.Show vbModal
End Sub


Es hat mal funktiert und dies tut es leider nichtmehr :(, es sollte dauerhaft funktionieren.
Beim ersten IF mit dem AP Manuell sollte sich ein VBA Fenster für eine Eingabe öffnen und beim zweiten sollte ein Knopf angezeigt werden funktioniert beides nicht mehr...
Es sollte unabhängig von einander funktionieren, bitte um Hilfe müsste es recht zeitnah fertig haben.

Vielen Vielen Dank im voraus.

Hallo,

da fehlt das "P" von Private ...

Gruß Uwe

Und es fehlen die Code Tags.

(10.03.2017, 12:12)snb schrieb: [ -> ]Und es fehlen die Code Tags.

das wird aber nicht der Grund für das Nichtfunktionieren sein.

Bist du sicher ? ;)

Danke für die vielen Antworten, daran liegt es nicht ich habe das P ausversehen nicht kopiert, mein Fehler.
Ich habe einen Blattschutz eingefügt, die zellen wo man klicken sollte natürlich nicht und seitdem geht es nichtmehr, auch wenn ich den blattschutz wieder aufhebe geht es leider nicht mehr :/

Hallo,

speichere die Datei ohne Blattschutz, beende Excel komplett und probiere es dann noch einmal.

Gruß Uwe

Danke das hat geklappt, eine Sache funktioniert nicht ganz:

Wenn die Zeile auf "Nein" steht sollte in bestimmte zellen eine "0" reingeschrieben werden, sobald dies passiert wenn der blattschutz aktiv ist kommt ein Fehler kann man dies vllt mit einem anderen Kommando auf einem blattschutz hinbekommen

rivate Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address(0, 0) = "L12" Then
   If Range("L12").Value = "AP MA manuell" Then
     ActiveSheet.CommandButton2.Visible = True
    Else
     ActiveSheet.CommandButton2.Visible = False
   End If
 ElseIf Target.Address(0, 0) = "N10" Then
   If Range("N10").Value = "ja" Then
      UserForm3.Show vbModal
   Else
      Application.EnableEvents = False
      Range("D6").Value = "0"
      Range("D8").Value = "0"
      Range("D10").Value = "0"
      Range("D12").Value = "0"
      Range("D14").Value = "0"
      Range("D16").Value = "0"
      Range("D18").Value = "0"
      Application.EnableEvents = True
   End If
 End If
End Sub

Ich hab es hinbekommen, hab den Befehlt gelöscht und durch eine WENN Bedingung ersetzt vielen dank an alle :)

Hi,

(12.03.2017, 13:41)hbboy15 schrieb: [ -> ]Wenn die Zeile auf "Nein" steht sollte in bestimmte zellen eine "0" reingeschrieben werden, sobald dies passiert wenn der blattschutz aktiv ist kommt ein Fehler kann man dies vllt mit einem anderen Kommando auf einem blattschutz hinbekommen

so geht es auch:

1. Du stellst bei den zu ändernden Zellen den Schutz nicht auf "gesperrt"
   
2. oder Du entschützt das aktulle Blatt vor der Aktion und schützt es danach wieder.
   ActiveSheet.Unprotect
   [...Dein Code...]
   ActiveSheet.Protect