无法在输入框中输入范围

Question

问题

我想通过询问用户输入（从哪里开始表格、有多少标题等）来使我的硬编码工作表动态化

我尝试使用输入框询问用户的输入，标题和标题输入工作但不知何故 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

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

否则，您必须明确指定范围。类似的东西：

=D4:F4

或（来自其他工作表）：

=SheetName!$D$4:$F$4

为了正确使用 InputBox 结果，您还必须更改

Dim Start As Range 与 Dim Start As Variant。