VBA in Excel 365 beherrschen – So erstellen Sie ganz einfach Makros

Verwenden von For…Next Loop in Makros

Durch die Nutzung der For…Next Loop-Struktur können Sie das Füllen von Zellen in Excel-Arbeitsblättern mit bestimmten Daten automatisieren. For…Next Loop ermöglicht es Ihnen, Zeilen oder Spalten innerhalb eines bestimmten Bereichs zu durchlaufen, was es sehr effektiv für sich wiederholende Aufgaben beim Ausfüllen von Daten macht.

Beispiel: Füllen eines Zellbereichs mit Zeilen- und Spaltensummenergebnissen

Im Folgenden finden Sie ein Beispiel für eine macro, die For…Next Loop verwendet, um den Zellbereich A1:E10 mit dem Wert zu füllen, der durch die Summe zwischen der Zeilennummer und der Spaltennummer generiert wird.

Sub Fill_Cells_With_Loop()
    Dim i As Integer, j As Integer
    For i = 1 To 10
        For j = 1 To 5
            Cells(i, j).Value = i + j
        Next j
    Next i

    With Range(“A1:E10”)
        .Font.Bold = True
        .Interior.Color = RGB(224, 255, 255)
    End With
End Sub

Erklärung des Codes:

  • For i =  1 To 10: Die erste Schleife für die Iteration durch Zeilen von 1 bis 10 (Zeilen 1 bis 10).
  • For j = 1 To 5: Die zweite Schleife für Iterationen durch Spalten von 1 bis 5 (Spalten A bis E).
  • Cells(i, j).Value =  i + j: Füllen Sie die Zelle mit dem Summenergebnis zwischen der Zeilennummer (i) und der Spaltennummer (j).
  • With Range(“A1:E10”): Formatieren Sie die Zellen A1 bis E10 mit fettem Text und hellblauem Hintergrund.

Weitere interessante Artikel

Verwenden der  Funktion Chr() zum Erstellen von Zeichen

Die Funktion Chr() in VBA generiert Zeichen, die ASCI codes entsprechen. ASCII Codes sind Zahlen, die Zeichen in Computersystemen darstellen. Der Code 65 gibt z. B. den Buchstaben A an, während der Code 66 den Buchstaben B angibt usw.

Sie können die Funktion Chr() nutzen, um Makros zu erstellen, die Zellen mit Zeichen füllen, die aus ASCII-Codes generiert wurden, entweder zufällig oder spezifisch.

Beispiel: Füllen eines Zellbereichs mit zufälligen Zeichen mit der Funktion chr()

Sub Fill_Cells_With_Random_Characters()
    Dim i As Integer, j As Integer
    Dim asciiCode As Integer

    For i = 1 To 5
        For j = 1 To 5
            asciiCode = Int(26 * Rnd) + 65
            Cells(i, j).Value = Chr(asciiCode)
        Next j
    Next i

    With Range(“A1:E5”)
        .Font.Bold = True
        .Interior.Color = RGB(255, 228, 196)
    End With
End Sub

Erklärung des Codes:

  • Dim asciiCode As Integer: Deklariert eine Variable zum Speichern von ASCII-Code.
  • Int(26 * Rnd) + 65: Generiert eine Zufallszahl zwischen 65 und 90. Der 65 Code ist in ASCII A, und der 90 Code ist Z.
  • Rnd generiert eine Zufallszahl zwischen 0 und 1.
  • 26 * Rnd generiert eine Zahl zwischen 0 und 25 und fügt dann 65 hinzu, um den ASCII-Code zwischen 65(A) und 90(Z) zu erhalten.
  • Cells(i, j).Value =Chr(asciiCode): Füllt eine Zelle mit Zeichen, die von Chr() basierend auf ASCII-Code generiert wurden.
  • With Range(“A1:E5”): Formatiert einen Zellbereich von A1:E5 mit fettem Text und einem pfirsichfarbenen Hintergrund (RGB(255, 228, 196)).

Schlussfolgerung

Durch die Verwendung von Excel VBA 365 können Sie Ihre Arbeitseffizienz in Excel verbessern. Das Erlernen der Erstellung und Bearbeitung von macro wird in der modernen Arbeitswelt, in der Automatisierung der Schlüssel zum Erfolg ist, eine unschätzbare Fähigkeit sein.

Neueste Artikel

Verwandte Artikel