Beispiele für mit VBA geschriebene Excel-Makros

Die folgenden einfachen Excel-Makrobeispiele wurden mit VBA geschrieben 

Geschätzte Lesezeit: 3 minuti

VBA-Beispiel mit Array

Die folgende Sub-Prozedur liest Werte aus Zellen in Spalte A des aktiven Arbeitsblatts, bis sie auf eine leere Zelle trifft. Die Werte werden in einem Array gespeichert. Dieses einfache Excel-Makrobeispiel veranschaulicht die Verwendung von:

• Variablendeklarationen;
• Dynamische Arrays;
• Ein Zyklus Do Until;
• Verweisen Sie auf Zellen im aktuellen Excel-Arbeitsblatt.
• Die VBA-Funktion Ubound eingebaut (gibt den höchsten Index eines Arrays zurück).

' Sub procedure store values in Column A of the active Worksheet
' into an array
Sub GetCellValues()
Dim iRow As Integer            ' stores the current row number
Dim dCellValues() As Double  ' array to store the cell values
iRow = 1
ReDim dCellValues(1 To 10)
' Do Until loop to extract the value of each cell in column A
' of the active Worksheet, as long as the cell is not blank
Do Until IsEmpty(Cells(iRow, 1))
   ' Check that the dCellValues array is big enough
   ' If not, use ReDim to increase the size of the array by 10
   If UBound(dCellValues) < iRow Then
      ReDim Preserve dCellValues(1 To iRow + 9)
   End If
   ' Store the current cell in the CellValues array
   dCellValues(iRow) = Cells(iRow, 1).Value
   iRow = iRow + 1
Loop
End Sub

Die Prozedur speichert die Werte in Spalte A des aktiven Arbeitsblatts in einem Array. Beachten Sie Folgendes:

• Der Kreislauf Do Until Extrahiert die Werte jeder Zelle in Spalte A des aktiven Arbeitsblatts und ignoriert leere Zellen
• Die Bedingung "If UBound(dCellValues) < iRow„Überprüft, ob das dCellValues-Array groß genug ist, um die Informationen aufzunehmen. Wenn nicht, verwenden Sie ReDim, um die Größe des Arrays um 10 zu erhöhen
• Endlich Bildung​​dCellValues(iRow) = Cells(iRow, 1).Value„Speichert die aktuelle Zelle im CellValues-Array

VBA-Beispiel mit mathematischen Operationen

Die folgende Sub-Prozedur liest die Werte aus Spalte A des Arbeitsblatts mit dem Namen „Sheet2“ und führt arithmetische Operationen an den Werten durch. Die resultierenden Werte werden in Spalte A des aktuell aktiven Arbeitsblatts gedruckt.

Dieses Makro veranschaulicht:

• Variablendeklarationen;
• Excel-Objekte (insbesondere Verwendung des Set-Schlüsselworts und Zugriff auf das „Columns“-Objekt vom „Sheets“-Objekt);
• Ein Zyklus Do Until;
• Greifen Sie auf Arbeitsblätter und Zellbereiche in der aktuellen Excel-Arbeitsmappe zu.

' Sub procedure to loop through the values in Column A of the Worksheet
' "Sheet2", perform arithmetic operations on each value, and write the
' result into Column A of the current Active Worksheet ("Sheet1")
Sub Transfer_ColA()
Dim i As Integer
Dim Col As Range
Dim dVal As Double
' Set the variable 'Col' to be Column A of Sheet 2
Set Col = Sheets("Sheet2").Columns("A")
i = 1
' Loop through each cell of the column 'Col' until
' a blank cell is encountered
Do Until IsEmpty(Col.Cells(i))
   ' Apply arithmetic operations to the value of the current cell
   dVal = Col.Cells(i).Value * 2 + 1
   ' The command below copies the result into Column A
   ' of the current Active Worksheet - no need to specify
   ' the Worksheet name as it is the active Worksheet.
   Cells(i, 1) = dVal
   i = i + 1
Loop
End Sub

VBA-Beispiel mit Änderungsdatumserfassung

Schreiben wir ein einfaches VBA-Makro, das ausgelöst wird, wenn eine Zelle in einem bestimmten Bereich unseres Blattes aktualisiert wird. Angenommen, Sie möchten Änderungen in Spalte B (B4 bis B11) verfolgen und Datum und Uhrzeit der Änderung in Spalte A aufzeichnen.
Gehen wir so vor:

• In der Registerkarte Developer Klicken Sie auf die Option „Visual Basic”, um den VBA-Editor zu öffnen.
• Doppelklicken Sie im VBA-Editor auf den Code-Editor für Sheet2.
• Wählen Sie auf der rechten (oder linken) Registerkarte „Arbeitsblatt“ und wählen Sie die Option „Ändern“.
• VBA-Code hinzufügen:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Target.Range("A1:A1").Value = Now
    End If
End Sub

Speichern Sie die Arbeitsmappe mit aktivierten Makros (z. B. als XLSM-Datei).

Jedes Mal, wenn wir nun eine Zelle in Spalte B aktualisieren (von Zeile 1 bis Zeile 10), zeigt die Zelle in Spalte A automatisch das aktuelle Datum und die aktuelle Uhrzeit an.

Ercole Palmeri