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
 
Links zum Thema
Zellbereich mit RefEdit-Steuerelement markieren

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: [ 1346 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 30. Juli 2011