Schleifenproblem
22.07.2007 20:46:34
Dieter.K
mit Schleifen steh ich absolut auf dem Kriegsfuß! Kann mir jemand helfen?
Mit folgendem Code lese ich die Seriennummer eines Wechseldatenträgers aus und lasse das Ergebnis in Zelle A1 eintragen. Da es aber vorkommt, daß mehrere Wechseldatenträger im System vorhanden sind, möchte ich gerne ALLE auslesen und die Ergenbisse untereinander (Zelle A1, Zelle A2 usw.) eintragen.
Sub test1()
Dim fs
Dim Laufwerk
Set fs = CreateObject("Scripting.filesystemobject")
On Error Resume Next
For Each Laufwerk In fs.drives
Worksheets("Tabelle1").Range("A1").Value = Laufwerk.SerialNumber
Next
End Sub
Danke für Eure Hilfe.
Gruß
Dieter.K