VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Laufwerk über InputBox auswählen

Gruppe

Datei

Bereich

Laufwerk

Thema

Laufwerk über InputBox auswählen

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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Laufwerk