Typen unverträglich bei Range
10.05.2020 23:10:05
Klaus
habe Fragen zu drei Vorgängen in folgendem Makro. Der zweite Vorgang erzeugt eine Fehlermeldung.
Warum?
Warum erzeugen Vorgang1 und 3 keine Fehlermeldung?
Musterdatei ist keine erforderlich. Staht alles im Makro. Es soll ein Bereich an eine andere Stelle kopiert werden.
Sub Versuch()
Dim rBereich As Range
Dim DatA() As Variant
Range("A1:B2") = "Abc"
'Vorgang 1, geht ohne Fehler.
Set rBereich = Application.InputBox("Bitte Bereich " & _
"wählen ", Type:=8)
DatA = rBereich.CurrentRegion
'Fehler, weil "Typen unverträglich". Warum?
DatA = Application.InputBox("Bitte Bereich wählen A", Type:=8)
'Vorgang 3, geht ohne Fehler.
Application.InputBox("Einfügepunkt wählen", _
Type:=8).Resize(UBound(DatA, 1), UBound(DatA, 2)).Value = _
DatA
End Sub
In allen Fällen gibt Inputbox einen Range zurück, denke ich. Gruss, Klaus