Tracking-Analyse
#41
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!
Top
#42
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Top
#43
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
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste