Sub oder Function nicht definiert

Als Autodidakt habe ich nicht gelernt, was es zu wissen gibt über Excel-VBA. Die Hölle, um ehrlich zu sein, ich weiß, einige Grundlagen, aber nicht so viel wie ich sollte wohl, so dass diese Frage wohl eine Allgemeine grundlegende Frage, sollte wohl bekannt sein, jemand, der weiß, VBA, aber in dem Fall ich lernen, was ich brauche, um vorwärts zu bewegen... also brauche ich eine Erklärung.

Wenn Sie brauchen, um zu definieren, eine Sub oder Funktion? Warum brauchen Sie, um zu definieren, eine Sub oder Funktion? Was ist der Zweck der Definition einer Sub oder Funktion?

Ich Frage nur, weil dieses:

Option Explicit

Sub OpenOrderReportExport()

    Dim wsJL As Worksheet   'Jobs List
    Dim wsPOT As Worksheet  'PO Tracking
    Dim wsTNO As Worksheet  'Tel-Nexx OOR
    Dim wbBK2 As Workbook   'New Workbook
    Dim wsWS1 As Worksheet  'Sheet1
    Dim wsWS2 As Worksheet  'Sheet2
    Dim wsWS3 As Worksheet  'Sheet3


    Set wsJL = Sheets("Jobs List")      'Jobs List
    Set wsPOT = Sheets("PO Tracking")   'PO Tracking
    Set wsTNO = Sheets("Tel-Nexx OOR")  'Tel-Nexx OOR
    Set wbBK2 = Workbook("Book2")       'New Workbook
    Set wsWS1 = Sheets("Sheet1")        'Sheet1
    Set wsWS2 = Sheets("Sheet2")        'Sheet2
    Set wsWS3 = Sheets("Sheet3")        'Sheet3

        Application.ScreenUpdating = False    ' Prevents screen refreshing.
        CurrentFile = ThisWorkbook.FullName
        NewFileType = "Excel Files 2007 (*.xlsx)"
        NewFile = Application.GetSaveAsFilename(InitialFileName:="Open Order Log - " & Format(Date, "dd-mm-yyyy") & ".txt", fileFilter:=NewFileType)

End Sub

Warum dieser sub definiert werden müssen? Ich sage es wie ein standard-Modul, und arbeitet an der Einrichtung, so dass-sobald eine Taste gedrückt wird, werde ich in der Lage sein, sich zu bewegen, ein paar Blätter in eine neue Arbeitsmappe zu löschen, die leer sind, und gehen von dort aus mit einer save-Funktion, die Sie erzählen, wo Sie zu speichern.

Ich habe einen langen Weg zu gehen, aber ich wollte die Funktion "speichern", und gehen von dort aus, weil mir das wird das schwierigste sein.

Also ohne die Lösung meines ganzen Rätsel, ich würde gerne wissen, warum so etwas wie dies definiert werden muss? Und wie es definiert werden muss... wenn jemand könnte eine Antwort geben, die es sehr geschätzt werden.

Es klingt wie Sie eine Fehlermeldung, die besagt, dass der Sub oder Funktion nicht definiert ist. Diese Art von Fehler bedeutet, dass der Anruf, den Sie aus einer subroutine oder einer Funktion ist derzeit nicht im Modul definiert - im Grunde ist es nicht vorhanden. Meine Vermutung auf immer, wo Sie die Fehler in der Anwendung.GetSaveAsFilename.

InformationsquelleAutor Matt Ridge | 2012-08-31

2

Ihnen sind Missverständnisse das problem.

Den folgenden code-Zeile ist falsch. Ist es nicht eine neue Arbeitsmappe erstellen, wie Sie denken, es tut. Die Funktion Workbook nicht existieren, wenn Sie versuchen, Sie auszuführen/kompilieren des VBA-editor meckert, dass die Funktion nicht vorhanden ist.
```
Set wbBK2 = Workbook("Book2")       'New Workbook
```
Ändern
```
set wbBK2 = Workbooks.add
```
und es wird eine neue Arbeitsmappe erstellen und speichern Sie einen Verweis in wbBK2. Alternativ kann die Referenz auf eine geöffnete Arbeitsmappe durch hinzufügen eines "s" zu Workbook wenn Sie nicht versuchen, einen neuen zu machen:
```
Set wbBK2 = Workbooks("Book2")       'New Workbook
```
Müssen Sie zudem die dimension, die diese Variablen als strings schließlich:
```
    Dim CurrentFile as String        
    Dim NewFileType as String
    Dim NewFile as String

    CurrentFile = ThisWorkbook.FullName
    NewFileType = "Excel Files 2007 (*.xlsx)"
    NewFile = Application.GetSaveAsFilename(InitialFileName:="Open Order Log - " & Format(Date, "dd-mm-yyyy") & ".txt", fileFilter:=NewFileType)
```
Einer anderen Anmerkung, auch wenn Sie
```
Set wsWS1 = Sheets("Sheet1")        'Sheet1
Set wsWS2 = Sheets("Sheet2")        'Sheet2
Set wsWS3 = Sheets("Sheet3")        'Sheet3
```
Werden Sie wahrscheinlich wollen, um dies zu ändern, verweisen die Blätter in der anderen Arbeitsmappe
```
Set wsWS1 = wbBK2.Sheets("Sheet1")        'Sheet1
Set wsWS2 = wbBK2.Sheets("Sheet2")        'Sheet2
Set wsWS3 = wbBK2.Sheets("Sheet3")        'Sheet3
```
da es Recht hilfreich sein, Recht behalten, Verweise auf diese Blätter, auch wenn Sie zusätzliche Arbeitsmappen.
- das ist Rätselraten auf der Grundlage der OP - die ist ungenau. Sie haben einige ziemlich viel Arbeit in die Beantwortung der Frage, also ich möchte nicht zu markieren Sie Ihre Antwort unten.
- Sie erkennen, dass ich die Antwort des OP ' s eigentliche Thema am Anfang, richtig? Das problem, das der OP hatte, war ein "sub nicht definiert" - Fehler." Dies war sicherlich verursacht durch die code Set wbBK2 = Workbook("Book2")
- & DIE DREI nicht definierte NAMEN WURDEN WIRFT DEN GLEICHEN FEHLER. Alle neben dem Punkt der OP war vage + ich Mühe in meine Antwort, die die OPer nicht sagen, war falsch; daher -1 war unangebracht. (beachten Sie, dass ich bearbeitet und verbessert deine Antwort ich.e hielt sich an den Allgemeinen Geist der SO)
- Interessant. Ich erhalte "Variable nicht definiert" Fehler bei der Kompilierung ausführen von code, die nur mit diesen Zeilen - welche Excel-version benutzt du?
InformationsquelleAutor enderland
5

Dein post dreht sich alles um die folgenden Fragen so lassen Sie mich erklären Ihnen eins nach dem anderen.

IHRE FRAGEN
1. Wenn Sie brauchen, um zu definieren, eine Sub oder Funktion?
2. Warum tun Sie müssen definieren, eine Sub oder Funktion?
3. Was ist der Zweck der Definition einer Sub oder Funktion?
4. Warum dieser sub definiert werden müssen?
VBA Unterstützt zwei Arten von Prozeduren: Sub-Prozeduren und Function-Prozeduren.

Einen Sub-Prozedur besteht aus Reihe von Anweisungen und ausgeführt werden können, in eine Reihe von Möglichkeiten, zum Beispiel
```
Sub Sample()
    MsgBox "Hello Matt Ridge"
End Sub
```
oder
```
Sub Sample()
    Sample1 "Hello Matt Ridge"
End Sub

Sub Sample1(s As String)
    MsgBox s
End Sub
```
Einen VBA - Funktion auf der anderen Seite einen einzelnen Wert zurückgibt, oder möglicherweise ein array. Eine Funktion kann aufgerufen werden aus einem anderen VBA-Prozedur oder in einem Arbeitsblatt Formel. Zum Beispiel
```
Sub Sample()
    Dim Ret As String

    Ret = GreetUser("Matt Ridge")

    MsgBox Ret
End Sub

Public Function GreetUser(User As String)
    GreetUser = "Hello " & User
End Function
```
Die gleiche Funktion kann auch aufgerufen werden in einem Arbeitsblatt. Zum Beispiel von Zelle A1 hat Matt Ridge und wenn Sie diese Formel in Zelle B1
```
=GreetUser(A1)
```
Erhalten Sie Hello Matt Ridge in Zelle B1. Siehe unten im snapshot.

Nun suchen Sie in Ihren code.

Wenn Sie sagen,
```
    Dim wbBK2 As Workbook 
```
Dann VBA erwartet, dass Sie die variable entsprechend als enderland erwähnt. In Ihrem Fall, VBA ist auf der Suche nach WORKBOOKS() die eine eingebaute Methode. Allerdings, wenn VBA sieht WORKBOOK() die es nicht erkennen, es versucht zu finden, die SUB PROCEDURE im Modul (in der Hoffnung, dass Sie möglicherweise definiert haben, es irgendwo) und wenn Sie dort nicht gefunden, es erscheint dieser Fehler. 🙂

Hoffe, dies beantwortet Ihre Fragen.
- Dies ist eine gute Antwort, die bekommt das Herz die Frage der Ausgabe. +1
InformationsquelleAutor Siddharth Rout

Das problem, das Sie haben ist, dass Sie areb mit der OPTION AUSDRÜCKLICHEN, was bedeutet, alle Variablen mst definiert werden.
Ein Weg, dies zu erreichen und machen den code schöner und lesbarer ist die Verwendung von Doppelpunkt als Linie contiuation, wenn Sie zuerst definieren, und legen Sie das Objekt:

Beispiel Unten:

Option Explicit 

Sub OpenOrderReportExport() 

    Dim wsJL As Worksheet:  Set wsJL = Sheets("Jobs List")      'Jobs List 
    Dim wsPOT As Worksheet: Set wsPOT = Sheets("PO Tracking")   'PO Tracking 
    Dim wsTNO As Worksheet: Set wsTNO = Sheets("Tel-Nexx OOR")  'Tel-Nexx OOR
    Dim wbBK2 As Workbook:  Set wbBK2 = Workbook("Book2")       'New Workbook 
    Dim wsWS1 As Worksheet: Set wsWS1 = wbBK2.Sheets("Sheet1")  'Sheet1 
    Dim wsWS2 As Worksheet: Set wsWS2 = wbBK2.Sheets("Sheet2")  'Sheet2  
    Dim wsWS3 As Worksheet: Set wsWS3 = wbBK2.Sheets("Sheet3")  'Sheet3 

    Application.ScreenUpdating = False    ' Prevents screen refreshing. 
    Dim CurrentFile as string: CurrentFile = ThisWorkbook.FullName 
    Dim NewFileType as string: NewFileType = "Excel Files 2007 (*.xlsx)" 
    Dim NewFileType as string: NewFile = Application.GetSaveAsFilename(InitialFileName:="Open Order Log - " & Format(Date, "dd-mm-yyyy") & ".txt", fileFilter:=NewFileType) 

End Sub

InformationsquelleAutor The_Barman

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.