Thema Datum  Von Nutzer Rating
Antwort
15.04.2016 07:28:37 Alex
Solved
Blau Formel Year
 15.04.2016 08:38:32 Gast87827
Solved
15.04.2016 20:05:25 Gast18541
Solved
18.04.2016 14:57:41 Gast80554
Solved

Ansicht des Beitrags:
Von:
Gast87827		 Datum:
15.04.2016 08:38:32		 Views:
795		 Rating:
     
Antwort:
 Nein
Thema:
Formel Year

Hallo,

eine Möglichkeit:

Public Sub year()
    Dim i As Integer, j As Integer
    i = 1   'Zeile in der begonnen wird
    j = 3   'Spalte in der geprüft wird, ob die Zelle leer ist
    
    With Worksheets("Tabelle1") 'Tabellenname evtl. anpassen
        Do While .Cells(i, j) <> ""
            .Cells(i, 1) = DatePart("yyyy", Date)
            i = i + 1
        Loop
    End With
End Sub

Gruß

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:



  • 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
15.04.2016 07:28:37 Alex
Solved
Blau Formel Year
 15.04.2016 08:38:32 Gast87827
Solved
15.04.2016 20:05:25 Gast18541
Solved
18.04.2016 14:57:41 Gast80554
Solved