Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Laufwerk über InputBox auswählen

Gruppe

Laufwerk

Problem

Die zur Verfügung stehenden Laufwerke (ohne CD-ROM) sollen in einer InputBox zur Auswahl angegeben werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub LaufwerkAuswahl()
   Dim iCounter As Integer
   Dim sDrive As String
   On Error Resume Next
   For iCounter = 97 To 122
      ChDrive Chr(iCounter)
      If Err > 0 Then
         Err.Clear
      Else
         sDrive = sDrive & Chr(iCounter) & ","
      End If
   Next iCounter
   On Error GoTo 0
   sDrive = Left(sDrive, Len(sDrive) - 1)
   sDrive = InputBox( _
      prompt:="Die Laufwerke: " & sDrive, _
      Title:="Bitte ein Laufwerk auswählen")
End Sub