AW: Noch eine Frage...
17.08.2004 07:36:50
Andi
Hallo Hans,
poste dir mal den Code, denn ich drück mich manchmal ein bischen blöd aus:
'Eintragen der Werte
Private Sub CommandButton1_Click()
On Error Resume Next
ErsteFreieA
z = ActiveCell.Row
Cells(z, 1).Value = TextBox1.Value
Cells(z, 2).Value = TextBox2.Value
Cells(z, 11).Value = TextBox3.Value
'Erhöhung der Werte über St.zahl in Textbox
Cells(z, 8).Value = (Cells(z - 1, 8).Value + CDbl(TextBox2.Text)) - 1
'Berechnung des ersten Wertes in Spalte D
Cells(z, 4).Value = Cells(z - 1, 8).Value + 1
'bleibt immer gleich
Cells(z, 3).Value = Cells(z - 1, 3).Value 'für HR
Cells(z, 5).Value = Cells(z - 1, 5).Value 'für /
Cells(z, 7).Value = Cells(z - 1, 7).Value 'für -
Cells(z, 9).Value = Cells(z - 1, 9).Value 'für /
End Sub
Das Jahr steht dann in Spalte F und J.
Nun soll einfach aus dem aktuellen Datum das Jahr im Format JJ herausgeschnitten werden.
Habe mal eine Aufzeichnung gemacht:
Sub Makro1()
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("F9").Select
Selection.NumberFormat = "yy"
End Sub
Vielen Dank für deine Hilfe!
Übrigens hast du da ein super Forum geschaffen!
Gruß Andi