Clever-Excel-Forum

Seiten: 1 2 3 4 5

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!

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 Smile

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

Seiten: 1 2 3 4 5

lpterritory

schauan

snb