VB Doppelter Codeaufruf?
03.05.2005 10:13:54
Slugger
folgendes Problem: Ich lasse in Tabellenblatt "Stammdaten" einen CommandButton vom Tabellenblatt1 aufrufen.
'Stammdaten
Private Sub CommandButton2_Click()
Worksheets("Berechnung").Select
Application.Run "Tabelle1.CommandButton1_Click()"
End Sub
'Tabelle1
Private Sub CommandButton1_Click() 'Dateien überprüfen
MsgBox "Dieser Vorgang wird ca. 45 Minuten in Anspruch nehmen", vbInformation
Columns("A:D").Select
Range("D1").Activate
Selection.EntireColumn.Hidden = False
Dim i As Long
Dim datei As String
Range("a6:c20000").ClearContents
With Application.FileSearch
.LookIn = "H:\FT13\Artikeldatenbank\Saison"
.SearchSubFolders = True
.Filename = "*.xls"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Sheets("Berechnung").Cells(65536, 3).End(xlUp).Offset(5, 0) = Left(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 0)
Sheets("Berechnung").Cells(65536, 2).End(xlUp).Offset(5, 0) = Mid(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)
Next i
End If
End With
Columns("A:A").Select
Selection.NumberFormat = "@"
Range("b6").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, -1).Value = "='"
ActiveCell.Offset(5, 0).Select
Loop
Range("B6").Select
Columns("A:D").Select
Range("D1").Activate
Selection.EntireColumn.Hidden = True
MsgBox "Fertig", vbInformation
End Sub
Komischerweise macht VB diese Prozedur doppelt. keine Ahnung woran das liegt. Der Code vom Tabellenblatt1 habe ich schon oft getestet und der funktioniert.
Nun stelle ich mir die Frage ob ich mit dem Befehl vom Stammdatenblatt (siehe oben Application.Run) etwas falsch gemacht habe.
Wenn hier jemand Rat weiß.... PS. Ich habe es auch mit der Call Anweisung probiert (also anstatt Application.Run) bekomme aber immer nur einen "Stapeldatei" -Fehler.
Gruß
Slugger