Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen der Seite angezeigt.

Link zu der Vergleichsansicht

Nächste Überarbeitung		 Vorherige Überarbeitung
informatik:vba:start [2022/11/14 16:32] – angelegt jonathan.pfeifferinformatik:vba:start [2022/12/11 10:55] (aktuell) – [Do...Loop] jonathan.pfeiffer
Zeile 1: Zeile 1:
 ====== VBA ====== ====== VBA ======
 +
 +===== Sub-Prozeduren =====
 +<code>
 +Sub Prozedurname()
 +
 +End Sub
 +</code>
 +
 +===== Misc =====
 +
 +<code>
 +Application.ScreenUpdating = False
 +
 +Sheets("tabellenblatt").Activate
 +
 +Range("A1").Select
 +
 +letzte_Zeile_in_Spalte_eins = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
 +
 +'Zahl zu Zeichenkette umwandeln
 +CStr(aktuelleZeile)
 +
 +</code>
 +===== Variablen deklarieren =====
 +<code>
 +'Datentyp Ganzzahl
 +Dim x As Integer
 +
 +'Datentyp Dezimalzahl
 +Dim y As Double
 +
 +'Datentyp Zeichenkette
 +Dim z As String
 +</code>
 +
 +==== Zuweisung ====
 +<code>
 +x = 10
 +y = 42.77
 +z = "Hallo"
 +
 +a = b * c
 +b = 10 * d
 +
 +d = Range("A1").Value
 +
 +'Wert oder Formel einer Zelle zuweisen
 +aktuelleZeile = ActiveCell.Row
 +ActiveSheet.Range("A" + CStr(aktuelleZeile)) = a * 2 
 +</code>
 +
 +===== Verzweigungen =====
 +<code>
 +'Beispiel
 +If CheckBox1.Value = True Then
 +   Range("F:F").EntireColumn.Hidden = True
 +Else
 +   Range("F:F").EntireColumn.Show = False
 +End If
 +
 +
 +If CheckBox1.Value = True Then
 +     '...
 +    Else
 +     '...
 +    End If
 +</code>
 +
 +===== Schleifen =====
 +
 +==== For...Next ====
 +<code>
 +Dim i As Integer
 +For i = 1 To 10
 +    Debug.Print i
 +Next
 +
 +'Beispiel
 +For i = 4 To ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row Step 1
 +
 +Next
 +</code>
 +
 +==== Do...Loop ====
 +<code>
 +Do Until [Bedingung]
 +   Anweisungen
 +Loop
 +
 +'Beispiel
 +Dim zaehler As Integer
 +Do Until zaehler = 10
 +   zaehler = zaehler + 1
 +Loop
 +
 +
 +Do While [Bedingung]
 +   Anweisungen
 +Loop
 +
 +
 +</code>
 +