Hallo Gast

Sehr gut dann danke ich dir schon mal herzlich für deine Unterstützung und Hilfe, es ist wirklich toll, dass die Leute hier so engagiert bin. Wenn ich mal Ahnung von dem Zeug habe werde ich das zurückgeben ;-)

Ich habe den Code nun getestet und dieser scheint zu funktionieren.

Wollte diesen nun erweitern mit folgenden Bedingungen:

1. Sverweis in Zusätzliche Spalten einfügen C-AE --> ich gehe davon aus dass ich dann einfach für jede Spalte eine rngSummary.Formula einfüge? Korrekt?

2. Einen separaten Sverweis für die Zeile B mit Suchresultat C (welches als SVerweis ja als Resultat ausgegeben wurde) Geht das im gleichen Code?

Muss ich neu Dimensionieren? Das hat irgendwie nicht geklappt:

Option Explicit

Sub Verbessert()

Dim rngSummary As Excel.Range
 
With Worksheets("Zusammenfassung Ergebnisse")
  Set rngSummary = .Range("C5:C" & .Range("C" & .Rows.Count).End(xlUp).Row)
  If rngSummary.Row < 5 Then Set rngSummary = Nothing
End With

Dim rngControl As Excel.Range

'Zusätzlicher Code für Worksheets ("Rueckmeldungen")? 
'With Worksheets ("Rueckmeldungen")
'Set rngControl = .Range("C4:H" & .Range("C" & .Rows.Count).End(xlUp).Row)
'If rngControl.Row < 5 Then Set rngControl = Nothing
'rngSummary.Formula = "=VLOOKUP($A5," & rngControl.Address(True, True, External:=True) & ", 6, FALSE)"
'A5 ist jedoch auf der Tabelle Zusammenfassung Ergebnisse 

With Worksheets("Steuerungstabelle")
  Set rngControl = .Range("D5:AE" & .Range("D" & .Rows.Count).End(xlUp).Row)
  If rngControl.Row < 5 Then Set rngControl = Nothing
End With
 
If rngSummary Is Nothing _
Or rngControl Is Nothing _
Then
  'es gibt scheinbar keine Daten zum verarbeiten
  Exit Sub
End If
 
rngSummary.Formula = "=VLOOKUP($A5," & rngControl.Address(True, True, External:=True) & ", 2, FALSE)"
rngSummary.Value = rngSummary.Value

End Sub

Sorry für meine wirren Angaben, ich habe das Gefühl mir explodiert der Schädel und ich sehe vor lauter Codezeilen den Wald nicht mehr. 

Ich finde VBA definitiv schwer zu verstehen...