per Inputbox möchte ich einen Bereich markieren. Voreingestellt soll sein B5:E50.
Der Wert soll aber überschreibbar sein.
Habe im Archiv kein passendes Beispie gefunden. Wer kann mir helfen?
Gruß und danke
Franz Kupfer
Option Explicit
Sub Franz()
Dim RaAuswahl As Range
Set RaAuswahl = Application.InputBox("Bitte wählen Sie den Bereich", "Drucken", "B5:E50", _
Type:=8)
MsgBox RaAuswahl.Address
Set RaAuswahl = Nothing
End Sub
Gruß HajoPrivate Sub CommandButton1_Click()
b = InputBox("Bitte Matrix eingeben", "Matrix-Abfrage", "B5:E50")
ActiveSheet.Range(b).Select
End Sub
Jochen