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...
|