Hallo,
da mußt Du mal deutlicher werden, wann da was nicht klappt, bei mir klappt das immer...
Option Explicit
Public Sub test()
Dim rng_Ziel_Zelle As Range
Set rng_Ziel_Zelle = Application.InputBox(Prompt:="Bitte Zielzelle auswählen/markieren", Type:=8)
Call MsgBox(rng_Ziel_Zelle.Address)
Set rng_Ziel_Zelle = Nothing
End Sub
Gruß,
|