Formatierung
14.04.2006 08:40:21
crissi
wenn ich mit nachfolgendem Makro die Datei öffne
geht die Formatierung von Datum, wird englsich angezeigt
und die Eurobeiträge in $
Option Explicit
Private Sub CommandButton1_Click()
Dim iCounter As Integer
Dim sPath As String
sPath = ThisWorkbook.Path & "\" & "Rechnungen" & "\"
For iCounter = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iCounter) Then
Workbooks.Open sPath & ListBox1.List(iCounter)
End If
Next iCounter
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim Datei As String
Dim sPath As String
sPath = ThisWorkbook.Path & "\" & "Rechnungen" & "\"
ListBox1.Clear
Datei = Dir(sPath)
Do While Datei <> ""
ListBox1.AddItem Datei
Datei = Dir
Loop
End Sub
Anzeige