Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: willione am November 13, 2012, 15:03:21 Nachmittag
-
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.
-
Hi Willi,
versuche es mal mit diesem Code im Codemodul des Tabellenblattes:
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
-
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 :-)
-
Hi Willi,
und WAS klappt nicht?
Diese Codezeile
If Target.Row > 4 And Target.Row < 2501 Then
besagt, dass nur die Zeilen > 4 und< 2501, und diese Codezeile
If Target.Column < 3 Then
besagt, dass nur die Spalten A und B auf eine Eingabe reagieren sollen.
Und schlussendlich besagt diese Codezeile
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