Tracking-Analyse

[lpterritory]

Alles klar! Okay, dann funktioniert soweit auch alles wie ich es mir gedacht habe :)

Ich bedanke mich für deine wirklich tollen Bemühungen und deine super Hilfestellungen. Ich überlege mir mal, ob ich nicht vielleicht mal so ein paar VBA-Seminare an der Uni oder so belege, ist auf jeden Fall eine sehr nützliche Sache.

Bis dahin aber nochmal vielen vielen vielen vielen Dank und viele Grüße!

[schauan]

Hallöchen,

gern geschehn. Und wenn die Seminare an der UNI auch nicht alle Fragen beantworten, schaden tut's nicht und für Spezielles hast Du ja unser Forum

[snb]

oder

Code:

Sub M_snb()
   y = Cells(Rows.Count, 2).End(xlUp).Row - 2
   Cells(3, 1).Resize(y) = Evaluate("row(1:" & y & ")")
End Sub

oder

Code:

Sub M_snb()
   Cells(3, 1) = 1
   Cells(3, 1).AutoFill Cells(3, 1).Resize(Cells(Rows.Count, 2).End(xlUp).Row - 2), 2
End Sub