Hallo liebes Forum,
In einer Excel Mappe habe ich sechs Tabellen, die in einem Übersichtsblatt zusammengefaßt aufgezählt werden.
Nr. / Lieferant / Artikel / Beschreibung uws.
Es sind also verschiedene Lieferanen mit verschiedenen Artikeln aus den entsprechenden Tabellen.
Ich habe nun schon die Formel für einen dynamischen Hyperlink, den ich manuell auf den entsprechenden Artikel setzen kann und dann weiter nach unten ziehe, bis der nächste Lieferant kommt. So entstehen Hyperlinks mit unterschiedlichen Bezügen zu den verschiedenen Artikeln in den Tabellenblättern:
Formel:
HYPERLINK("[_Lagerliste03_AL_Mai_09_Umrechnung.xls]#Calderys!A"&VERGLEICH(Calderys!A4;INDIREKT("Calderys!A1:A500");0);Calderys!A4)
Dazu habe ich mir dann wie folgt ein Marko aufgzeichnet (den Hyperlink habe ich von einem Extra-Tabellenblatt jeweils an erste Stelle des entsprechenden Lieferanten kopiert und dann runtergezogen. Beim nächsten Lieferanten habe ich die neue Hyperlink-Adresse verwendet.
Nun möchte ich im Makro anstelle der jeweiligen Autofill-Destination, die sich im Verzeichnis ja ändert, wenn gelöscht und eingefügt wird, jeweils eine If-Funktion, die besagen soll:
if range D7:D500 title = NameLieferant1), dann Hyperlinkadresse für diesen Lieferant,.
end if
Geht so etwas? Kann leider kein VBA; so sehen die ersten beiden Lieferanten meines aufgezeichneten Makros aus (Zählliste ist die Seite, von der die Hyperlinks jeweils kopiert habe. Das funktioniert, solange keine Änderungen gemacht werden.
Range("D7").Select
Application.Goto Reference:="CALDERYS!R4C1"
Sheets("Zählliste").Select
Range("B117:H117").Select
Selection.Copy
Sheets("Verzeichnis").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=HYPERLINK(""[_Lagerliste03_AL_Mai_09_Umrechnung.xls]#Calderys!A""&MATCH(CALDERYS!R[-3]C[-3],INDIRECT(""Calderys!A1:A500""),0),CALDERYS!R[-3]C[-3])"
Range("D7").Select
Application.Goto Reference:="CALDERYS!R4C1"
Sheets("Verzeichnis").Select
ActiveCell.FormulaR1C1 = _
"=HYPERLINK(""[_Lagerliste03_AL_Mai_09_Umrechnung.xls]#Calderys!A""&MATCH(CALDERYS!R[-3]C[-3],INDIRECT(""Calderys!A1:A500""),0),CALDERYS!R[-3]C[-3])"
.Cells(ze, 4).Value = Calderys
Range("D107").Select
Sheets("Zählliste").Select
Range("B119:I119").Select
Selection.Copy
Sheets("Verzeichnis").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"=HYPERLINK(""[_Lagerliste03_AL_Mai_09_Umrechnung.xls]#CALDERYS2!A""&MATCH(CALDERYS2!R[-103]C[-3],INDIRECT(""CALDERYS2!A1:A500""),0),CALDERYS2!R[-103]C[-3])"
Range("D107").Select
Application.Goto Reference:="CALDERYS2!R4C1"
Sheets("Verzeichnis").Select
Selection.AutoFill Destination:=Range("D107:D126"), Type:=xlFillDefault
Range("D107:D126").Select
Range("D127").Select
Ich hoffe, das ist eingermaßen verständlich, und es wäre toll, wenn mir dazu jemand einen Rate geben könnte.
Danke im Voraus, svagat