Thema Datum  Von Nutzer Rating
Antwort
11.10.2017 16:04:34 Matthias Brucksch
NotSolved
Blau Kalenderwoche nach DIN berechnen
 11.10.2017 18:16:41 Gast31640
NotSolved

Ansicht des Beitrags:
Von:
Gast31640		 Datum:
11.10.2017 18:16:41		 Views:
532		 Rating:
     
Antwort:
  Ja
Thema:
Kalenderwoche nach DIN berechnen		 
Sub A_Copy_KW()
Dim lRow As Long, x As Long

   'Tabelle1:SpalteA soll in Tabelle2:SpalteA kopiert werden
   'also ohne Einschränkungen die ganze Spalte
   
   Sheets("Tabelle1").Columns("A").Copy Sheets("Tabelle2").Cells(1, 1)
   
   'In Tabelle2:SpalteB soll die Kalenderwoche nach DIN mittels Funktion eingefügt werden
   'langsam und zum Mitschreiben
   
   With Sheets("Tabelle2")
      lRow = .Cells.Find("*", .Cells(1), -4123, 2, 1, 2, False).Row
      For x = 1 To lRow
         'nicht LEER und mögliches Datum
         If .Cells(x, 1) <> "" And IsDate(.Cells(x, 1)) Then
            .Cells(x, 2).Value = DatePart("ww", .Cells(x, 1).Value, vbMonday, vbFirstFourDays)
         End If
      Next x
   End With
   
End Sub

 

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
11.10.2017 16:04:34 Matthias Brucksch
NotSolved
Blau Kalenderwoche nach DIN berechnen
 11.10.2017 18:16:41 Gast31640
NotSolved