Excel VBA Werte Suchen, die durch while-Schleife, gespeichert im array, und pass auf unterschiedlichen sub

First off, ich Schätze jede Hilfe, die jedermann anbieten kann. Ich Schreibe ein makro, dass dem Benutzer ein Formular zur Eingabe einer Zifferntaste. Die form wird gesucht in einer Tabelle die-Taste und fügen die entsprechenden Namen an den Schlüssel angehängt. Die Daten können mehrere Namen pro Taste und es wird variieren je nach Taste. Ich möchte eine Schleife durch die Daten .Finden und .FindNext, und finden Sie alle möglichen Namen an den Schlüssel angehängt (ich erreicht habe, das Teil). Der Teil, den ich bin Probleme mit, ist während der Schleife speichern die Namen in ein array, das ich übergeben kann, der zu einem anderen sub. Ich möchte das array übergeben, so dass der Benutzer auf einen anderen command-button und Durchlaufen Sie die möglichen Namen, die vor der Auswahl einer. 

Private Sub FindNameButton_Click()
Dim KeyMatch As Long
Dim NameRow As Long
FindName As Range
KeyMatch = KeyBox.Value ' The UserForm input box

With Worksheets("Master List"). Range("D:D")
Set FindName = .Find(What:= KeyMatch, LookAt:= xlWhole, LookIn:= xlValues,           MatchCase:= False)
If not FindName Is Nothing Then 
FirstAddress = FindName.Address
Do
Application.GoTo FindName
NameRow = ActiveCell.Row
Cells(NameRow, 2).Select 'Selects the name associated with the key identifier
NameBox.Value = ActiveCell.Value 'Fills the UserForm box with the name
' I would like to fill the array here with each name is it passes through but I have   no idea how

NameArray(i) = ActiveCell.Value ' ??????

Set FindName = .FindNext(FindName)
Loop While FindName is Nothing and FristAddress <> FindName.Address
End With
End Sub

Private Sub NextNameButton_Click()
Static cnt As Long
If cnt <= Ubound(NameArray) Then
NameBox.Value = NameArray(cnt) 'Fill UserForm Name Box with name from Name Array

Else
cnt = 0
End If

cnt = cnt + 1 ' increase every time button is clicked
End Sub
InformationsquelleAutor Chris D | 2013-06-03
  1. 1

    Ihre Frage könnte zusätzliche details über das problem. Ein paar Dinge, die ich bemerkt.

    1. Ihnen fehlt ein "End If' für 'Wenn nicht FindName Ist Nichts Dann'
    2. NameArray nicht übergeben oder in Ihren Unterprogrammen. Haben Sie decared NameArray als global?
    3. NameArray deklariert werden muss als dynamisches array: Dim NameArray() Als Variant.
    4. Die Sie verwenden müssen 'Redim Preserve NameArray(newIndxBound)", um erhöhen Sie die Größe eines Arrays.
    5. Empfehle ich die Verwendung von "Option Explicit" um sicherzustellen, dass alle Variablen definiert wurden.
    6. Sie vielleicht erwägen Sie, die Funktion StrCmp für string-Vergleich statt 'FristAddress <> FindName.Adresse'.

    Dieses bit des Codes, verwendet ein globales dynamisches array könnte Ihnen helfen.

    Option Explicit

Public MyArray() As Variant


Sub AddToArray()

    Dim indx As Integer

    For indx = 0 To 9
        ReDim Preserve MyArray(indx)
        MyArray(indx) = indx
    Next indx

End Sub


Sub RetrieveFromArray()

    Dim indx As Integer
    Dim sht As Worksheet
    Dim rowN As Integer

    Set sht = ActiveSheet
    rowN = 10
    For indx = 0 To 9
        sht.Cells(rowN, 3) = MyArray(indx)
        rowN = rowN + 1
    Next indx

End Sub
    • +1 für die Option Explicit. Das würde verhindern, mit FristAddress wenn du meinst FirstAddress.
    • Vielen Dank das ist sehr hilfreich. Ich bin sozusagen ein Anfänger in VBA, also bitte entschuldige meine Fehler. ReDim Preserve ist eine GROßE Hilfe, ich wusste nicht, dass Sie existiert. Ich versuche zu erklären, Öffentlichen NameArray() As Variant als Globale, aber ich bekomme einen compile-Fehler jedes mal. Ich glaube, ich habe alles, außer die Weitergabe an eine andere sub. Gibt es einen anderen Weg, ich sollte erklären, dass diese als global, oder gibt es einen besseren Weg, um es zu übergeben, um die nächste sub? Nochmals vielen Dank so viel für Ihre Hilfe so weit!!!!!!
    • Danke für den Beispielcode. Wenn ich versuche zu erklären, Public MyArray() As Variant, bekomme ich die folgende Fehlermeldung: Compile-Fehler: Konstanten, Zeichenfolgen fester Länge, arrays, benutzerdefinierte Typen und Declare-Anweisungen nicht erlaubt als Öffentliche Mitglieder von objektmodulen. Ist das, weil ich Tue dies innerhalb einer userform? Wenn ja, gibt es eine Möglichkeit um das, oder kann ich gehen die userform, um ein Modul? Sorry für die Anfänger Fragen! Sie waren so hilfreich und ich Schätze es!
    • Sie müssen deklarieren Sie das array in den code-Modul. Mit diesem fertig sind, können Sie immer noch Referenz das array auf code angehängt, um ein Blatt oder eine form da sein global.
    • Ich mag alle meine code in Modulen. Code endet in Blätter/Formen tendenziell konzentriert sich auf bestimmte Aufgaben wie das starten einer sub von einem Befehls-button oder wieder eine Reihe spezifisch auf mein Blatt. Denke, dass jeder code, den Sie in eine Platte oder form, wie die Zugehörigkeit zu einer Klasse, die hat nur Spielraum innerhalb der Klasse selbst. Zum Beispiel, wenn Sie Hinzugefügt, eine Funktion Sheet1 genannt Calc (), dann nennen Sie es würde tun müssen, Tabelle1.Calc(). Wenn Ihr in ein Modul, dann kann man nur call Calc() von überall vorausgesetzt, Ihre nicht privaten.
    • Vielen Dank Dave dies war mir eine GROßE Hilfe. Ich habe genau das, was ich will, alles Dank Sie. Ich wünschte, ich könnte Stimmen deine Antwort, aber anscheinend habe ich nicht genug Ruf... tut mir Leid, dass. Nochmals vielen Dank so viel.

    InformationsquelleAutor Dave Lewis
Schreibe einen Kommentar