Kopieren geht schon ...
25.09.2010 08:35:08
Matthias
Hallo Adi
Du meinst sicher, Du kannst das Kopierte nicht (in z.B Spalte A) einfügen?
Hier eine Variante
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim vTest
Monat = ActiveSheet.Cells(1, 2).Value
If (Target.Column = MyCol1 Or Target.Column = MyCol2) And Target.Row > MyRow Then
On Error Resume Next
vTest = Target * 1
On Error GoTo 0
Application.EnableEvents = False
If IsNumeric(vTest) Then
Select Case vTest
Case 1 To 31
Target = DateSerial(Year(Date), Monat, vTest)
Case Else
If Not Application.CutCopyMode = 1 Then
Target = ""
Target.Select
End If
End Select
Else
Target = ""
Target.Select
End If
Application.EnableEvents = True
End If
Application.CutCopyMode = 0
End Sub
Zitat Es funktioniert alles bestens
Das stimmt nicht ganz, Adi.
Du mußt sicherstellen, das in Deiner Tabelle "1" (Monatsauswahl)
auch tatsächlich nur Werte zwischen 1 und 12 zugelassen werden!
Beim Verlassen dieses Blattes darf die "MonatsZelle" nicht leer sein
Probiers mal mit der Eingabe 33 als Monat
(kann ja vorkommen, das mal jemand statt 3 aus Versehen eine 33 schreibt)
Du mußt sicherstellen, das nur der 1. bis max. Monatsletzte eigegeben werden kann.
Also im September darf die Eingabe von 31 nicht den 01.10 hervorbringen.
Du mußt also prüfen, ob der DatenEintrag auch im vorgegebenen Monat liegt!
Viel Erfolg beim Umsetzen der Vorschläge
Gruß Matthias