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:55] – 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 28: Zeile 43:
 a = b * c a = b * c
 b = 10 * d 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> </code>
  
Zeile 37: Zeile 75:
 For i = 1 To 10 For i = 1 To 10
     Debug.Print i     Debug.Print i
 +Next
 +
 +'Beispiel
 +For i = 4 To ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row Step 1
 +
 Next Next
 </code> </code>
Zeile 57: Zeile 100:
 Loop Loop
  
-'Beispiel 
  
 </code> </code>