Daten speichern
08.06.2006 13:36:58
Frank
habe folgenden Code im Forum gefunden und ihn für meine Bedürfnisse erweitert.
Gibt es eine Möglichkeit den Code zu vereinfachen oder zu kürzen.
Danke im Vorraus
Gruß Frank
Private Sub CommandButton1_Click()
Dim rng As Range
Set rng = Cells(Cells(Rows.Count, 3).End(xlUp).Row + 1, 3)
rng = Date
rng.Offset(0, 1) = Time
rng.Offset(0, 2) = Range("b2")
rng.Offset(0, 3) = Range("b3")
rng.Offset(0, 4) = Range("b4")
rng.Offset(0, 5) = Range("b5")
rng.Offset(0, 6) = Range("b6")
rng.Offset(0, 7) = Range("b7")
rng.Offset(0, 8) = Range("b8")
rng.Offset(0, 9) = Range("b9")
rng.Offset(0, 10) = Range("b10")
rng.Offset(0, 11) = Range("b11")
rng.Offset(0, 12) = Range("b12")
rng.Offset(0, 13) = Range("b13")
rng.Offset(0, 14) = Range("b14")
rng.Offset(0, 15) = Range("b15")
rng.Offset(0, 16) = Range("b16")
rng.Offset(0, 17) = Range("b17")
rng.Offset(0, 18) = Range("b18")
rng.Offset(0, 19) = Range("b19")
rng.Offset(0, 20) = Range("b20")
rng.Offset(0, 21) = Range("b21")
rng.Offset(0, 22) = Range("b22")
rng.Offset(0, 23) = Range("b23")
rng.Offset(0, 24) = Range("b24")
rng.Offset(0, 25) = Range("b25")
rng.Offset(0, 26) = Range("b26")
rng.Offset(0, 27) = Range("b27")
rng.Offset(0, 28) = Range("b28")
rng.Offset(0, 29) = Range("b29")
rng.Offset(0, 30) = Range("b30")
rng.Offset(0, 31) = Range("b31")
rng.Offset(0, 32) = Range("b32")
rng.Offset(0, 33) = Range("b33")
rng.Offset(0, 34) = Range("b34")
rng.Offset(0, 35) = Range("b35")
rng.Offset(0, 36) = Range("b36")
rng.Offset(0, 37) = Range("b37")
rng.Offset(0, 38) = Range("b38")
rng.Offset(0, 39) = Range("b39")
rng.Offset(0, 40) = Range("b40")
rng.Offset(0, 41) = Range("b41")
rng.Offset(0, 42) = Range("b42")
rng.Offset(0, 43) = Range("b43")
rng.Offset(0, 44) = Range("b44")
rng.Offset(0, 45) = Range("b45")
rng.Offset(0, 46) = Range("b46")
rng.Offset(0, 47) = Range("b47")
rng.Offset(0, 48) = Range("b48")
rng.Offset(0, 49) = Range("b49")
rng.Offset(0, 50) = Range("b50")
rng.Offset(0, 51) = Range("b51")
rng.Offset(0, 52) = Range("b52")
rng.Offset(0, 53) = Range("b53")
rng.Offset(0, 54) = Range("b54")
rng.Offset(0, 55) = Range("b55")
rng.Offset(0, 56) = Range("b56")
rng.Offset(0, 57) = Range("b57")
rng.Offset(0, 58) = Range("b58")
rng.Offset(0, 59) = Range("b59")
rng.Offset(0, 60) = Range("b60")
rng.Offset(0, 61) = Range("b61")
End Sub
Anzeige