Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.
Clever-Excel-Forum › Office-Anwendungen › Excel v
dropdown

Thema geschlossen 
Baumstrukturmodus
dropdown
Rabe Offline
:-)
Registriert seit: 10.04.2014
Version(en): 2016 + 365
#11
14.06.2015, 17:27 (Dieser Beitrag wurde zuletzt bearbeitet: 14.06.2015, 17:27 von Rabe.)
Hi,

(14.06.2015, 15:44)hagi6312 schrieb: Ausser dass ich mehrere Dropdowns in einem
Worksheet ansprechen möchte.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range) ' gibt hier einen Fehler aus Mehrdeutiger Name: Worksheet_Change

es darf nur ein Worksheet_Change-Ereignis geben.

Du hast eine veraltete Version des Makros!
Es werden keine Dropdowns mehr benötigt, siehe die angehängte Datei V4.
Schau Dir mal das erweiterte Makro an, da sind mehrere Doppelklickzellen drin, diese können in diesem Stil einfach erweitert werden.

Option Explicit kommt immer oben als erstes ein Mal über alle Makros.
Suchen
Antworten Top
hagi6312 Offline
CEF Einsteiger
ThreadStarter
*
Registriert seit: 14.06.2015
Version(en): 2007
#12
14.06.2015, 18:41
Hallo Ralf
Verstehe es nicht ganz!
Wollte es so wie untenstehend lösen?

Dieses anstatt der Dropdown:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target.Address <> "$G$8:$g$849" Then Exit Sub '
        Target.Value = "x"
End Sub

Dieses für nicht Ausgeführte Arbeiten:

Private Sub Option Explicit(ByVal Target As Range)
   
    'PVC-Sockel (Abzug Total für nicht Ausgeführte Arbeiten.)
    If Target.Address <> "$G$429" Then Exit Sub
   
    If Target.Value = "x" Then
        Range("G430:G452").Value = "x"
    Else: Range("G430:G452").Value = ""
    End If
   
End Sub
 Private Sub Option Explicit(ByVal Target As Range)
 
    'Holzsockel (Abzug Total für nicht Ausgeführte Arbeiten.)
    If Target.Address <> "$G$456" Then Exit Sub
   
    If Target.Value = "x" Then
        Range("G457:G485").Value = "x"
    Else: Range("G457:G485").Value = ""
    End If
   
End Sub
Option Explicit
   
    'Endreinigung   (Abzug Total für nicht Ausgeführte Arbeiten.)
    If Target.Address <> "$G$489" Then Exit Sub
   
    If Target.Value = "x" Then
        Range("G490:G495").Value = "x"
    Else: Range("G490:G495").Value = ""
    End If
   
End Sub
Option Explicit
   
    'Linol Reparatur (Abzug Total für nicht Ausgeführte Arbeiten.)
    If Target.Address <> "$G$529" Then Exit Sub
   
    If Target.Value = "x" Then
        Range("G530:G49").Value = "x"
    Else: Range("G530:G49").Value = ""
    End If
   
End Sub


Kannst Du mir dieses Bitte richtig stellen! Huh :22: :05:
Suchen
Antworten Top
Rabe Offline
:-)
Registriert seit: 10.04.2014
Version(en): 2016 + 365
#13
14.06.2015, 19:20 (Dieser Beitrag wurde zuletzt bearbeitet: 15.06.2015, 15:40 von Rabe. Bearbeitungsgrund: Ursprungsfehler im Teil "Linol Rearatur" korrigiert )
Hi,

(14.06.2015, 18:41)hagi6312 schrieb: Kannst Du mir dieses Bitte richtig stellen! Huh :22: :05:

schau mal hier:
Option Explicit  ' nur ein Mal am Anfang jeder Codeseite 



Private Sub Worksheet_Change(ByVal Target As Range)     'nur ein Worksheet-Change pro Worksheet 

   

   'Wenn die Zieladresse nicht H3 ist, dann Makro verlassen 

   If Target.Address <> "H3" Then Exit Sub



   If Target.Value = "x" Then

       Range("E4:E8").Value = "x"

   Else: Range("E4:E8").Value = ""

   End If

   

   'PVC-Sockel (Abzug Total für nicht Ausgeführte Arbeiten.) 

   'Wenn die Zieladresse nicht G429 ist, dann Makro verlassen 

   If Target.Address <> "G429" Then Exit Sub

  

   If Target.Value = "x" Then                  'wenn ein x in der Zelle G429 steht, dann 

       Range("G430:G452").Value = "x"          'schreiben eines x in Bereich G430 bis G452 

   Else: Range("G430:G452").Value = ""         'anderenfalls löschen der x 

   End If



   'Holzsockel (Abzug Total für nicht Ausgeführte Arbeiten.) 

   If Target.Address <> "G456" Then Exit Sub

  

   If Target.Value = "x" Then

       Range("G457:G485").Value = "x"

   Else: Range("G457:G485").Value = ""

   End If

  

   'Endreinigung   (Abzug Total für nicht Ausgeführte Arbeiten.) 

   If Target.Address <> "G489" Then Exit Sub

  

   If Target.Value = "x" Then

       Range("G490:G495").Value = "x"

   Else: Range("G490:G495").Value = ""

   End If

  

   'Linol Reparatur (Abzug Total für nicht Ausgeführte Arbeiten.) 

   If Target.Address <> "G529" Then Exit Sub

  

   If Target.Value = "x" Then

       Range("G530:G549").Value = "x"

   Else: Range("G530:G549").Value = ""

   End If

  

End Sub



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)     'nur ein Worksheet_BeforeDoubleClick pro Worksheet 

   If Intersect(Target, Range("H3,E4:E8,G8:G849")) Is Nothing Then Exit Sub  'mehrere Bereiche durch Komma getrennt 

   If Target.Count > 1 Then Exit Sub                           'wenn mehr als eine Zelle markiert, Makro verlassen 

   If Target.Value = "x" Then                                  'wenn Target-Zelle ein x enthält 

       Target.Value = ""                                       'dann Target-Zelle leeren 

   Else: Target.Value = "x"                                    'ansonsten ein in die Target-Zelle x schreiben 

   End If

End Sub

VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel
Code erstellt und getestet in Office 15
Suchen
Antworten Top
WillWissen Offline
CEF-Moderator
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
#14
14.06.2015, 19:57 (Dieser Beitrag wurde zuletzt bearbeitet: 15.06.2015, 19:00 von Rabe.)
Hi,

Zitat:schau mal hier:

Option Explicit  ' nur ein Mal am Anfang jeder Codeseite

das musst du nicht einmal händisch eintragen - gehe über Extras/Optionen und mach ein Häkchen bei "Variablendeklaration notwendig" rein. Dann steht das Option Explicit automatisch immer am Anfang drin.

   
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Suchen
Antworten Top
Kuwer Offline
Excelanwender mit VBA
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
#15
14.06.2015, 20:09
Hi Ralf,

hast Du den Code getestet?
Es wird Dank "Exit Sub" nur bei H3 funktionieren. Wink
Ich hatte das z.B. auch schon hier kritisiert.

Gruß Uwe
Suchen
Antworten Top
hagi6312 Offline
CEF Einsteiger
ThreadStarter
*
Registriert seit: 14.06.2015
Version(en): 2007
#16
14.06.2015, 20:13
Hallo Ralf
Neuer Fehler
 Sorry :05: :22:


Angehängte Dateien Thumbnail(s)
   
Suchen
Antworten Top
WillWissen Offline
CEF-Moderator
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
#17
14.06.2015, 20:19
Hi,

die Fehlermeldung sagt dir doch schon, welcher Fehler auftritt. Du hast ein End Sub zuviel oder ein Private Sub zuwenig.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Suchen
Antworten Top
Rabe Offline
:-)
Registriert seit: 10.04.2014
Version(en): 2016 + 365
#18
14.06.2015, 20:26 (Dieser Beitrag wurde zuletzt bearbeitet: 15.06.2015, 15:40 von Rabe. Bearbeitungsgrund: Ursprungsfehler im Teil "Linol Rearatur" korrigiert )
Hi Uwe,

(14.06.2015, 20:09)Kuwer schrieb: hast Du den Code getestet?
Es wird Dank "Exit Sub" nur bei H3 funktionieren. Wink

Nein.

oooh, das stimmt, das habe ich nicht bedacht.

Vielleicht so:
Option Explicit  ' nur ein Mal am Anfang jeder Codeseite 



Private Sub Worksheet_Change(ByVal Target As Range)     'nur ein Worksheet-Change pro Worksheet 

    

    If Target.Address = "$H$3" Then      'Wenn die Zieladresse = H3 ist, dann nächste Abfrage 

    If Target.Value = "x" Then           'wenn ein x in der Zelle H3 steht, dann 

    Range("E4:E8").Value = "x"           'schreiben eines x in Bereich E4 bis E8 

Else: Range("E4:E8").Value = ""          'anderenfalls löschen der x 

    End If

    

ElseIf Target.Address = "$G$429" Then    'PVC-Sockel (Abzug Total für nicht Ausgeführte Arbeiten.) 

    If Target.Value = "x" Then           'wenn ein x in der Zelle G429 steht, dann 

    Range("G430:G452").Value = "x"       'schreiben eines x in Bereich G430 bis G452 

Else: Range("G430:G452").Value = ""      'anderenfalls löschen der x 

    End If

    

ElseIf Target.Address = "$G$456" Then    'Holzsockel (Abzug Total für nicht Ausgeführte Arbeiten.) 

    If Target.Value = "x" Then

    Range("G457:G485").Value = "x"

Else: Range("G457:G485").Value = ""

    End If

    

ElseIf Target.Address = "$G$489" Then    'Endreinigung (Abzug Total für nicht Ausgeführte Arbeiten.) 

    If Target.Value = "x" Then

    Range("G490:G495").Value = "x"

Else: Range("G490:G495").Value = ""

    End If

    

ElseIf Target.Address = "$G$529" Then    'Linol Reparatur (Abzug Total für nicht Ausgeführte Arbeiten.) 

    If Target.Value = "x" Then

    Range("G530:G549").Value = "x"

Else: Range("G530:G549").Value = ""

    End If

    End If

End Sub



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)       'nur ein Worksheet_BeforeDoubleClick pro Worksheet 

    If Intersect(Target, Range("$H$3,$E$4:$E$8,$G$8:$g$849")) Is Nothing Then Exit Sub  'mehrere Bereiche durch Komma getrennt 

    If Target.Count > 1 Then Exit Sub                       'wenn mehr als eine Zelle markiert, Makro verlassen 

    If Target.Value = "x" Then                              'wenn Target-Zelle ein x enthält 

    Target.Value = ""                                       'dann Target-Zelle leeren 

Else: Target.Value = "x"                                    'ansonsten ein x in die Target-Zelle schreiben 

    End If

End Sub

VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel
Code erstellt und getestet in Office 15



@mumpel:
der Einrückteil Deines Tools bricht ab mit der Fehlermeldung: Fehler in der Funktion fstrSchlüsselwortEinrücken! Aufruf:If
Suchen
Antworten Top
hagi6312 Offline
CEF Einsteiger
ThreadStarter
*
Registriert seit: 14.06.2015
Version(en): 2007
#19
14.06.2015, 20:28
Danke 
war der End Sub :15: :18:
Suchen
Antworten Top
Rabe Offline
:-)
Registriert seit: 10.04.2014
Version(en): 2016 + 365
#20
14.06.2015, 20:40 (Dieser Beitrag wurde zuletzt bearbeitet: 14.06.2015, 20:41 von Rabe.)
Hi,

(14.06.2015, 20:28)hagi6312 schrieb: Danke 
war der End Sub :15: :18:

wie Uwe geschrieben hat, funktioniert es noch nicht richtig, bzw. nur für H3.

ich habe das Makro nochmal überarbeitet, s.o. Beitrag 18
Suchen
Antworten Top
Thema geschlossen 


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste