![]() |
|
Tipp 0079
|
Zellbereich über InputBox markieren
|
 |
|
Autor/Einsender:
Datum: |
|
Angie
23.04.2005 (Update) |
|
| Entwicklungsumgebung: |
|
Excel 2000 |
|
|
|
Mit der InputBox-Methode ist es möglich, bequem einen bzw. mehrere
Zellbereiche auszuwählen.
Die InputBox-Methode unterscheidet sich von der InputBox-Funktion insofern als es mit ihr
möglich ist, die Eingabe des Anwenders auszuwerten und sie mit Microsoft Excel-Objekten,
-Fehlerwerten und -Formeln zu verwenden.
|
|
Die InputBox-Methode wird mit Application.InputBox, InputBox ohne
Objektkennzeichner mit der InputBox-Funktion aufgerufen. Wird bei der
InputBox-Methode das Type-Argument auf 8 gesetzt,
gibt diese ein Range-Objekt zurück. Ohne Angabe des Type-Arguments
gibt das Dialogfeld den Datentyp Text zurück.
|
|
| |
Option Explicit
Public Sub InputBoxSelectRange()
Dim rngSelect As Range
Dim msgTitel As String
msgTitel = "Demo - Zellbereich markieren mit InputBox"
On Error Resume Next
Set rngSelect = Application.InputBox _
(Prompt:="Bitte einen Zellbereich auf dem Tabellenblatt " & _
"markieren..." & vbCrLf & vbCrLf & "Um mehrere Bereiche " & _
"zu markieren, halten Sie die Strg-Taste gedrückt und " & _
"markieren Sie den nächsten Bereich.", _
Title:=msgTitel, Type:=8)
If Not rngSelect Is Nothing Then
MsgBox "Folgender Bereich wurde ausgewählt:" & vbCrLf & _
rngSelect.Address, , msgTitel
rngSelect.Interior.Color = RGB(255, 255, 0)
Else
MsgBox "Sie haben keinen Bereich ausgewählt !", _
vbOKOnly + vbInformation, msgTitel
End If
End Sub
|
|
|
|
|
|
|
| Windows-Version |
| 95 |
 |
|
| 98/SE |
|
|
| ME |
|
|
| NT |
|
|
| 2000 |
|
|
| XP |
|
|
| Vista |
|
|
| Win
7 |
|
|
|
| Excel-Version |
| 95 |
 |
|
| 97 |
|
|
| 2000 |
|
|
| 2002
(XP) |
|
|
| 2003 |
|
|
| 2007 |
|
|
| 2010 |
|
|
|
|
Download (12,2 kB)
|
Downloads bisher: [ 1344 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 