OFF97: Wie erstellen und verwenden ein globales Array in VBA-Prozeduren

SPRACHE AUSWÄHLEN SPRACHE AUSWÄHLEN
Artikel-ID: 170721 - Produkte anzeigen, auf die sich dieser Artikel bezieht
Alles erweitern | Alles schließen

Auf dieser Seite

Zusammenfassung

In Microsoft Visual Basic für Applikationen können Sie ein Array dimensioned wie A(6,6), erstellen, die für alle Prozeduren in allen Modulen zur Verfügung stehen.

Dieser Artikel enthält Beispielcode für Visual Basic für Applikationen Routinen, die veranschaulichen, wie dies erreicht werden kann.

Weitere Informationen

Microsoft bietet Programmierbeispiele für Abbildung nur ohne Gewährleistung oder konkludent, einschließlich, aber nicht beschränkt auf konkludenten Garantien der Handelsüblichkeit und/oder Eignung für einen bestimmten Zweck. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen. Spezialisten von Microsoft Support Services können bei Erläuterung die Funktionalität einer bestimmten Prozedur helfen, Sie werden ändert jedoch nicht Beispielen bieten Funktionen hinzugefügt oder Verfahren, um Ihren speziellen Anforderungen erstellen.
Wenn Sie Programmiererfahrung, beschränkt haben, sollten Sie ein Microsoft Certified Partner oder die Microsoft Advisory Services wenden. Weitere Informationen finden Sie auf diese Websites von Microsoft:

Microsoft Certified Partner - https://partner.microsoft.com/global/30000104

Microsoft-Sicherheitsempfehlung Services - http://support.microsoft.com/gp/advisoryservice

Weitere Informationen zu den Supportoptionen, die verfügbar sind und wie Sie Microsoft kontaktieren besuchen Sie in der folgenden Website: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSZum Freigeben verwenden ein Array prozedurübergreifend eine der folgenden Methoden.

Methode 1: Verwenden der ParamArray-Funktion (Parameterarray)

Ein Parameterarray können Sie ein Array von Argumenten an eine Prozedur übergeben. Sie müssen nicht die Anzahl der Elemente im Array wissen, wenn Sie die Prozedur definieren. Sie können das ParamArray-Schlüsselwort verwenden, um ein Parameterarray kennzeichnen. Deklarieren Sie das Array als Array vom Typ Variant, und es muss das letzte Argument in der Prozedurdefinition sein.

Im folgenden wird veranschaulicht, wie Sie eine Prozedur mit einem Parameterarray definieren können.
      Sub AnyNumberArgs(strName As String, ParamArray intScores() As Variant)
      Dim intI As Integer

      ' Use UBound function to determine upper limit of array.
      For intI = 0 To UBound(intScores())
         MsgBox strName & "'s Scores: " & intScores(intI)
      Next intI
   End Sub
				
die folgenden Beispiele zeigen wie Sie diese Prozedur aufrufen können.
   Sub CallParamArrayRoutine

      AnyNumberArgs "Jamie", 10, 26, 32, 15, 22, 24, 16

      AnyNumberArgs "Kelly", "High", "Low", "Average", "High"

   End Sub
Informationen ParamArray aus Visual Basic-Editor klicken Sie auf der Office-Assistenten, ParamArray geben, klicken Sie auf Suchen und klicken Sie dann hier, um "Understanding Parameter Arrays." anzuzeigen

Hinweis: Wenn der Assistent ausgeblendet ist, klicken Sie Office-Assistenten auf der Symbolleiste Standard. Falls er nicht beantworten die Abfrage ist, finden Sie im folgenden Artikel der Microsoft Knowledge Base:
176476OFF: Office-Assistenten nicht Antwortfunktion VBA Fragen

Methode 2: Das Array als Public Declare(dimension)

Im folgende Beispiel Visual Basic für Applikationen-Prozeduren veranschaulichen ein Array in Prozeduren innerhalb der gleichen Anwendung gemeinsam.

  1. Geben Sie die folgenden Zeilen des Beispielcodes in den Deklarationsabschnitt Bereich eines Moduls Projekt:
          ' Dimension MyArray as Public and
          ' as a String variable array.
          Public MyArray(1) as String
    
          Sub FillArray()
             ' Fill the array MyArray with values.
             MyArray(0) = "Hi"
             MyArray(1) = "Bye"
    
             ' Call the DisplayArray Sub procedure to display MyArray.
             DisplayArray
          End Sub
    
          Sub DisplayArray()
             ' Display the values contained in the array MyArray.
             For i = 0 to Ubound(MyArray, 1)
                MsgBox MyArray(i)
             Next
          End Sub
    						
  2. Führen Sie die FillArray Sub-Prozedur.
Weitere Informationen zum Deklarieren von als öffentliche, von Visual Basic-Editor klicken Sie auf der Office-Assistenten, geben Sie Öffentliche , klicken Sie auf Suchen und klicken Sie dann hier, um "Öffentliche Anweisung" anzuzeigen

Hinweis: Wenn der Assistent ausgeblendet ist, klicken Sie Office-Assistenten auf der Symbolleiste Standard. Falls er nicht beantworten die Abfrage ist, finden Sie im folgenden Artikel der Microsoft Knowledge Base:
176476OFF: Office-Assistenten nicht Antwortfunktion VBA Fragen
Weitere Informationen finden Sie in der folgenden Artikel der Microsoft Knowledge Base:
173707OFF97: Wie zum Ausführen von Beispielcode aus Knowledge Base-Artikel

Informationsquellen

Weitere Informationen dazu, wie Sie Hilfestellung in Bezug auf Visual Basic für Applikationen erhalten können, finden Sie im folgenden Artikel der Microsoft Knowledge Base:
163435VBA: Programmieren von Ressourcen für Visual Basic für Applikationen

Eigenschaften

Artikel-ID: 170721 - Geändert am: Samstag, 20. Januar 2007 - Version: 4.5
Die Informationen in diesem Artikel beziehen sich auf:
  • Microsoft Word 97 Standard Edition
  • Microsoft PowerPoint 97 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Access 95 Standard Edition
  • Microsoft Access 97 Standard Edition
  • Microsoft Office 97 Standard Edition
Keywords: 
kbmt kbcode kbconversion kbconvert kbdtacode kbhowto kbmacroexample kbprogramming KB170721 KbMtde
Maschinell übersetzter Artikel
Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen übersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden ständig ergänzt beziehungsweise überarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu können, werden viele Artikel nicht von Menschen, sondern von Übersetzungsprogrammen übersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell übersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdwörtern sowie Fachbegriffen. Microsoft übernimmt keine Gewähr für die sprachliche Qualität oder die technische Richtigkeit der Übersetzungen und ist nicht für Probleme haftbar, die direkt oder indirekt durch Übersetzungsfehler oder die Verwendung der übersetzten Inhalte durch Kunden entstehen könnten.
Den englischen Originalartikel können Sie über folgenden Link abrufen: 170721
Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verfügung. Microsoft übernimmt keinerlei Gewährleistung dafür, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erwünschten Ergebnisse erzielen. Die Entscheidung darüber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung für Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.
Disclaimer zu nicht mehr gepflegten KB-Inhalten
Dieser Artikel wurde für Produkte verfasst, für die Microsoft keinen Support mehr anbietet. Der Artikel wird deshalb in der vorliegenden Form bereitgestellt und nicht mehr weiter aktualisiert.

Ihr Feedback an uns

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com