HERBERS Excel-Forum - die Beispiele

Thema: Zelle auswählen, Link erstellen und Format übernehmen

Home

Gruppe

Allgemein

Problem

Wie kann ich über eine InputBox eine Zelle auswählen, das Format zur aktiven Zellen übertragen und dort einen Link zur ausgewählten Zelle erstellen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub BezugMitFormat()
   Dim rng As Range
   Set rng = Application.InputBox _
      (prompt:="Quellbereich angeben:", Type:=8)
   rng.Copy
   ActiveCell.PasteSpecial xlPasteFormats
   ActiveCell.Formula = "=" & rng.Parent.Name & _
      "!" & rng.Address
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Hyperlink

Hyperlink per Code aktivieren, gibt Fehlerhinweis xlDialogInsertHyperlink.show
Hyperlinks in Excel Hyperlink auf Excel-Datei funktioniert nicht
Hyperlinks automatisch starten Hyperlink zu Wordtabelle mit Textmarke
Hyperlink variabel Hyperlink - UserForm
Hyperlink öffnet Arbeitsmappe mit Parametern Hyperlinks finden
Hyperlink zurückwandeln? Hyperlink zurückwandeln?
Hyperlink zurückwandeln? Hyperlink
Hyperlink als Button Hyperlink öffnen - URL in Zelle
Hyperlink ... Verkürzung der Verzeichnisauswahl Hyperlinks - Standardordner ändern
Hyperlink Hyperlink
Hyperlinks Hyperlink
Prüfen ob Hyperlink Allgemeine Frage zur Fehlerbehandlung
Hyperlink und nachträglich Zeilen einfügen allgemeine Fragen zu einer Datenbank
ComboBox mit Hyperlink ListBox1_DblClick Hyperlink öffnen
Hyperlink mit Abfrage hinzufügen Hyperlink als Text
Hyperlink entfernen und Zelle einfärben ? Dateinamen auslesen - aber nicht Hyperlink
Bilder mit Hyperlink Excel: Bei Schutz Gruppierung/Hyperlink/Sortierung
Hyperlink auf Bereich in Arbeitsblatt Hyperlinks per VBA - Dokument defekt?
Hyperlink - Datei wird ausgeblendet Hyperlink verwirrung
Hyperlink nicht starr (absolut) Hyperlink
Hyperlinks innerhab einer Mappe (kein Dateipfad) Hyperlink von Excel zu Word
Hyperlink-Probleme Hyperlink
per Makro Hyperlink generieren Hyperlink auf anderes Tabellenblatt mit VBScript
Hyperlink von Zelle auf anderes Tabellenblatt hyperlink als email mit betreff und cc aus spalte
Hyperlink via WENN-Fkt aktivieren