Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

per VBA Zellen im aktuellen Dokument zu verlinken

per VBA Zellen im aktuellen Dokument zu verlinken
18.12.2012 13:02:43
Vat
Hallo zusammen,
ich suche nach einer Möglichkeit per VBA Zellen im aktuellen Dokument zu verlinken.
Ich habe eine Liste mit 40 Einträgen (fester Bereich A1:A40)
Eintrag1
Eintrag2
Eintrag3
Usw….
Nun möchte ich in einer anderen Spalte, alle 40 Einträge auf jede 16te Zelle verlinken.
z.B.: SpalteB, Start Zelle ist B17
Eintrag1 = B17
Eintrag2 = B33
Eintrag3 = B49
Usw….
Kann mir bitte jemand einen Ansatz geben. Über die Suche habe ich leider nichts gefunden.
V.G. Vat

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

Betreff
Datum
Anwender
Anzeige
AW: per VBA Zellen im aktuellen Dokument zu verlinken
18.12.2012 13:21:03
selli
hallo vat,
Sub test()
z = 1
For i = 17 To 641 Step 16
Cells(i, 2) = Cells(z, 1)
z = z + 1
Next i
End Sub

gruß
selli

AW: per VBA Zellen im aktuellen Dokument zu verlinken
18.12.2012 13:36:46
Vat
Hallo selli,
danke für deine hilfe.
Leider kann ich die zellbereiche nicht anpassen. Das hatte ich mir einfacher vorgestellt...
Meine Bereiche waren nur Beispiele.
Die Liste, mit den 40 Einträgen liegt in AR4:AR43
Dort sollen auch die verlinkungen drauf.
Die Zellen, welche verlinkt werden sollen, sind in Spalte B.
Los geht es in B17 usw.
Immer wenn ich das ganze anpasse wird nur text in die Zellen kopiert.
Kannst du es mir bitte erklären.
V.G. Vat

Anzeige
AW: per VBA Zellen im aktuellen Dokument zu verlinken
18.12.2012 13:45:40
selli
hallo
Ich habe eine Liste mit 40 Einträgen (fester Bereich A1:A40)
davon bin ich ausgegangen.
es passiert also folgendes: der inhalt von A1 wird nach B17 kopiert, der inhalt von A2 wird nach B33 kopiert usw.
wenn du eine wirkliche verlinkung haben möchtest, dann so angepasst an den bereich (AR4:AR43):
Sub test()
z = 4
For i = 17 To 641 Step 16
'Cells(i, 2) = Cells(z, 44)
Cells(i, 2).FormulaLocal = "=AR" & z
z = z + 1
Next i
End Sub
gruß
selli

AW: per VBA Zellen im aktuellen Dokument zu verlinken
18.12.2012 14:02:00
Vat
Hallo selli,
jetzt werden die Listen-Werte in die vorgesehenen Zellen „kopiert“.
Die Bereiche werden quasi schon richtig angesprochen.
Aber ich möchte die Listen-Werte auf diese Zellen „verlinken“ (Hyperlink im aktuellen Dokument)
Wenn ich also den ersten Listenwert anklicke, möchte ich in die erste Zelle B17 springen. Wenn ich den zweiten Listenwert anklicke, möchte ich in die erste Zelle B33 springen usw.
Die Listen-Werte sollen dann eigenzlich in einen Hyperlink umgewandelt sein.
V.G. Vat

Anzeige
AW: per VBA Zellen im aktuellen Dokument zu verlinken
18.12.2012 14:27:04
selli
hallo vat,
Sub test()
z = 4
For i = 17 To 641 Step 16
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(z, 44), Address:="", _
SubAddress:="'" & ActiveSheet.Name & "'!B" & i, TextToDisplay:=ActiveSheet.Cells(z, 44).Text
z = z + 1
Next i
End Sub

gruß
selli

AW: per VBA Zellen im aktuellen Dokument zu verlinken
18.12.2012 14:49:04
Vat
Hallo selli,
Wahnsinn! :)
Das klappt perfekt. Jetzt kann ich das in den 30 sheets ausführen und muss nicht händisch verlinken.
Vielen Dank & V. G.
Vat

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige