Ich möchte in Excel 2010 Einen Produkt in eine Tabelle übertragen diseses klappt mit :
Sheets("Daten").Range("B50:F51").Copy
Sheets("Gesamt").Range("C27").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
auch Sehr Gut nun möchte ich dieses Produkt automatisch nach Monat sortieren
Das heist : Sheets("Gesamt").Range("C27") = Januar
Sheets("Gesamt").Range("K27") = Februar
usw......
Jetzt habe ich mir bei Google diese Formel rausgesucht :
Sub PruefeTag()
Select Case Weekday(Date)
Case 1, 7: MsgBox "Heute ist frei"
Case 2: MsgBox "Heute ist Montag"
Case 3: MsgBox "Heute ist Dienstag"
Case 4: MsgBox "Heute ist Mittwoch"
Case 5: MsgBox "Heute ist Donnerstag"
Case 6: MsgBox "Heute ist Freitag"
End Select
End Sub
läst sich dieses kombinieren oder muss man es komplett umschreiben
Danke für jede Antwort
|