Datum automatisch in andere Zelle kopieren
15.01.2009 14:00:41
ThomasB
Nach langem möchte ich ein wenig in Excel wieder üben. Für meine Frau will ich eine Zuchttabelle für Kaninchen erstellen. soweit habe ich das auch in Griff. Nur mit dem Datum und der automatischen Kopierung gibt es ein kleines Problem. In der Celle C2 wird das erste Deckdatum eingetragen. Dieses wir +30 Tage addiert und soll dann automatisch in die Celle B8 geschrieben werden. Wenn in D2 ein weiteres Deckdatum eingetragen wird dann +30 Tage und auf B8 geschrieben. usw bis evtl. F2 gefüllt. Das konnte mit dem untenstehenden Makro schonmal realisieren. Wenn zusätzlich C8 gefüllt wird dann soll C2-F2 gelöscht werden und bei Neueintrag auf C2 soll das Datum dann auf Celle B9 geschrieben werden. Dieser Vorgang wiederholt sich dann wenn C9 gefüllt wird.
Mein Versuch:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim bereich As Range
Dim i As Integer
If Cells(2, 3) = "" Then
MsgBox "Datum in C2 fehlt!"
Range("D2").Select
Exit Sub
End If
If Cells(1, 1) "erledigt" Then
i = Sheets("Tabelle1").Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1
If i
Hoffentlich ist es verständlich was ich machen möchte.
MFG
TB