VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

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

Ansicht des Beitrags:

Von:
SilverSurfer

Datum:
16.01.2015 19:32:24

Views:
745

Rating:

Antwort:

Thema:
Übertragen nach Datum

Danke für die Antwort

Ich habe mein Problem jetzt selber gefunden, ich musste es nur ordentlich einrücken das alles untereinander steht :)

Select Case Month(Date)
      Case 1: Sheets("Daten").Range("B50:F51").Copy
              Sheets("Gesamt").Range("C27").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
              :=False, Transpose:=False
      
      Case 2: Sheets("Daten").Range("B50:F51").Copy
              Sheets("Gesamt").Range("K27").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
              :=False, Transpose:=False
      
      Case 3: Sheets("Daten").Range("B50:F51").Copy
              Sheets("Gesamt").Range("S27").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
              :=False, Transpose:=False
      
      Case 4: Sheets("Daten").Range("B50:F51").Copy
              Sheets("Gesamt").Range("C43").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
              :=False, Transpose:=False
      
      Case 5: Sheets("Daten").Range("B50:F51").Copy
              Sheets("Gesamt").Range("K43").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
              :=False, Transpose:=False
      
      Case 6: Sheets("Daten").Range("B50:F51").Copy
              Sheets("Gesamt").Range("S43").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
              :=False, Transpose:=False
      
      Case 7: Sheets("Daten").Range("B50:F51").Copy
              Sheets("Gesamt").Range("C59").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
              :=False, Transpose:=False
      
      Case 8: Sheets("Daten").Range("B50:F51").Copy
              Sheets("Gesamt").Range("K59").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
              :=False, Transpose:=False
      
      Case 9: Sheets("Daten").Range("B50:F51").Copy
              Sheets("Gesamt").Range("S59").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
              :=False, Transpose:=False
      
      Case 10: Sheets("Daten").Range("B50:F51").Copy
               Sheets("Gesamt").Range("C75").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
               :=False, Transpose:=False
      
      Case 11: Sheets("Daten").Range("B50:F51").Copy
               Sheets("Gesamt").Range("K75").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
               :=False, Transpose:=False
      
      Case 12: Sheets("Daten").Range("B50:F51").Copy
               Sheets("Gesamt").Range("S75").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
               :=False, Transpose:=False
      
End Select

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