HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
Inputbox (Type 8), gewählten Bereich ausgeben.
Luu

Hallo Excel Freunde!
Ich habe folgenden Code:
Dim Bereich As Range
Set Bereich = Application.InputBox(prompt:="Bereich eingeben oder mit Maus auswählen", Type:=8)
Wie lasse ich mir nun den ausgewählten Bereich in einer Zelle als Text ausgeben?
Sheets("Admin").Range("I6") = Bereich
wäre zu einfach und funktioniert ja auch nicht.
Schonmal im Voraus vielen Dank für die Hilfe.
Gruß
Luu

AW: Inputbox (Type 8), gewählten Bereich ausgeben.
Hajo_Zi

Hallo luu,
Option Explicit
Sub Luu()
Dim Bereich As Range
Set Bereich = Application.InputBox(prompt:="Bereich eingeben oder mit Maus auswählen", Type: _
=8)
ActiveSheet.Range("I6") = Bereich.Address
End Sub

AW: Inputbox (Type 8), gewählten Bereich ausgeben.
Luu

Hallo Hajo!
Danke, war ja irgendwie einfach... Eine kleine Sache noch, wenn ich den Bereich auf einem anderen Blatt auswähle, schreibt er mir das Blatt jedoch nicht auf.
In der Inputbox steht unten ja der Bereich. Z.B. Testseite!$B$18:$G$316.
Kannst du mir da auch noch weiterhelfen?
AW: Inputbox (Type 8), gewählten Bereich ausgeben.
Luu

ok, erledigt.
bisschen kompliziert, aber es geht.
Sheets("Admin").Range("I9") = Right(Bereich.Address(External:=True), Len(Bereich.Address(External:=True)) - Len(ActiveWorkbook.Name) - 2)
Bereich.Address(External:=True) gibt die adresse mit workbook und sheet wieder. um das workbook wegzukriegen, hab ich den rest drumrum gebastelt.
gruß
luu
AW: Inputbox (Type 8), gewählten Bereich ausgeben.
Hajo_Zi

Hallo luu,
Option Explicit
Sub Luu()
Dim Bereich As Range
Set Bereich = Application.InputBox(prompt:="Bereich eingeben oder mit Maus auswählen", Type: _
=8)
ActiveSheet.Range("I6") = Bereich.Parent.Name & "!" & Bereich.Address
End Sub
Gruß Hajo
AW: Inputbox (Type 8), gewählten Bereich ausgeben.
Luu

Viele Wege führen nach Rom, deiner mit Abkürzung.
Danke