Shape ein hyperlink hinzufügen auf ein Tabellenblatt
15.12.2023 11:40:25
Gärtnervonhindedrüben
Ich habe nicht die prächtige Ahnung die man haben sollte :D
Ich habe mit vba einen code geschrieben(zusammengesetzt)
Ich bin auf dem Blatt GWH
Als erstes erstellt es mir ein neues Tabellenblatt mit dem Namen aus B11 und B12
dann ein Rechteck mit dem Namen aus B11 und B12
Nun möchte Ich gerne das wenn das Rechteck welches erstellt wird
mit einem link verknüpft wird
der auf das Tabellenblatt mit dem Namen aus B11 und 12 führt
welches vorher erstelllt wurde.
Sodass Ich wenn ich das Rechteck auswähle immer auf das Tabellenblatt komme
Momentaner Code
Dim ws As Worksheet
Dim targetRange As Range
Dim rect As shape
'Abfrage ob Tabellenblatt bereits besteht
Dim newName As String
Set ws = ThisWorkbook.ActiveSheet ' Aktives Arbeitsblatt
' Überprüfe, ob die Zellen B11 und B12 nicht leer sind
If ws.Range("B11").Value > "" And ws.Range("B12").Value > "" Then
newName = ws.Range("B11").Value & " " & ws.Range("B12").Value ' Kombiniere den Namen aus B11 und B12
' Überprüfe, ob der Name bereits existiert
If Not SheetExists(newName) Then
' Füge ein neues Tabellenblatt mit dem Namen ein
ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)).Name = newName
Set ws = ThisWorkbook.Sheets("GWH")
' Erstelle ein neues Rechteck mit den Größen aus Zelle H14 und H15
Set rect = ws.Shapes.AddShape(msoShapeRectangle, rng.Left, rng.Top, ws.Range("H14").Value * 1, ws.Range("H15").Value * 1)
' Benenne das Rechteck als "Name au B11 und B12"
rect.Name = ws.Range("B11").Value & " " & ws.Range("B12").Value ' Kombiniere den Namen aus B11 und B12
Ich habe das ein oder andere ausprobiert Ich bin am Ende kann jm. helfen