Office 2003: Anfänger sucht ein wenig Unterstützung

[willione]

Hallo zusammen,

ich brauche mal eine kleine hilfe von euch.

ich habe folgendes problem. ich möchte gerne ein kleines makro haben welches mir folgendes problem abnimmt.

ich habe daten in form von einer "1" in der spalte A5:A2500
 und Daten in der Spalte B5:B2500 ebenfalls durch eine "1"

ich möchte nun sobald ich eine "1" in A5 oder A6 usw. eingebe das in der spalte G5, G6, usw. das akuelle Datum eingetragen wird. gleiches gilt für spalte B5 oder B6 usw. allerdings dann das datum in spalte H5, H6, usw.. Vielleicht kann mir jemand dann auch mitteilen wie ich das ganze in VBA übertragen kann in meine vorhandene Arbeitsmappe.
Danke im voraus.

[Beverly]

Hi Willi,

versuche es mal mit diesem Code im Codemodul des Tabellenblattes:

Code: [Auswählen]

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Row > 4 And Target.Row < 2501 Then
      If Target.Column < 3 Then
         If Target = 1 Then Target.Offset(0, 7) = Date
      End If
   End If
End Sub
Bis später,
Karin

[willione]

hallöchen karin,

das klappt leider nicht. woher kommen denn die befehlsstrukturen damit das makro weiß welche zelle angesprochen ist.? vielleicht hast du noch eine anderelösung für mein problem. trotzdem schon einmal ein danke an dich.
lg :-)

[Beverly]

Hi Willi,

und WAS klappt nicht?

Diese Codezeile

Code: [Auswählen]

If Target.Row > 4 And Target.Row < 2501 Then
 besagt, dass nur die Zeilen > 4 und< 2501, und diese Codezeile

Code: [Auswählen]

If Target.Column < 3 Then
besagt, dass nur die Spalten A und B auf eine Eingabe reagieren sollen.

Und schlussendlich besagt diese Codezeile

Code: [Auswählen]

If Target = 1 Then Target.Offset(0, 7) = Date
dass bei Eingabe von 1 jeweils 7 Spalten rechts davon das Datum eintragen werden soll

Bis später,
Karin