Excel-vba

Wenn eine öffentliche Variable in einem Standardmodul oder einem Klassenmoduldeklariert ist, kann sie auch in Projekten verwendet werden, die auf das Projektverweisen, in dem die öffentliche Variable deklariert ist. Privatewie: PrivateCounterVariable as IntegerPrivate Variablen können nur von Prozeduren im selben Modul verwendet werden.Quelle und weitere Informationen:MSDN-deklarierende VariablenZeichen eingeben (Visual Basic)Öffnen des Visual Basic Editors (VBE)Schritt 1: Öffnen Sie eine Arbeitsmappehttps://riptutorial.com/de/home5

https://riptutorial.com/de/home6

Bibliothek zum vorhandenen VB-Projekt hinzufügen. Wie zu sehen ist, ist derzeit die PowerPointObjektbibliothek nicht verfügbar.Schritt 1 : Wählen Sie Menü Extras - Referenzen Schritt 2 : Wählen Sie die Referenz aus, die Sie hinzufügen möchten. In diesem Beispiel scrollenwir nach unten, um nach " Microsoft PowerPoint 14.0-Objektbibliothek " zu suchen, und klickenSie auf " OK ".https://riptutorial.com/de/home7

Hinweis: PowerPoint 14.0 bedeutet, dass die Office 2010-Version auf dem PC installiert ist.Schritt 3 : Wenn Sie im VB-Editor die Tastenkombination Strg Leertaste gleichzeitig drücken,erhalten Sie die Autocomplete-Option von PowerPoint.https://riptutorial.com/de/home8

Nach Auswahl von PowerPoint und Drücken von . wird ein weiteres Menü mit allen Objektoptionenangezeigt, die sich auf die PowerPoint-Objektbibliothek beziehen. Dieses Beispiel zeigt, wie Siedas Objekt Application PowerPoint auswählen.Schritt 4 : Jetzt kann der Benutzer mithilfe der PowerPoint-Objektbibliothek weitere me9

Deklarieren Sie eine Variable, die auf das Presentation Objekt der PowerPoint-Objektbibliothekverweist.Deklarieren Sie eine andere Variable, die auf das Slide Objekt der PowerPoint-Objektbibliothekverweist.Nun sieht der Variablendeklarationsabschnitt wie in der Abbildung unten aus, und der Benutzerkann diese Variablen in seinem Code verwenden.https://riptutorial.com/de/home10

Codeversion dieses Tutorials:Option ExplicitSub Export toPPT()Dim ppApp As PowerPoint.ApplicationDim ppPres As PowerPoint.PresentationDim ppSlide As PowerPoint.Slide' here write down everything you want to do with the PowerPoint Class and objectsEnd SubHallo Welt1. Öffnen Sie den Visual Basic-Editor (siehe Öffnen des Visual Basic-Editors ).2. Klicken Sie auf Einfügen - Modul, um ein neues Modul hinzuzufügen:https://riptutorial.com/de/home11

3. Kopieren Sie den folgenden Code, und fügen Sie ihn in das neue Modul ein:Sub hello()MsgBox "Hello World !"End SubErhalten :4. Klicken Sie auf den grünen "Play" -Pfeil (oder drücken Sie F5) in der Visual BasicSymbolleiste, um das Programm auszuführen:5. Wählen Sie das neu erstellte "Hallo" aus und klicken Sie auf " Run .https://riptutorial.com/de/home12

6. Fertig, Ihr sollte folgendes Fenster sehen:Erste Schritte mit dem Excel-ObjektmodellDieses Beispiel soll eine sanfte Einführung in das Excel-Objektmodell für Anfängersein .1. Öffnen Sie den Visual Basic Editor (VBE)2. Klicken Sie auf Ansicht - Direktfenster , um das Direktfenster (oder Strg G ) zu öffnen:3. Das folgende Direktfenster sollte in VBE unten angezeigt werden:https://riptutorial.com/de/home13

In diesem Fenster können Sie den VBA-Code direkt testen. Beginnen wir also, geben Sie dieseKonsole ein:?Worksheets.VBE hat Intellisense und dann sollte ein Tooltip wie in der folgenden Abbildung geöffnet werden:Wählen Sie .Count in der Liste aus oder geben Sie direkt .Cout , um .Cout zu erhalten:?Worksheets.Count4. Drücken Sie dann die Eingabetaste. Der Ausdruck wird ausgewertet und es sollte 1zurückgegeben werden. Dies gibt die Anzahl der Arbeitsblätter an, die aktuell in derArbeitsmappe vorhanden sind. Das Fragezeichen ( ? ) Ist ein Alias für Debug.Print.Arbeitsblätter sind ein Objekt und Count ist eine Methode . Excel verfügt über mehrere Objekte (Workbook , Worksheet , Range , Chart .), und jedes enthält bestimmte Methoden und Eigenschaften.Die vollständige Liste der Objekte finden Sie in der Excel VBA-Referenz . Arbeitsblätter Objektwird hier vorgestellt.Diese Excel VBA-Referenz sollte Ihre primäre Informationsquelle zum ExcelObjektmodell sein.5. Versuchen wir nun einen anderen Ausdruck, Typ (ohne das Zeichen ? ):Worksheets.Add().Name "StackOveflow"6. Drücken Sie Enter. Dadurch sollte ein neues Arbeitsblatt mit dem Namen StackOverflow. :https://riptutorial.com/de/home14

Um diesen Ausdruck zu verstehen, müssen Sie die Funktion Hinzufügen in der oben genanntenExcel-Referenz lesen. Sie werden folgendes finden:Add: Creates a new worksheet, chart, or macro sheet.The new worksheet becomes the active sheet.Return Value: An Object value that represents the new worksheet, chart,or macro sheet.Die Worksheets.Add() erstellen also ein neues Arbeitsblatt und geben es zurück. Arbeitsblatt ( ohnes ) ist selbst ein Objekt, das in der Dokumentation zu finden ist, und Name gehört zu seinenEigenschaften (siehe hier ). Es ist definiert als:Worksheet.Name Property: Returns or sets a String value thatrepresents the object name.Indem wir die verschiedenen Objektdefinitionen untersuchen, können wir diesen CodeWorksheets.Add().Name "StackOveflow" verstehen.erstellt und fügt ein neues Arbeitsblatt hinzu und gibt einen Verweis darauf zurück. Dannsetzen wir seine Name- Eigenschaft auf "StackOverflow".Add()Lassen Sie uns formeller sein, Excel enthält mehrere Objekte. Diese Objekte können aus eineroder mehreren Sammlungen von Excel-Objekten derselben Klasse bestehen. WorkSheets ist derFall für WorkSheets denen es sich um eine Auflistung von Worksheet . Jedes Objekt verfügt übereinige Eigenschaften und Methoden, mit denen der Programmierer interagieren kann.Das Excel-Objektmodell bezieht sich auf die Excel- ObjekthierarchieAn der Spitze aller Objekte befindet sich das Application , es repräsentiert die Excel-Instanzselbst. Die Programmierung in VBA erfordert ein gutes Verständnis dieser Hierarchie, da wirimmer einen Verweis auf ein Objekt benötigen, um eine Methode aufrufen zu können oder eineEigenschaft zu setzen / abzurufen.Das (sehr vereinfachte) Excel-Objektmodell kann dargestellt werden RangeEine detailliertere Version für das Arbeitsblattobjekt (wie in Excel 2007) wird unten gezeigt.https://riptutorial.com/de/home15

Das vollständige Excel-Objektmodell finden Sie hier .Schließlich können einige Objekte events (z. B. Workbook.WindowActivate ) enthalten, die ebenfallsTeil des Excel-Objektmodells sind.Erste Schritte mit Excel-VBA online lesen: /home16

Kapitel 2: AnwendungsobjektBemerkungenExcel VBA verfügt über ein umfassendes Objektmodell, das Klassen und Objekte enthält, mitdenen Sie einen beliebigen Teil der laufenden Excel-Anwendung bearbeiten können. Eines deram häufigsten verwendeten Objekte ist das Application- Objekt. Dies ist ein Catchall derobersten Ebene, das die aktuell ausgeführte Instanz von Excel darstellt. Fast alles, was nicht miteiner bestimmten Excel-Arbeitsmappe verbunden ist, befindet sich im Application- Objekt.Das Application- Objekt verfügt als Top-Level-Objekt über hunderte von Eigenschaften, Methodenund Ereignissen, mit denen jeder Aspekt von Excel gesteuert werden kann.ExamplesBeispiel für ein einfaches Anwendungsobjekt: Minimieren Sie das ExcelFensterDieser Code verwendet das Application- Objekt der obersten Ebene, um das Hauptfenster vonExcel zu minimieren.Sub MinimizeExcel()Application.WindowState xlMinimizedEnd SubBeispiel eines einfachen Anwendungsobjekts: Anzeige der Excel- und VBEVersionSub DisplayExcelVersions()MsgBox "The version of Excel is " & Application.VersionMsgBox "The version of the VBE is " & Application.VBE.VersionEnd SubDie Verwendung der Application.Version-Eigenschaft ist hilfreich, um sicherzustellen, dass Codenur mit einer kompatiblen Version von Excel funktioniert.Anwendungsobjekt online lesen: wendungsobjekthttps://riptutorial.com/de/home17

Kapitel 3: Arbeiten mit Excel-Tabellen in VBAEinführungDieses Thema behandelt das Arbeiten mit Tabellen in VBA und setzt Kenntnisse in Excel-Tabellenvoraus. In VBA bzw. Excel-Objektmodell werden Tabellen als ListObjects bezeichnet. Die amhäufigsten verwendeten Eigenschaften eines ListObjects sind ListRow (s), ListColumn (s),DataBodyRange, Range und HeaderRowRange.ExamplesInstanziieren eines ListObjectsDim lo as ListObjectDim MyRange as RangeSet lo Sheet1.ListObjects(1)'orSet lo Sheet1.ListObjects("Table1")'orSet lo MyRange.ListObjectMit ListRows / ListColumns arbeitenDim lo as ListObjectDim lr as ListRowDim lc as ListColumnSet lr lo.ListRows.AddSet lr lo.ListRows(5)For Each lr in lo.ListRowslr.Range.ClearContentslr.Range(1, lo.ListColumns("Some Column").Index).Value 8NextSet lc lo.ListColumns.AddSet lc lo.ListColumns(4)Set lc lo.ListColumns("Header 3")For Each lc in odyRange excludes the header rowlc.Range(1,1).Value "New Header Name"'Range includes the header rowNextKonvertieren einer Excel-Tabelle in einen normalen Bereichhttps://riptutorial.com/de/home18

Dim lo as ListObjectSet lo Sheet1.ListObjects("Table1")lo.UnlistArbeiten mit Excel-Tabellen in VBA online lesen: .com/de/home19

Kapitel 4: ArbeitsmappenExamplesAnwendungs-ArbeitsmappenIn vielen Excel-Anwendungen führt der VBA-Code Aktionen aus, die auf die Arbeitsmappegerichtet sind, in der er enthalten ist. Sie speichern diese Arbeitsmappe mit der Erweiterung".xlsm", und die VBA-Makros konzentrieren sich nur auf die Arbeitsblätter und die darinenthaltenen Daten. In manchen Fällen müssen Sie jedoch Daten aus anderen Arbeitsmappenkombinieren oder zusammenführen oder einige Ihrer Daten in eine separate Arbeitsmappeschreiben. Das Öffnen, Schließen, Speichern, Erstellen und Löschen anderer Arbeitsmappen istfür viele VBA-Anwendungen eine häufige Notwendigkeit.Im VBA-Editor können Sie jederzeit alle Arbeitsmappen, die derzeit von dieser Instanz von Excelgeöffnet werden, mit der Workbooks Eigenschaft des Application Objekts anzeigen und daraufzugreifen. Die MSDN-Dokumentation erläutert dies mit Referenzen.Wann Verwenden von ActiveWorkbook und ThisWorkbookEs ist eine bewährte Methode für VBA, immer anzugeben, auf welche Arbeitsmappe Ihr VBACode verweist. Wenn diese Angabe ausgelassen wird, geht VBA davon aus, dass der Code andie aktuell aktive Arbeitsmappe ( ActiveWorkbook ) gerichtet ist.'--- the currently active workbook (and worksheet) is impliedRange("A1").value 3.1415Cells(1, 1).value 3.1415Wenn jedoch mehrere Arbeitsmappen gleichzeitig geöffnet sind, insbesondere wenn VBA-Codevon einem Excel-Add-In ActiveWorkbook können Verweise auf das ActiveWorkbook verwirrt oderfehlgeleitet werden. Beispielsweise muss ein Add-In mit einer UDF, die die Tageszeit überprüftund mit einem Wert vergleicht, der in einem der Arbeitsblätter des Add-Ins (die normalerweise fürden Benutzer nicht sichtbar sind) gespeichert ist, muss explizit angeben, um welche Arbeitsmappees sich handelt referenziert werden. In unserem Beispiel hat unsere offene (und aktive)Arbeitsmappe eine Formel in der Zelle A1 EarlyOrLate() und KEINE VBA, die für diese aktiveArbeitsmappe geschrieben wurde. In unserem Add-In haben wir folgende User Defined Function(UDF):Public Function EarlyOrLate() As StringIf Hour(Now) ThisWorkbook.Sheets("WatchTime").Range("A1") ThenEarlyOrLate "It's Late!"ElseEarlyOrLate "It's Early!"End IfEnd FunctionDer Code für die UDF wird geschrieben und im installierten Excel-Add-In gespeichert. Eshttps://riptutorial.com/de/home20

verwendet Daten, die in einem Arbeitsblatt im Add-In namens "WatchTime" gespeichert sind.Wenn die UDF ActiveWorkbook anstelle von ThisWorkbook , kann sie niemals garantieren, welcheArbeitsmappe vorgesehen ist.Öffnen einer (neuen) Arbeitsmappe, auch wenn sie bereits geöffnet istWenn Sie auf eine bereits geöffnete Arbeitsmappe zugreifen möchten, ist das Abrufen derZuweisung aus der Workbooks Sammlung unkompliziert:dim myWB as WorkbookSet myWB n Sie eine neue Arbeitsmappe erstellen möchten, verwenden Sie dann die WorkbooksSammlung Objekt Add einen neuen Eintrag.Dim myNewWB as WorkbookSet myNewWB Workbooks.AddEs kann vorkommen, dass Sie die Arbeitsmappe, die Sie benötigen, nicht bereits geöffnet habenoder nicht (oder nicht) oder nicht oder nicht vorhanden ist. Die Beispielfunktion zeigt, wie immerein gültiges Arbeitsmappenobjekt zurückgegeben wird.Option ExplicitFunction GetWorkbook(ByVal wbFilename As String) As Workbook'--- returns a workbook object for the given filename, including checks'for when the workbook is already open, exists but not open, or'does not yet exist (and must be created)'*** wbFilename must be a fully specified pathnameDim folderFile As StringDim returnedWB As Workbook'--- check if the file exists in the directory locationfolderFile File(wbFilename)If folderFile "" Then'--- the workbook doesn't exist, so create itDim pos1 As IntegerDim fileExt As StringDim fileFormatNum As Long'--- in order to save the workbook correctly, we need to infer which workbook'type the user intended from the file extensionpos1 InStrRev(sFullName, ".", , vbTextCompare)fileExt Right(sFullName, Len(sFullName) - pos1)Select Case fileExtCase "xlsx"fileFormatNum 51Case "xlsm"fileFormatNum 52Case "xls"fileFormatNum 56Case "xlsb"fileFormatNum 50Case ElseErr.Raise vbObjectError 1000, "GetWorkbook function","The file type you've requested (file extension) is not recognized. "&https://riptutorial.com/de/home21

"Please use a known extension: xlsx, xlsm, xls, or xlsb."End SelectSet returnedWB Workbooks.AddApplication.DisplayAlerts FalsereturnedWB.SaveAs filename: wbFilename, FileFormat: fileFormatNumApplication.DisplayAlerts TrueSet GetWorkbook returnedWBElse'--- the workbook exists in the directory, so check to see if'it's already open or notOn Error Resume NextSet returnedWB Workbooks(sFile)If returnedWB Is Nothing ThenSet returnedWB Workbooks.Open(sFullName)End IfEnd IfEnd FunctionSpeichern einer Arbeitsmappe, ohne den Benutzer zu fragenBeim Speichern neuer Daten in einer vorhandenen Arbeitsmappe mit VBA wird häufig einePopup-Frage angezeigt, die darauf hinweist, dass die Datei bereits vorhanden ist.Um diese Popup-Frage zu verhindern, müssen Sie diese Arten von Warnungen unterdrücken.Application.DisplayAlerts False'disable user prompt to overwrite filemyWB.SaveAs FileName: rts True're-enable user prompt to overwrite fileÄndern der Standardanzahl von Arbeitsblättern in einer neuen ArbeitsmappeDie "werkseitige" Anzahl von Arbeitsblättern, die in einer neuen Excel-Arbeitsmappe erstelltwerden, ist im Allgemeinen auf drei festgelegt. Ihr VBA-Code kann die Anzahl der Arbeitsblätter ineiner neuen Arbeitsmappe explizit festlegen.'--- save the current Excel global settingWith ApplicationDim oldSheetsCount As IntegeroldSheetsCount .SheetsInNewWorkbookDim myNewWB As Workbook.SheetsInNewWorkbook 1Set myNewWB .Workbooks.Add'--- restore the previous setting.SheetsInNewWorkbook oldsheetcountEnd WithArbeitsmappen online lesen: beitsmappenhttps://riptutorial.com/de/home22

Kapitel 5: ArraysExamplesFelder füllen (Werte hinzufügen)Es gibt mehrere Möglichkeiten, ein Array zu füllen.Direkt'one-dimensionalDim arrayDirect1D(2) As StringarrayDirect(0) "A"arrayDirect(1) "B"arrayDirect(2) "C"'multi-dimensional (in this case 3D)Dim arrayDirectMulti(1, 1, 2)arrayDirectMulti(0, 0, 0) "A"arrayDirectMulti(0, 0, 1) "B"arrayDirectMulti(0, 0, 2) "C"arrayDirectMulti(0, 1, 0) "D"'.Verwenden der Array () - Funktion'one-dimensional onlyDim array1D As Variant 'has to be type variantarray1D Array(1, 2, "A")'- array1D(0) 1, array1D(1) 2, array1D(2) "A"Aus ReichweiteDim arrayRange As Variant 'has to be type variant'putting ranges in an array always creates a 2D array (even if only 1 row or column)'starting at 1 and not 0, first dimension is the row and the second the columnarrayRange Range("A1:C10").Value'- arrayRange(1,1) value in A1'- arrayRange(1,2) value in B1'- arrayRange(5,3) value in C5'.'Yoo can get an one-dimensional array from a range (row or column)'by using the worksheet functions index and transpose:https://riptutorial.com/de/home23

'one row from range into 1D-Array:arrayRange ).Value, 3, 0)'- row 3 of range into 1D-Array'- arrayRange(1) value in A3, arrayRange(2) value in B3, arrayRange(3) value in C3'one column into 1D-Array:'limited to 65536 rows in the column, reason: limit of .TransposearrayRange rksheetFunction.Transpose(Range("A1:C10").Value), 2, 0)'- column 2 of range into 1D-Array'- arrayRange(1) value in B1, arrayRange(2) value in B2, arrayRange(3) value in B3'.'By using Evaluate() - shorthand [] - you can transfer the'range to an array and change the values at the same time.'This is equi

Visual Basic-Programmiersprache, die seit Mitte der 1990er Jahre die Makros von Microsoft Excel unterstützt. WICHTIG Bitte stellen Sie sicher, dass alle Beispiele oder Themen, die mit dem Tag excel-vba erstellt wurden, spezifisch und für die Verwendung von VBA