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/12/11 10:50] – [Misc] jonathan.pfeifferinformatik:vba:start [2022/12/11 10:55] (aktuell) – [Do...Loop] jonathan.pfeiffer
Zeile 18: Zeile 18:
  
 letzte_Zeile_in_Spalte_eins = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row letzte_Zeile_in_Spalte_eins = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
 +
 +'Zahl zu Zeichenkette umwandeln
 +CStr(aktuelleZeile)
  
 </code> </code>
Zeile 42: Zeile 45:
  
 d = Range("A1").Value d = Range("A1").Value
 +
 +'Wert oder Formel einer Zelle zuweisen
 +aktuelleZeile = ActiveCell.Row
 +ActiveSheet.Range("A" + CStr(aktuelleZeile)) = a * 2 
 </code> </code>
  
Zeile 52: Zeile 59:
    Range("F:F").EntireColumn.Show = False    Range("F:F").EntireColumn.Show = False
 End If End If
 +
 +
 +If CheckBox1.Value = True Then
 +     '...
 +    Else
 +     '...
 +    End If
 </code> </code>
  
Zeile 61: 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 81: Zeile 100:
 Loop Loop
  
-'Beispiel 
  
 </code> </code>