Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen der Seite angezeigt.
| Beide Seiten, vorherige Überarbeitung Vorherige Überarbeitung Nächste Überarbeitung | Vorherige Überarbeitung | ||
| informatik:vba:start [2022/12/11 10:51] – [Zuweisung] jonathan.pfeiffer | informatik: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, | letzte_Zeile_in_Spalte_eins = ActiveSheet.Cells(Rows.Count, | ||
| + | |||
| + | 'Zahl zu Zeichenkette umwandeln | ||
| + | CStr(aktuelleZeile) | ||
| </ | </ | ||
| Zeile 56: | Zeile 59: | ||
| | | ||
| End If | End If | ||
| + | |||
| + | |||
| + | If CheckBox1.Value = True Then | ||
| + | ' | ||
| + | Else | ||
| + | ' | ||
| + | End If | ||
| </ | </ | ||
| Zeile 65: | Zeile 75: | ||
| For i = 1 To 10 | For i = 1 To 10 | ||
| Debug.Print i | Debug.Print i | ||
| + | Next | ||
| + | |||
| + | ' | ||
| + | For i = 4 To ActiveSheet.Cells(Rows.Count, | ||
| + | |||
| Next | Next | ||
| </ | </ | ||
| Zeile 85: | Zeile 100: | ||
| Loop | Loop | ||
| - | ' | ||
| </ | </ | ||