Wenn dann S-Verweis

https://www.herber.de/bbs/user/152651.xlsm
Hallo zusammen,
bitte um Hilfe :-)
Das Problem habe ich wie folgt beschrieben und eine Mappe angehängt. Was fehlt im Code, bzw. was ist falsch?
Kann mir jemand freundlicherweise helfen?
Herzlichen Dank.
VG Eisi :-)
--------------------------------------------------------
Aufgabe: Hole den Hyperlink
1. Suche den Farbcode 16638867 in der Spalte B (=B10 und B28)
2. Sverweis >>- Suchbegriffe: Kennung 404 + 408 in der Zelle C13 + C31= Offset 4, 2 >> Es können auch mehr Suchbegriffe sein, je nachdem wie viele Tabellen untereinander stehen.
- Matrix: tbl_H_Zubehoer_nachtraeglich
- Spalte: 55 = BC
3. Den Link aus Sverweis hier hin übertragen >>
- Sheet: AngebotDrucken immer >> = Offset 4, 3

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Wer zählen kann (Offset-Werte), ist im Vorteil :)
Abgesehen davon, es reicht nicht die Worksheet-Funktion als Variable zu dimensionieren, du müsstest der Variable auch noch ein Objekt zuordnen.


Sub HyperlinksNeuSetzen_ZubehoerNachtraeglich()
Dim lngZeile As Long, lngZeileMax As Long
Dim rngBereich As Range
Dim wsf As WorksheetFunction: Set wsf = Application.WorksheetFunction
Dim wsAngebot As Worksheet
Dim wsZubehoer As Worksheet
Set wsAngebot = tbl_AngebotDrucken
Set wsZubehoer = tbl_H_Zubehoer_nachtraeglich
Set rngBereich = wsZubehoer.Range("A2:BC300")
With wsAngebot
lngZeileMax = .Range("B" & .Rows.Count).End(xlUp).Row
For lngZeile = 10 To lngZeileMax
If .Range("B" & lngZeile).Interior.Color = 16638867 Then
.Range("B" & lngZeile).Offset(3, 2).Value = wsf.VLookup(.Range("B" & lngZeile).Offset(3, 1).Value, rngBereich, 55, False)
.Range("B" & lngZeile).Offset(3, 2).Font.Size = 9
End If
Next lngZeile
End With
End Sub

cu
Chris

Sub HyperlinksNeuSetzen_ZubehoerNachtraeglich() Dim lngZeile As Long, lngZeileMax As Long Dim rngBereich As Range Dim wsf As WorksheetFunction: Set wsf = Application.WorksheetFunction Dim wsAngebot As Worksheet Dim wsZubehoer As Worksheet Set wsAngebot = tbl_AngebotDrucken Set wsZubehoer = tbl_H_Zubehoer_nachtraeglich Set rngBereich = wsZubehoer.Range("A2:BC300") With wsAngebot lngZeileMax = .Range("B" & .Rows.Count).End(xlUp).Row For lngZeile = 10 To lngZeileMax If .Range("B" & lngZeile).Interior.Color = 16638867 Then .Range("B" & lngZeile).Offset(3, 2).MergeArea.ClearContents .Hyperlinks.Add Anchor:=.Range("B" & lngZeile).Offset(3, 2), _ Address:=wsf.VLookup(.Range("B" & lngZeile).Offset(3, 1).Value, rngBereich, 55, False), _ TextToDisplay:="Datenblatt" .Range("B" & lngZeile).Offset(3, 2).Font.Size = 9 End If Next lngZeile End With End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread