Guten Morgen,

mir wurde schon bei einem Problem geholfen und nun möchte ich dieses Makro erweitern aber scheitere leider mit meinem Wissen. Ich hoffe Ihr könnt mir da helfen.
Das unten stehendes Makro würde ich gerne erweitern wenn es geht. Das jetzige Makro sucht die Zeile 6 nach den Namen ab und gibt entsprechenden Wert in der Zeile darunter aus. Ich möchte es gerne so erweitern, dass wenn in Zeile 5 ab Spalte "k" bis "OI"ein "Kurz" steht und in Zeile 6 ein Name, dann soll er den Wert 6 ausgeben. Wenn die Zelle leer ist soll er unten stehendes Makro normal nutzen. Bei den Namen "Mira" und "Jürgen" soll es aber bei den Werten bleiben.

Beispiel:

In P5 steht "Kurz" und in P6 "Anne" dann wäre der wert in P7 gleich 6
in Q5 steht kein "Kurz" und in Q6 "Anne dann wäre der Wert in Q7 gleich12
in R5 steht "Kurz und in R6 "Mira2 dann wäre der Wert in R7 gleich 7.8

ist dies realisierbar?

Ich danke euch jetzt schon allein für das Durchlesen.

Mit freundliche Gruß
der Fragende

Private Sub test()
Dim sp As Long 'Schleifenzähler Spalte
Dim ze As Long 'Zeile
ze = 6 'Zeile = 6
For sp = Range("K" & ze).Column To Range("OI" & ze).Column
Select Case Cells(ze, sp)
Case "Hans", "Peter", "Anne", "Klaus", "Bärbel", "Karl", "Dieter"
Cells(ze + 1, sp) = 12
Case "Ute"
Cells(ze + 1, sp) = 10
Case "Jürgen"
Cells(ze + 1, sp) = 7.8
Case "Mira"
Cells(ze + 1, sp) = 7.8
Case Else
Cells(ze + 1, sp) = ""
End Select
Next
End Sub