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?
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