Private Sub Test()
Dim Eingabe As String
Eingabe = Application.InputBox("Bitte geben sie eine Arbeitsgruppe ein z.B.: 1," & _
  "2, 3...:", "Eingabe", , 20, 20, , , 2)
 
If Eingabe = "1" Then
Debug.Print (Range("A3:A8"))
 
End If
 
 
End Sub