Office: (Office 365) Keine Produktion verblasst anzeigen

Hallo Zusammen,

habe ein Datei in der Datenüberprüfungs Liste Werte eingegeben (Ausgewählt) werden.
Solange aber kein Wert ausgewählt ist soll in den Zellen "Keine Produktion" stehen.
Sobald ein Wert ausgewählt wird soll diesen angezeigt werden.

Wird der Wert wieder gelöscht soll wider "Keine Produktion" in der Zelle stehen.
Wie kann man es anstellen ?
Habe schon was mit bedingter Formatierung versucht hat aber nicht funktioniert.
Betroffen sind die Zellen:
A8:M11
A16:M19
A24:M27
A32:M35
A40:M43
Eine Beispieldatei ist im Anhang.

 

Hallo Merkur,

die Aufgabe wurde nicht komplett beschrieben da Du die Lösung selber anpassen wolltest.
Viel Erfolg. Ich bin dann raus. Da Lösung erstellt.

Verbundene Zellen sind das schlimmste was es in Excel gibt.

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        Application.EnableEvents = False
            Dim Razelle As Range
            Dim BoVor As Boolean
            Dim Razelle2 As Range
            Set Razelle2 = Target
            For Each Razelle In Selection
                If Razelle <> "" Then
                    BoVor = True
                    Exit For
                End If
            Next Razelle
            If BoVor = False Then
                Target.Offset(0, 1) = "keine Produktion"
            Else
                Range("E" & Razelle2.Row) = ""
            End If
        Application.EnableEvents = True
        Set Razelle2 = Nothing
    End If
End Sub

 

Hallo Hajo,

der von Dir bereitgestellte Code wurde von mir im VBA Editor in besagte Tabelle kopiert.
Leider funktioniert er nicht .

 

Hallo,

da du dir den Unfug der verbundenen Zellen unbedingt leisten musst, ist das Makro natürlich umfangreicher.
Es ist anstelle des vorigen Makros zu platzieren.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngValCells As Range
   'Ermittle alle Zellen des Arbeitsblattes mit Eingabe-Validierung
    Set rngValCells = Me.Cells.SpecialCells(xlCellTypeAllValidation)
   'Überprüfe, ob die Zellen mit Wertänderung in vorgenannten Zellen enthalten sind
    If Not Intersect(Target, rngValCells) Is Nothing Then
       'Ja, die Wertänderungszellen (Target) besitzen eine Eingabe-Validierung
      
        On Error GoTo Exit_WsChange
        Application.EnableEvents = False
      
        Dim Zelle As Range
        For Each Zelle In rngValCells.Cells
           'Teste, ob Zelle Teil eines Zellverbundes ist:
            If Zelle.MergeCells Then
             'ja: Teste, ob Zelle die linke obere Ecke des Zellverbundes ist
              If Not Intersect(Zelle.MergeArea.Cells(1, 1), Zelle) Is Nothing Then
                 If IsEmpty(Zelle) Then
                   'Nur wenn Zelle als die obere linke Ecke des Zellverbundes leer ist:
                    Zelle.Value = "keine Produktion"
                 End If
              End If
            ElseIf IsEmpty(Zelle) Then
              'Zelle gehört keinem Zellverbund an, sie ist aber leer:
               Zelle.Value = "keine Produktion"
            End If
        Next Zelle
          
Exit_WsChange:
        Application.EnableEvents = True
    End If
  
End Sub

 

Hallo Anton Exl,

herzlichen Dank für diese geniale Arbeit.

Leider habe ich noch keine Lösung gefunden,bei solchen Tabellen ohne verbundene Zellen zu arbeiten.
Hast Du da eventuell einen Tipp ?

 

Hallo,

verbundene Zellen enthalten keine Information (weder Formeln noch Zahlen/Textkonstanten). Sie nehmen nur Platz weg und sind nur ärgerlich bei vielen Operationen.

Auch in deiner Datei musste ich die verbundenen Zellen im Makro speziell behandeln. Da in einem Zellverbund nur die linke obere Zelle eine Formel bzw. einen Wert enthalten kann, bleiben somit alle Zellen (außer dieser linken oberen Zelle) stets leer. Hätte ich sie nicht speziell behandelt, hätte das Makro jedes Mal versucht, alle diese überflüssigen Zellen auszufüllen (weil ISEMPTY(..)=True), ohne sie aber ausfüllen zu können - also jedes Mal eine Fülle an Sinnlos-Aktionen. Anders herum könnte man sich ohne Verbundzellen die vielen Abfragen auf Verbund-Bereiche/Zellen ersparen, was auch das Makro nochmals erheblich vereinfachen würde - einerseits was die Codelänge betrifft, andererseits was die Ausführungszeit des Makros betrifft.

In deinem Fall, so weit ich das sehen konnte, ist es doch ganz einfach: Du hast in deiner Datei immer 2 nebeneinander liegende Zellen (insbesondere DropDown-Zellen) verbunden. Auch die Überschriftzeilen teilen das gleiche Schicksal.
Warum machst du nicht daraus je 1 Zelle, die doppelt so breit ist, um das Gleiche an Information anzeigen zu können?