Code und Inhalt der Var
05.05.2003 13:22:54
Basti
Tach,also komischerweise ist der Inhalt der Variablen leer.
hier der code des buttonclick:
Private Sub Projects_Btn_Click()
Application.ScreenUpdating = False
'variablen:
' Pfad Pfad zum Ablageverzeichnis der Datei mit den
' file Datei mit den Projects-sichten
' ImportFile --> wird gepflegt im Modul "globaleWerte"
Dim Pfad, File As String
Pfad = Sheets(UebersichtSheet).Range("B4").Value
File = Sheets(UebersichtSheet).Range("B5").Value
'überprüfung ob die Pfadangabe mit einem backslash endet (ergänzung um selben, wenn nicht).
If Right(Pfad, 1) <> "\" Then Pfad = Pfad + "\"
Workbooks.Open Filename:=Pfad + File
Call Import_Basiskonditionen
Call Filter_operativ
Call Import_Kundenliste
Call Import_TPKonditionen
Call Bonusrechnung
Call Import_ThemenZuordnung
'ursprungsdatei schliessen
Windows(File).Activate
ActiveWindow.Close
Sheets("Uebersicht").Select
Application.ScreenUpdating = True
End Sub
Modul globale Werte:
'Variablen für die Pfade:
Public Pfad, File As String
Prozedur, in der Fehler kommt:
Sub Import_Kundenliste()
Application.ScreenUpdating = False
Dim strsheet As String
strsheet = "Kundenliste alphabetisch"
Windows(File).Activate 'Import der Spalte A (Kundennummer)
Sheets(strsheet).Select
Range("A1:A" & Range("A65536").End(xlUp).Row).Copy
Windows(ImportFile).Activate
Sheets(strsheet).Select
Range("A2").Select
Selection.Insert
dank schon mal...