VBA范围输入框值保持为空？

Question

我已经将一张纸进行了硬编码。但现在，我试图通过询问用户输入来动态获取工作表，例如他要为表提供多少标题，从何处启动表等。

我使用输入框来获取用户的数据。 Titel工作正常，headerlength工作正常。但是rng输入框不起作用。每当我尝试给它一个范围（例如，在输入框G5中键入）时，变量rng保持为空。

这是我到目前为止获得的代码：

Option Explicit
Dim Sht As String
Dim rng As Range
Dim Start As Range
Dim Einde As Range
Dim HeaderLength As Integer
Dim SubTitel() As String
Dim Titel As String
Dim I As Integer

Dim Number As Long

'Standaard template voor de Ruimtelijst
Sub Opmaak()
    'variabelen testen
    'offset om te tellen!
    Sht = "Blad1"
    Set rng = Application.InputBox(prompt:="Waar moet de tabel beginnen?", Type:=8)
    Start = rng.Value
    Titel = InputBox(prompt:="Wat is de Titel van de tabel?")
    HeaderLength = InputBox(prompt:="Hoeveel subtitels wilt u toevoegen?")

    Set Einde = Range(Start).Offset(4, HeaderLength)
    ReDim SubTitel(0 To HeaderLength)
    With Worksheets(Sht)
        .Cells(2, 2).Value = Titel
        For I = 1 To HeaderLength
            SubTitel(I) = InputBox("Wat is de naam van subtitel nummer " & I & "?")

            'Subtitels toevoegen
            .Cells(3, I + 1).Value = SubTitel(I)

            .Cells(2, I + 1).Merge
  Next I

有人可以帮助我将我推向正确的方向吗？

Answer 1

尝试使用鼠标光标选择范围...

否则，您必须明确指定范围。诸如此类：=SheetName!$D$4:$F$4