Ergebnis aus sverweis per vba in Verküpfung umwand

wossi · 2008-03-09T11:35:31+00:00

Moin, zu meiner vorhergehenden Frage, eine erweiterungsfrage. Ist es möglich, das gefundene Ergebnis aus einem sverweis als direkte Verknüpfung zum Fundort mit vba darzustellen? Wenn, wie? Danke. wossi

Hallo wossi,
vorausgesetzt die Tabelle hat die zugehörigen Werte in den Spalten neben dem Namen, dann ist mein vorheriges Makro wie folgt anzupassen.
Übrigens: hast du hier schon mal geschaut: https://www.herber.de/forum/messages/959256.html
Formelvorschlag zu deinem Problem.
Gruß
Franz


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Zeile As Long, strFormel As String, Zelle As Range, ws As Worksheet
Set ws = Worksheets("Tabelle2")
If Not Intersect(Target, Range("E10:P10")) Is Nothing _
And Target.Cells.Count = 1 Then
If LCase(Target.Value) = "ist" Then
If MsgBox("Sollen die Werte in Spalte " & Target.Column _
& " (" & Chr$(Target.Column + 64) & ") durch die Formel ersetzt werden?", _
vbQuestion + vbYesNo) = vbYes Then
'Wert durch Formel ersetzen für Zeilen mit Eintrag in Spalte 4 eintragen
For Zeile = Target.Row + 2 To Cells(Rows.Count, 4).End(xlUp).Row
If Not IsEmpty(Cells(Zeile, Target.Column)) Then
'Zelle mit dem Namen im Blatt 2 suchen
Set Zelle = ws.Columns.Find(What:=Me.Cells(Zeile, 4).Value, LookIn:=xlValues, _
lookat:=xlWhole)
If Not Zelle Is Nothing Then
strFormel = "='" & ws.Name & "'!R" & Zelle.Row & "C" & Zelle.Column + _
Target.Column - 4
Cells(Zeile, Target.Column).FormulaR1C1 = strFormel
Else
Cells(Zeile, Target.Column).Value = "kein Wert"
End If
End If
Next
End If
End If
End If
End Sub

Hallo,
müsste funktionieren.


Private Sub Worksheet_Change(ByVal Target As Range)
'prüfe ob geänterte Zelle im Bereich F10:P10 ist und ob die geänderte Zelle = "ist" ist
If ((Intersect(Target, Range("E10:E10")) Is Nothing) And LCase(Target) = "ist") Then
'events abschalten
Application.EnableEvents = False
'Formel eintargen von geänderte Zelle 6 Zellen nach unten
Target.Offset(6, 0).FormulaR1C1 = _
"=IF(R[-6]C=""IST"",VLOOKUP(R16C4,Tabelle2!C3:C7,R[-13]C[1],0),"""")"
'Prüfe ob Formel ein wahr ergebnis hat
If Not IsError(Target.Offset(6, 0)) Then
'Suche Zelle für Namen (ist in etwa mit der SVERWEIS Formel gleich zu setzen)
MsgBox Sheets(2).Name & " " & Sheets(2).Range("C:C").Find(What:=Range("D16"), LookAt:= _
xlWhole). _
Offset(0, Target. _
Offset(-7, 1) - 1).Address
End If
ElseIf ((Intersect(Target, Range("E16:E16")) Is Nothing) And LCase(Target.Offset(-6, 0)) = " _
ist") Then
'events abschalten
Application.EnableEvents = False
'Formel eintargen von geänderte Zelle 6 Zellen nach unten
Target.Offset(0, 0).FormulaR1C1 = _
"=IF(R[-6]C=""IST"",VLOOKUP(R16C4,Tabelle2!C3:C7,R[-13]C[1],0),"""")"
'Prüfe ob Formel ein wahr ergebnis hat
If Not IsError(Target.Offset(0, 0)) Then
'Suche Zelle für Namen (ist in etwa mit der SVERWEIS Formel gleich zu setzen)
MsgBox Sheets(2).Name & " " & Sheets(2).Range("C:C").Find(What:=Range("D16"), LookAt:= _
xlWhole). _
Offset(0, Target. _
Offset(-13, 1) - 1).Address
End If
End If
Application.EnableEvents = True
End Sub

Gruß
Tino

Ergebnis aus sverweis per vba in Verküpfung umwand

Forumthread: Ergebnis aus sverweis per vba in Verküpfung umwand

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Ergebnis aus sverweis per vba in Verküpfung umwand

Forumthread: Ergebnis aus sverweis per vba in Verküpfung umwand

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread