Thema Datum  Von Nutzer Rating
Antwort
Rot Code läuft nicht, keine Fehlermeldung
 06.06.2014 12:47:52 Corina
NotSolved
06.06.2014 14:32:26 Amicro2000
NotSolved
06.06.2014 14:56:37 Gast15358
NotSolved
06.06.2014 15:17:35 Amicro2000
NotSolved
10.06.2014 09:00:57 Corina
NotSolved
10.06.2014 09:00:58 Corina
NotSolved
11.06.2014 21:55:31 Hmm..Hmm..
*****
Solved
12.06.2014 09:09:38 Corina
NotSolved
12.06.2014 09:09:38 Corina
NotSolved
12.06.2014 09:09:38 Corina
NotSolved
12.06.2014 21:54:18 Hmm..Hmm..
*****
NotSolved
13.06.2014 09:49:18 Corina
NotSolved

Ansicht des Beitrags:
Von:
Corina		 Datum:
06.06.2014 12:47:52		 Views:
2160		 Rating:
     
Antwort:
  Ja
Thema:
Code läuft nicht, keine Fehlermeldung

Hallo allerseits,

vor längerer Zeit hat man mir hier mit Code geholfen um automatisch Dropdownlisten in einer Tabelle hinzuzufügen bzw. zu entfernen. Nun wollte ich diesen erweitern und habe was geändert, aber er läuft nicht . Bekomme aber auch keine Fehlermeldung -.- Hier ist ein Auszug...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'Shows dropdown entries for reference columns

Application.EnableEvents = False
   
On Error GoTo ErrHandler
   
Dim rngRef    As Excel.Range
Dim rngArea   As Excel.Range
Dim rngCells  As Excel.Range
Dim rngCell   As Excel.Range

Set rngRef = ActiveSheet.UsedRange.Columns
   
' react only to changes within the following range
Select Case rngRef
Case Is = "C"
' check for changes
Set rngCells = Intersect(Target, rngRef)
  If Not rngCells Is Nothing Then
     
    For Each rngArea In rngCells.Areas 'relevant for simultaneous change within several cells
    
      For Each rngCell In rngArea.Cells
         
        With Cells(rngCell.row, "D") 'cell with dropdown list
           
          If Trim$(rngCell.Value) <> "" Then
          '> changed cell contains data => delete dropdown content and set new one
            Call .Validation.Delete
            Call .ClearContents
            Call .Validation.Add(xlValidateList, Formula1:="=Drivers")
          Else
          'changed cell contains data => delete dropdown and content
            Call .Validation.Delete
            Call .ClearContents
          End If
        End With
         
      Next
    Next
     
  End If

Vielen Dank für die Hilfe & schon mal  ein schönes Wochenende!

Viele Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Code läuft nicht, keine Fehlermeldung
 06.06.2014 12:47:52 Corina
NotSolved
06.06.2014 14:32:26 Amicro2000
NotSolved
06.06.2014 14:56:37 Gast15358
NotSolved
06.06.2014 15:17:35 Amicro2000
NotSolved
10.06.2014 09:00:57 Corina
NotSolved
10.06.2014 09:00:58 Corina
NotSolved
11.06.2014 21:55:31 Hmm..Hmm..
*****
Solved
12.06.2014 09:09:38 Corina
NotSolved
12.06.2014 09:09:38 Corina
NotSolved
12.06.2014 09:09:38 Corina
NotSolved
12.06.2014 21:54:18 Hmm..Hmm..
*****
NotSolved
13.06.2014 09:49:18 Corina
NotSolved