Thema Datum  Von Nutzer Rating
Antwort
16.05.2023 16:17:47 Micha
NotSolved
16.05.2023 19:27:52 ralf_b
NotSolved
17.05.2023 09:58:55 Gast56164
NotSolved
Blau Doppelte Werte aus Zelle löschen
17.05.2023 21:18:54 ralf_b
NotSolved
17.05.2023 21:37:29 Micha
NotSolved
17.05.2023 21:47:13 Gast60875
NotSolved
17.05.2023 23:38:33 Micha
NotSolved
18.05.2023 12:45:19 ralf_b
NotSolved
18.05.2023 16:08:29 Micha
NotSolved
18.05.2023 16:15:12 ralf_b
NotSolved
18.05.2023 17:34:08 Gast74475
NotSolved
20.05.2023 15:47:40 Micha
NotSolved
20.05.2023 15:49:57 Micha
NotSolved
20.05.2023 18:30:46 Micha
NotSolved
20.05.2023 20:56:26 ralf_b
NotSolved
20.05.2023 21:48:49 Gast76974
NotSolved
20.05.2023 23:19:33 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b
Datum:
17.05.2023 21:18:54
Views:
313
Rating: Antwort:
  Ja
Thema:
Doppelte Werte aus Zelle löschen

ein Henne - Ei  Problem. Was ist zuerst da und was reagiert dann auf was.

die Fehlenden werden also per Formel ermittelt. 

die Personen,die mit Dropdown ausgewählt werden, ändern sich also machmal nachdem sie eingeplant wurden.  

Somit wird eine Aktion benötigt, die beim Dropdown die Fehlenden berücksichtigt und eine Aktion die, bei Änderung der Fehlenden, die Eintragungen im Dropdownbereich kontrolliert. 

Hier mal ein Versuch, kopiere den Code in das Codemodul des Tabellenblattes. DIe Datenbereiche mußt du an deine realen Größen anpassen. 

Bei Fragen zum Code nutze die Onlinehilfe.  

Private Sub Worksheet_Calculate()  'event wenn Formeln berechnet werden
  Dim x, fund As Range
  Dim rng  As Range: Set rng = Range("b11:d21")
  For Each x In rng.Cells
    If x <> "" Then
     If WorksheetFunction.CountIf(Intersect(ActiveSheet.UsedRange, x.EntireColumn), x.Value) > 1 Then
          Set fund = Intersect(x.EntireColumn, Range("B2:D9")).Find(x.Value, LookIn:=xlValues, Lookat:=xlWhole)
          If Not fund Is Nothing Then
             MsgBox "Person wurde schon eingeplant" 'msgbox kann auskommentiert werden.
             Application.EnableEvents = False
             fund = ""
             Application.EnableEvents = True
          End If
     End If
    End If
  Next
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'event wenn Zellen geändert werden (Dropdown)
  If Not Intersect(Target, Range("B2:D9")) Is Nothing Then
    If Target <> "" Then
       If WorksheetFunction.CountIf(Intersect(ActiveSheet.UsedRange, Target.EntireColumn), Target.Value) > 1 Then
          MsgBox "Person wurde schon ausgewählt oder fehlt"  'msgbox kann auskommentiert werden.
          Application.EnableEvents = False
          Target = ""
          Application.EnableEvents = True
       End If
    End If
  
  End If
  
End Sub

 


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
16.05.2023 16:17:47 Micha
NotSolved
16.05.2023 19:27:52 ralf_b
NotSolved
17.05.2023 09:58:55 Gast56164
NotSolved
Blau Doppelte Werte aus Zelle löschen
17.05.2023 21:18:54 ralf_b
NotSolved
17.05.2023 21:37:29 Micha
NotSolved
17.05.2023 21:47:13 Gast60875
NotSolved
17.05.2023 23:38:33 Micha
NotSolved
18.05.2023 12:45:19 ralf_b
NotSolved
18.05.2023 16:08:29 Micha
NotSolved
18.05.2023 16:15:12 ralf_b
NotSolved
18.05.2023 17:34:08 Gast74475
NotSolved
20.05.2023 15:47:40 Micha
NotSolved
20.05.2023 15:49:57 Micha
NotSolved
20.05.2023 18:30:46 Micha
NotSolved
20.05.2023 20:56:26 ralf_b
NotSolved
20.05.2023 21:48:49 Gast76974
NotSolved
20.05.2023 23:19:33 ralf_b
NotSolved