Variabele Kennzeichnung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Luschi,
gefällt mir schon ganz gut, ich möchte jedoch mich nicht nur auf 3 Bereichsthemen einschränken!
Wenn ich eine Zeile einfüge funktioniert alles bestens, erweitere ich die Arbeitsliste um einen weiternen Arbeitsbereich, so müste ich "wieder" neue Bereichnamen einpflegen!
Um nicht immer einen neuen Bereich mit Namen versehen zu müssen, weil dies eine Arbeitsliste ist und ständig Veränderungen unterworfen sein wird, müste eigendlich abgefragt werden ob ein Zähler in Spalte A und B neu ist. Damit habe ich eben ein neunes Thema (Bereich) geöffnet !
Wird also ein neues Thema begonnen ,so wird z.B. dies in Spalte A mit 004 und in Spalte B mit 000 beginnen!
Der neue Arbeitspunkt ist eröffnet!
Ist nun ein neues Arbeitspunkt (Thema) vorhanden, so soll das Marko erkennen das auch die Regel mit dem X "zu erweitern ist"
Damit möchte ich nicht ständig neue Berichsnamen manuell vergeben!
Kann man diese Variabele noch einbinden?
Gruß
Lemmi

Hallo Luschi
leider bekomme ich nicht das nachfolgende vorhandenen Marko mit Deinem Marko zusammengeführt!


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'nicht bei Markierung mehrerer Zellen
'If Application.CutCopyMode Then Exit Sub 'nicht beim Kopieren/Ausschneiden
Application.EnableEvents = False
'Veränderungen im Bereich C6:O1000 werden in E3 mit Datum protokolliert
If Not Intersect(Target, Range("C6:O1000")) Is Nothing Then
Range("E3") = Now
'Veränderungen im Bereich E6:E1000 werden in derjewaligen Zeile in Spalte C mit Datum  _
protokolliert
If Not Intersect(Target, Range("E6:F1000")) Is Nothing Then
Range("C" & Target.Row) = Now
End If
'Veränderungen im Bereich G6:H1000,M6:M1000,O6:O1000 werden in derjewaligen Zeile und  _
Spalte N mit Datum protokolliert
If Not Intersect(Target, Range("G6:H1000,M6:M1000,O6:O1000")) Is Nothing Then
Range("N" & Target.Row) = Now
End If
'Veränderungen im Bereich H6:H1000 werden in derjewaligen Zeile und Spalte H  mit Datum  _
protokolliert
If Not Intersect(Target, Range("H7:H1000")) Is Nothing Then
Application.EnableEvents = 0
'Target.Value = Target.Value & "  " & Now' mit Datum und Uhrzeit: hh:mm:ss
'oder
Target.Value = Target.Value & "  " & Date  ' nur mit Datum
Application.EnableEvents = 1
End If
End If
Application.EnableEvents = True
End Sub

Könntest Du noch einmal Hand anlegen!
Gruß
Lemmi

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread