Thema Datum  Von Nutzer Rating
Antwort
Rot Jahresberechung einfügen
 28.11.2016 20:34:39 swizzmade
NotSolved
29.11.2016 17:29:27 Mackie
NotSolved
29.11.2016 17:59:24 Gast31327
NotSolved
29.11.2016 18:19:32 Gast83690
NotSolved
29.11.2016 19:35:43 Gast47491
NotSolved
30.11.2016 06:27:25 swizzmade
NotSolved
30.11.2016 06:35:50 Gast60651
NotSolved
30.11.2016 08:20:36 lupo1
NotSolved
30.11.2016 16:34:17 Mackie
NotSolved
30.11.2016 17:53:11 swizzmade
NotSolved
30.11.2016 18:03:47 Gast42855
NotSolved
30.11.2016 18:13:43 swizzmade
NotSolved
30.11.2016 22:28:05 swizzmade
Solved

Ansicht des Beitrags:
Von:
swizzmade		 Datum:
28.11.2016 20:34:39		 Views:
1677		 Rating:
     
Antwort:
  Ja
Thema:
Jahresberechung einfügen

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

?
1
=DATEDIF(L2;HEUTE();"y") & " Jahre "
?
1
 
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
     
     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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Jahresberechung einfügen
 28.11.2016 20:34:39 swizzmade
NotSolved
29.11.2016 17:29:27 Mackie
NotSolved
29.11.2016 17:59:24 Gast31327
NotSolved
29.11.2016 18:19:32 Gast83690
NotSolved
29.11.2016 19:35:43 Gast47491
NotSolved
30.11.2016 06:27:25 swizzmade
NotSolved
30.11.2016 06:35:50 Gast60651
NotSolved
30.11.2016 08:20:36 lupo1
NotSolved
30.11.2016 16:34:17 Mackie
NotSolved
30.11.2016 17:53:11 swizzmade
NotSolved
30.11.2016 18:03:47 Gast42855
NotSolved
30.11.2016 18:13:43 swizzmade
NotSolved
30.11.2016 22:28:05 swizzmade
Solved