erik72
Goto Top

Write Anweisung in IF-Schleife will nicht

Hallo VBA Freaks,
ich hänge vor einem mittelschwerem Problem:

Dieses Form erstellt zu jeder angehakten Checkbox eine Datei mit dem Checkboxnamen.
Wie bekomme ich nun die neu erstellten Dateien mit Text gefüllt?
Leider funktioniert der Write #1, "Inhalt" nicht.


Private Sub Uebergabe_Click()

Dim CoCb As Control
For Each CoCb In Me.Controls ' Schleife über alle Steuerelemente der UserForm
If TypeName(CoCb) = "CheckBox" Then ' Typ des Steuerelementes prüfen
If CoCb.Value = True Then _
Open "D:\Dateien\" & Mid(CoCb.Name, 5) For Output As #1
Write #1, "Inhalt" ' <<<<<<<<<<das geht leider nicht
Close #1
End If
Next
End Sub

Danke für jeden Lösungsansatz
Gruß
Erik

Content-Key: 101941

Url: https://administrator.de/contentid/101941

Ausgedruckt am: 29.03.2024 um 08:03 Uhr

Mitglied: Erik72
Erik72 16.11.2008 um 17:52:06 Uhr
Goto Top
Manchmal findet man den Unterstrich selber face-wink

Sorry für die dumme Frage...

If CoCb.Value = True Then
Open "D:\Dateien\" & Mid(CoCb.Name, 5) For Output As #1
Write #1, "Inhalt"