ich habe folgendes Problem:
Ich möchte einen Array mit 18 Strings in einem Modul von mehreren Funktionen benutzen.
so sieht dieser Array aus:
Dateien = Array("\\NTSERVER\mustermann\Zeiten+Projekte\Zeiterfassungsblatt_Mustermann.xls", _
"\\NTSERVER\musterfrau\Zeiten+Projekte\Zeiterfassungsblatt_Musterfrau.xls")
und so habe ich halt 18 Dateipfade in diesem Array gespeichert.
So sieht das Modul bei mir aus:
Public Dateien(18) As String
Option Private Module
Sub Main()
Dim wks As Worksheet, works As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
Dim Istkosten As Long
ProgressDlg.Caption = "Bitte warten..."
Dateien = Array("\\NTSERVER\mustermann\Zeiten+Projekte\Zeiterfassungsblatt_Mustermann.xls", _
"\\NTSERVER\musterfrau\Zeiten+Projekte\Zeiterfassungsblatt_Musterfrau.xls")
...usw..
....
End Sub
Sub ProgressBar(PctDone As Single)
...
End Sub
Function DateiIstFrei(ByVal sDateiname As String) As Boolean
....
End Function
Sub Aufheben()
....
End Sub
Sub Schutz()
....
End Sub
Sub Auftrag_dazwischen(zeile as Integer)
Dim datei1 As String
datei1 = Dateien(1)
....
End Sub
jetzt möchte ich zum Beispiel in der Funktion Auftrag_dazwischen auf Dateien(1) zugreifen.
Ich danke euch schon mal
MfG
Steffen D