Probleme mit VBA
16.12.2004 22:52:45
Yilmaz
ich habe da ein kleines Problem mit mein VBA. Ich habe zwei Module in einem Modul habe ich folgendes Code:
Modul Rechnungssaveprint:
Sheets("Rechnung").Select
[j19] = [j19] + 1
Cells(18, 10).Value = Format(Date, "dd.mm.yy")
Dim sPath As String
Dim Speicherpfad As String
Dim SpeicherpfadDatei As String
Dim Kundenname As String
'NEU
Dim Rechnungen As Worksheet
Set Rechnungen = Sheets("Rechnung")
'NEU
Kundenname = Sheets("Rechnung").Range("E18").Value
SpeicherpfadDatei = Range("e4").Value
Speicherpfad = Range("j15").Value
dat = Range("J18").Value
sPath = "D:\Touren\Faktura\" & Speicherpfad & "\"
On Error Resume Next
MkDir sPath & Year(dat)
sPath = sPath & Year(dat) & "\"
MkDir sPath & Kundenname
sPath = sPath & Kundenname & "\"
MkDir sPath & Format(dat, "mm yyyy")
sPath = sPath & Format(dat, "mm yyyy") & "\"
ActiveSheet.Copy
ActiveWorkbook.SaveAs sPath & _
Range("j19").Value & " " & Range("J15") & " " & Range("E18") & _
" " & Format(dat, " dd-mm-yyyy") & ".xls"
und in dem anderen
Private Sub Worksheet_Activate()
ComboBox1.Clear
'Hier bleibt er stehen!!!!!!!!!!!!
For s = 10 To Worksheets("Kunden").Range("K65536").End(xlUp).Row
If Worksheets("Kunden").Cells(s, 11).Value <> "" Then
If Application.WorksheetFunction.CountIf(Worksheets("Kunden").Range(Worksheets("Kunden").Cells(s, 11), _
Worksheets("Kunden").Cells(1, 11)), Worksheets("Kunden").Cells(s, 11).Value) = 1 _
Then ComboBox1.AddItem (Worksheets("Kunden").Cells(s, 11).Value)
End If
Next
End Sub
Mein Ziel ist Rechnungblatt in einem neuen zu speichern.
Bitte um Hilfe.
Danke und Gruß
Yilmaz
ActiveWorkbook.Close
Anzeige