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:
872		 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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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:
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
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