ich brauche eine Schleife für die letzten Zellen im Bereich der Spalten A bis AD. Wenn ich einfach die letzte Zeile aufrufe hängt sich Excel auf, rechnet sich wohl tot. Hab es unter anderem mal so versucht aber die schleife funtioniert nicht:
Sub CommandButton_Click()
Dim as Integer
For i = Strings.ASC("A") to Strings.ASC("AD")
Range (i & Cells(Rows.Count, 1).End(xlUp).Row.Select
Call Modul1
Next i
End Sub