Office: Dropdown Auswahlliste steuern

Hallo,

Ich wende mich an euch, da ich in Excel nur über Grundwissen verfüge und bei meinem Aktuellem Problem
auch nach längerer Suche in der Onlinehilfe sowie im Netz nicht weiter gekommen bin.


Nun zu dem eigentlichen Problem.


Ich habe eine Tabelle

In deiser sollen per dropdown Auswahlliste Werte einer bestimmten Anlage zugewiesen werden. das ganze wie in der Zeile 4 mit einer Auswahl für die ganze Woche.

Nun würde ich das ganze aber gerne so erweitern dass es für jeden Tag eine dropdown Auswahlliste gibt, welche allerdings von der Wochenliste primär gesteuert werden.

Wenn also bei der letzten Liste der Wert geändert wird, sollen alle Listen in dieser Zeile den selben Wert annehmen.
Die listen sollen für sich aber dann einzeln auswählbar bleiben.

ich hoffe Ihr könnt mir mit dem Problem weiter helfen.


Den Anhang test_wochen_planer1.xlsx betrachten

 

Hallo bertik,

wenn ich Dich richtig verstanden habe möchtest Du folgendes:

- sobald in Spalte "G" ein Wert geändert wird, sollen in der gleichen Zeile die Zellen "B-F" den gleichen Wert bekommen
- die Werte der Zellen "B-F" sollen aber weiterhin auch noch manuell verändert werden können

Mit VBA (also ein Makro) geht das ohne Probleme, ob es auch ohne VBA geht weiß ich nicht.

Mein Lösungsvorschlag:
Füge den folgenden Code in das Modul des Blattes ein, wo Deine Tabelle enthalten ist (siehe auch die angehängte Datei, dort habe ich es Dir eingefügt):

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    With Me
        If Target.Row >= 4 And Target.Row <= 6 And Target.Column = 7 Then
            .Range(.Cells(Target.Row, 2), .Cells(Target.Row, 6)).Value = .Cells(Target.Row, 7).Value
        End If
    End With
    
End Sub

Das "Change-Ereigniss" springt jedesmal an, wenn auf diesem Blatt eine Werteveränderung vorgenommen wird.
Dann Prüft der Code ob die veränderte Zelle sich im definierten Bereich befindet:

Code:

Target.Row >= 4 And Target.Row <= 6

Dies definiert die Zeilen 4 bis 6, das musst Du gegebenenfalls bei Dir dann noch anpassen.

Code:

Target.Column = 7

Hier wird geprüft ob die Veränderung in der 7. Spalte, also "G" vorgenommen wurde.

Wenn also in Spalte "G" in einer der Zellen der Zeilen 4 bis 6 der Wert verändert wird (und nur dann), ändern sich automatisch in der gleichen Zeile auch die Werte der Zellen "B-F".
Der Rest bleibt wie gehabt.

Ich hoffe geholfen zu haben.

Den Anhang test_wochen_planer1.xlsm betrachten

 

gelöst, Danke!!

Hallo Achim

Ich möchte mich erst mal ausdrücklich für die schnelle und sehr ausführliche Hilfe zu meinem Problem bei Dir bedanken.
Von der Lösung bin ich begeistert, es funktioniert nun alles so wie ich mir das erhofft hatte.


Da ich noch einen 2. Wert für jeden Tag einbauen musste, habe ich anhand deines Code folgende Lösung hergeleitet.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
      
    
    With Me
    
        If Target.Row >= 4 And Target.Row <= 6 And Target.Column = 12 Then
            .Range(.Cells(Target.Row, 2), .Cells(Target.Row, 2)).Value = .Cells(Target.Row, 12).Value
            .Range(.Cells(Target.Row, 4), .Cells(Target.Row, 4)).Value = .Cells(Target.Row, 12).Value
            .Range(.Cells(Target.Row, 6), .Cells(Target.Row, 6)).Value = .Cells(Target.Row, 12).Value
            .Range(.Cells(Target.Row, 8), .Cells(Target.Row, 8)).Value = .Cells(Target.Row, 12).Value
            .Range(.Cells(Target.Row, 10), .Cells(Target.Row, 10)).Value = .Cells(Target.Row, 12).Value
        End If
          
        If Target.Row >= 4 And Target.Row <= 6 And Target.Column = 13 Then
            .Range(.Cells(Target.Row, 3), .Cells(Target.Row, 3)).Value = .Cells(Target.Row, 13).Value
            .Range(.Cells(Target.Row, 5), .Cells(Target.Row, 5)).Value = .Cells(Target.Row, 13).Value
            .Range(.Cells(Target.Row, 7), .Cells(Target.Row, 7)).Value = .Cells(Target.Row, 13).Value
            .Range(.Cells(Target.Row, 9), .Cells(Target.Row, 9)).Value = .Cells(Target.Row, 13).Value
            .Range(.Cells(Target.Row, 11), .Cells(Target.Row, 11)).Value = .Cells(Target.Row, 13).Value
        End If
          
    End With
    
End Sub

Den Anhang test_wochen_planer_v2.xlsm betrachten


vielen Dank nochmals !!

Du hast mir damit wirklich sehr geholfen.