Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen der Seite angezeigt.

Link zu der Vergleichsansicht

Beide Seiten, vorherige Überarbeitung Vorherige Überarbeitung
Nächste Überarbeitung		 Vorherige Überarbeitung
informatik:vba:start [2022/11/14 16:47] – jonathan.pfeifferinformatik:vba:start [2022/12/11 10:55] (aktuell) – [Do...Loop] jonathan.pfeiffer
Zeile 8: Zeile 8:
 </code> </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 ===== ===== Variablen deklarieren =====
 <code> <code>
Zeile 25: Zeile 40:
 y = 42.77 y = 42.77
 z = "Hallo" 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> </code>