VBA-Automatische Erkennung der Zeilenzahl
23.05.2015 11:17:10
DaMe
der Code für den euklidischen Abstand funktioniert zwar. Allerdings ist meine Frage, ob es hier auch möglich ist, dass VBA automatisch die Anzahl der Kundendaten in Spalte A erkennt (für den Fall dass noch Kundendaten dazu kommen) und dies automatisch in den Code übernimmt (For b = 12 to Anzahl Spalten; For a =2 to Anzahl Zeilen)? Die drei Fragezeichen müssten automatisch übernommen werden.
Hier der Code:
Private Sub OptionButton1_Click()
'Definition der Variablen
Dim j As Integer
Dim a As Integer
Dim b As Integer
'Schließen der Userform
Unload UserForm1
j = 2
For b = 12 To ?
For a = 2 To ?
Cells(a, b) = Sqr((Cells(a, 2) - Cells(j, 2)) ^ 2 + (Cells(a, 3) - Cells(j, 3)) ^ 2)
Next a
j = j + 1
Next b
End Sub
Vielen Dank schonmal!
Anzeige