Office: Automatisch einn Eintrag zu einem Namen zuordnen

Hallo,
ich habe eine Tabelle in Spalte E stehen Namen, in Spalte D ist jeweils eine Raumnummer zugeordnet, jetzt möchte ich wenn in Spalte E nochmals ein Name eingesetzt wird, das automatisch in Spalte D die letzte jemals zugeordnete Raumnummer eingefügt wird. Allerdings möchte ich auch, das die Raumnummer in Spalte D überschrieben werden kann. Es kann also passieren das einem Namen mehrere Raumnummern zugeordnet sind.
Danke schonmal

 

Hallo,

in der beiliegenden Datei habe ich dir im Codemodul für Arbeitsblatt "Tabelle1" folgendes VBA-Makro eingefügt:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With Target
    'Target: ist die aktuelle Zellauswahl
    If .Cells.Count > 1 Then Exit Sub
    If .Row = 1 Then Exit Sub
  
    'Target besteht nur aus 1 Zelle und ist nicht in Zeile 1 enthalten
    With .EntireRow
      If IsEmpty(.Cells(0, 5)) Then Exit Sub
      'Die Zelle in Spalte E der vorherigen Zeile ist nicht leer
      If IsEmpty(.Cells(4)) And Len(.Cells(5)) > 0 Then
        'Da in der aktuellen Zeile die Zelle in Spalte D leer ist und die Zelle in Spalte E einen Namen enthält,
        'kopiere in Spalte D den Zellwert aus der voherigen Zeile in die aktuelle Zeile
        .Cells(4).Value = .Cells(0, 4).Value
      End If
    End With
  
  End With
End Sub

Es ist nur im Arbeitsblatt "Tabelle1" wirksam und wirkt sich nur auf die Zeile mit der aktiven Zelle aus. Falls in dieser in Spalte E ein Name enthalten ist und die Zelle in Spalte D noch leer ist, wird in Spalte D der Zellwert der Vorzeile in die aktuelle Zeile übernommen.

 

Danke, dies entspricht nicht so dem gewünschten, wie im Beispiel hat Anton die 55 wenn ich dann Anton wieder eintrage soll wieder die 55 dastehen :-(

 

Hallo, mit einer Formel geht es mit "SVERWEIS(B1;B$1:C100;2;0)",das sieht ganz gut aus. Hat allerdings einen Haken, hier wird der Wert aus Spalte B genommen und aus Spalte C die Zuordnung gesucht,allerdings wenn sich der in Spalte C ein neuer Eintrag ergibt wird das ignoriert.
Ich möchte das Ganze genau anderst herum, in Spalte C schreibe ich einen Namen und aus Spalte B soll immer der letzte Wert automatisch eingesetzt werden, allerdings muss es möglich sein den Wert auch manuell zu setzen, dann soll immer der letzte Wert genommen werden. Das Ganze dann noch als Makro :-).
Wünsche kann man ja haben :-) , Danke schonmal