Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Range Variable über Application.InputBox |
17.01.2021 15:42:41 |
avi88 |
|
|
|
17.01.2021 15:54:57 |
Gast55676 |
|
|
|
17.01.2021 16:38:03 |
avi88 |
|
|
|
17.01.2021 17:44:26 |
Gast43450 |
|
|
|
17.01.2021 18:11:09 |
Gast67663 |
|
|
|
17.01.2021 18:31:04 |
Gast76421 |
|
|
Von:
avi88 |
Datum:
17.01.2021 15:42:41 |
Views:
1225 |
Rating:
|
Antwort:
|
Thema:
Range Variable über Application.InputBox |
Hallo Zusammen,
Vermutlich ein easy Anfängerproblem aber ich google seit Tagen und komm nicht weiter.
Ich will über die Application.InputBox mit Type 8 eine Range in eine Variable übergeben und diese dann in mehreren Workbooks verwenden.
Beispielcode:
Option Explicit
Sub test()
Dim FileName As String, awb As Workbook, UserRange As Range
FileName = "H:\Test1.xlsx"
Workbooks.Open FileName
FileName = "H:\Test2.xlsx"
Workbooks.Open FileName
Set UserRange = Application.InputBox("Range", Type:=8)
Workbooks("Test1.xlsx").Activate
Set awb = ActiveWorkbook
'Set UserRange = awb.Sheets(1).Range("D4")
'UserRange = 3
awb.Sheets(1).UserRange = 3
End Sub
Mit den Auskommentierten Zeilen habe ich getestet ob es grundlegend funktioniert. Ich fürchte ich hab noch nicht richtig verstanden was bei dem Type 8 passiert denn wenn ich mit der UserRange Variablen arbeite, kommt die Fehlermeldung Error Code 438. Object doesn't support this property or method.
Kann mir hier jemand helfen und mir sagen wo mein Denkfehler liegt?
Danke
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Range Variable über Application.InputBox |
17.01.2021 15:42:41 |
avi88 |
|
|
|
17.01.2021 15:54:57 |
Gast55676 |
|
|
|
17.01.2021 16:38:03 |
avi88 |
|
|
|
17.01.2021 17:44:26 |
Gast43450 |
|
|
|
17.01.2021 18:11:09 |
Gast67663 |
|
|
|
17.01.2021 18:31:04 |
Gast76421 |
|
|