VBA Code
25.06.2015 00:32:47
Klassiker2
Ich muss nur wissen was er genau macht, leider bin ich absoluter Anfänger.
Selbst programmieren muss ich nichts.
______________________________________________________
Private Const RowStart = 20
Private Const MaxEmptyRows = 0
Sub Solver()
'Erste leer Zeile in Tabelle suchen
Row = RowStart
EmptyRows = 0 'Zähler für leere Zeilen
Counter = 0 'Zähler für berechnete Zeilen
'Abbrechen, wenn mehr als MaxEmptyRows leere Zeilen in Folge
Do While EmptyRows Function ColumnLetterToInt(column As String) As Integer
ColumnLetterToInt = Range(column & 1).column
End Function
Anzeige