|
Hallo Zusammen,
Vor einigen Jahren hat ein "Freund" mir eine Excel Tabelle mit VBA lösung geschrieben.
(Mitgliederverwaltung) es ist klein, jedoch funktioniert alles TipTop.
Das einzige problem ist, ich würde gerne in der Spalte N die Jahresdifferenz einfügen.
Noraml via Excel wäre es ja
=DATEDIF(L2;HEUTE();"y") & " Jahre "
If cbEdit Then
lRow = Val(cbEdit.Caption)
Else
lRow = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
End If
ActiveSheet.Range("A" & lRow + 1).Formula = anlass
ActiveSheet.Range("B" & lRow + 1).Formula = snummer
ActiveSheet.Range("C" & lRow + 1).Formula = jnummer
ActiveSheet.Range("D" & lRow + 1).Formula = name1
ActiveSheet.Range("E" & lRow + 1).Formula = vorname
ActiveSheet.Range("F" & lRow + 1).Formula = bday
ActiveSheet.Range("G" & lRow + 1).Formula = email
ActiveSheet.Range("H" & lRow + 1).Formula = "'" & mobile
ActiveSheet.Range("I" & lRow + 1).Formula = strassen
ActiveSheet.Range("J" & lRow + 1).Formula = plz
ActiveSheet.Range("K" & lRow + 1).Formula = ort
ActiveSheet.Range("L" & lRow + 1).Formula = eintritt
ActiveSheet.Range("N" & lRow + 1).Formula = Austritt
ActiveSheet.Range("O" & lRow + 1).Formula = vorstand
Unload Me
End Sub
Kann mir jemand dabei helfen?
Natürlich könnte ich einfach alles von Hand nachtragen, jedoch würde es den Aufwand erleichtern.
Die Hauruck version war, ich kopiere die Zelle einfach immer Weiter. Das Problem war, alls ich eine neue Person erfasst habe,
war die bei Zelle 883 und nicht an der Position 53. (52Einträge)
Besten Dank
|