Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA - Jetztzeit

VBA - Jetztzeit
elima
Hallo Excelfreunde.
Meine VBA Kenntnisse reichen leider bei weitem nicht aus, um dieses Problem zu lösen.
Ich verwende folgendes Makro das bei Veränderung der Zelle G4 die Jetztzeit in Zelle E4 schreibt.
Funktioniert wunderbar, doch nun möchte ich die Tabelle um einige Zeilen verlängern.
Wie muß das Makro nun erweitert werden damit das auch bis Zeile 40 funktioniert?
Eingabe ist immer $G(Zeile), Jetztzeit sollte immer in $E(Zeile) stehen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$4" Then
Target.Offset(0, -2) = Time
End If
End Sub


Vielen Dank für Eure Mühe

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
so ...
02.07.2009 18:27:09
Matthias
Hallo

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G4:G40")) Is Nothing Then
Target.Offset(0, -2) = Time
End If
End Sub


Gruß Matthias

AW: so ...
02.07.2009 18:35:21
elima
Vielen, vielen Dank Matthias für Deine schnelle und Fachkundige Hilfe.
Gruß,elima
AW: VBA - Jetztzeit
02.07.2009 18:31:03
ransi
HAllo
Teste doch mal dieses:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Dim Bereich
Dim EVENTS As Boolean
Set Bereich = Intersect(Target, Range("G1:G40"))
If Bereich Is Nothing Then Exit Sub
EVENTS = Application.EnableEvents
On Error GoTo raus
Application.EnableEvents = False
For Each Zelle In Bereich
    Zelle.Offset(0, -2) = Time
Next
raus:
Application.EnableEvents = EVENTS
End Sub

ransi
Anzeige
AW: VBA - Jetztzeit
02.07.2009 18:38:09
elima
Danke ransi, ich werde auch Deine Lösung probieren.
Herzlichen Dank für Deine Mühe

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige