Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
912to916
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Syntax-Hilfe zur Worksheet_Change

Syntax-Hilfe zur Worksheet_Change
02.10.2007 18:19:27
Klaus
Hallo Forum,
ich brauche eine Syntax-Hilfe zur Worksheet_Change:
Wenn ich innerhalb [G6:G35] eine Änderung eingebe, soll in der Range
Target.Offset(0,First) : Target.Offset(0,Last) die Target.Value eingetragen werden.
First und Last habe ich als Integer-Variable bereits ausgelesen.
Wie bekomme ich die Range zusammen? Bisher habe ich

Private Sub Worksheet_Change(ByVal Target As Range)
Dim FColumn As Integer
Dim First As Integer
Dim Last As Integer
FColumn = Range("B1").Value
First = FColumn
Last = FColumn + 12
If Not Intersect(Target, [G6:G35]) Is Nothing Then
If Target.Count = 1 Then Range("A1").Value = Date
End If
If Target.Count = 1 Then Target.***Range von First bis Last*** = Target.Value
End Sub


***Range von First bis Last*** ist der Knackpunkt
Für Hilfe Dank im voraus
Klaus

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Syntax-Hilfe zur Worksheet_Change
02.10.2007 19:14:01
Andi
Hi,
zB so:
Application.EnableEvents = False
Range(Target.Offset(0, First), Target.Offset(0, Last)).Value = Target.Value
Application.EnableEvents = True
Die beiden Application-Zeilen sind wichtig, weil sonst wieder das Change-Ereignis ausgelöst würde, und das so lange, bis die Zeile voll ist...
Schönen Gruß,
Andi

Dankeschön!
02.10.2007 19:23:00
Klaus
Hallo Andi,
genau das war's ...
Vielen Dank
:-)
Gruß Klaus

gern geschehen... (ot)
02.10.2007 19:46:32
Andi
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige