Thema Datum  Von Nutzer Rating
Antwort
10.01.2015 05:13:02 SilverSurfer
NotSolved
11.01.2015 20:18:25 MarkusK
NotSolved
13.01.2015 17:35:17 Gast9207
NotSolved
Blau Übertragen nach Datum
 14.01.2015 11:28:52 Gast27695
NotSolved
16.01.2015 19:32:24 SilverSurfer
Solved

Ansicht des Beitrags:
Von:
Gast27695		 Datum:
14.01.2015 11:28:52		 Views:
697		 Rating:
     
Antwort:
  Ja
Thema:
Übertragen nach Datum

Hallo,

 

ich denke du benötigst kein "Select Case", vorausgesetzt deine Monats-Spalten sind nach einer gewissen Logik oder Regelmäßigkeit angeordnet,

also z.B.

Januar ->Spalte C

Feb.     -> Spalte E

März    -> Spalte G

oder so ähnlich.

 

Mit Month(Date) kann man den Monat ermitteln, als Zahl.

Und damit kann man dann relativ einfach die Spalte  errechnen.

Dim Monat As Integer
Dim Offset As Integer
Dim Faktor As Integer
Dim Spalte As Long

Offset = 3  'Spalte in welcher der Monat Januar steht.
Faktor = 2  ' Anzahl Spalten bis zum nächsten Monat
Monat = Month(Date)

Spalte = Offset + (Monat - 1) * Faktor

Sheets("Daten").Range("B50:F51").Copy
Sheets("Gesamt").Cells(Spalte, 27).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
                                    :=False, Transpose:=False

 

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
10.01.2015 05:13:02 SilverSurfer
NotSolved
11.01.2015 20:18:25 MarkusK
NotSolved
13.01.2015 17:35:17 Gast9207
NotSolved
Blau Übertragen nach Datum
 14.01.2015 11:28:52 Gast27695
NotSolved
16.01.2015 19:32:24 SilverSurfer
Solved