oder gleich -> .Cells(lngZ) = Now
01.02.2012 10:15:32
Matthias
Hallo
Hab mal Erichs Vorschlag aufgegriffen und versucht das Ganze noch kompfortabler zu gestalten.
D.h Du musst im Code nicht immer den ZeilenIndex ändern, sondern kannst es über eine Inputbox eingeben.
Kannst ja mal Testen
Option Explicit
Sub Peter()
Dim lngZ$
lngZ = InputBox("Welche Zeile im Bereich soll benutzt werden", "Index", 48)
If StrPtr(lngZ) = 0 Or lngZ = "" Or Not IsNumeric(lngZ) Then Exit Sub
If Int(lngZ) = 0 Then
If Range("ZAbstime").Cells(lngZ) = "" Then
Range("ZAbstime").Cells(lngZ) = Now
Else
If MsgBox("Die Zielzelle ist NICHT leer!" & vbLf & "Daten überschreiben", vbYesNo, " A c _
h t u n g !") = vbYes Then
Range("ZAbstime").Cells(lngZ) = Now
Else
MsgBox "keine Aktion - Abbruch"
End If
End If
Else
MsgBox "Index ausserhalb des Bereiches" & vbLf & "max. Zeilen im Bereich = [ " & Range(" _
ZAbstime").Cells.Count & " ]", vbInformation, " Error: für Zeile " & lngZ
End If
End Sub
https://www.herber.de/bbs/user/78679.xls
Für eine kurze Rückinfo ob das passt, oder ob evtl. Fehler aufgetreten sind wäre ich dankbar.
Gruß Matthias