Statisch reagieren auf dynamische Werte

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallö Wolli,
mir ist zwar bewusst, daß ich heute schwer von Begriff bin, aber daß ich so daneben liege,
das war mir doch nicht klar. Möglich isses. Ich versuche es nochmal.
Wer gibt wann welche Zahlen in Sp. A ein?
- Die gebe ich selber ein. Eine nach der anderen.
Woher kommen die Zahlen in B?
- Das sind Ergebnisse von Werten aus anderen Bereichen der Tabelle, die hier durch eine
hübsche Array-Formel dargestellt werden. Das heißt, sie sind dynamisch und passen sich
immer dem unteren Ende der Tabelle, sprich letzte Zahl in Spalte A, an. Im Grunde wird da
etwas hochgezählt und wenn ein bestimmter Wert erreicht wird, der aber durch die Array-Formel
ständig in einer anderen Zelle steht, soll in spalte C ein Eintrag stattfinden.
Jedenfalls steht die Signalzahl, wenn sie kommt, immer an letzter Stelle in der Spalte.
Sind sie sortiert?
Wie gesagt, durch Array-Formel angelegt
Warum soll in C eine 1 stehen? Soll überhaupt in C eine 1 stehen? Was bedeutet sie?
Ob da eine 1 oder eine 5 steht ist egal. Ich brauche die als Signal für eine andere
Berechnung

Wofür das ganze? Was soll das Ergebnis sein?
Ich stelle damit eine Tabelle für unsere Skat-Runde zusammen und wollte mir
etwas Arbeit sparen.
Danke nochmal,
Born

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long Application.EnableEvents = False i = 2 Do If Cells(i, 2) = 100 Then i = i + 1 Do 'In jede Zelle der Spalte C "1" eintragen 'und den Zähler erhöhen ... Cells(i, 3) = 1 i = i + 1 'bis in Sp. D "10" erscheint oder die Reihe in D zu Ende geht. Loop Until Cells(i - 1, 4) = 10 Or IsEmpty(Cells(i, 4)) Exit Do End If i = i + 1 Loop Until IsEmpty(Cells(i, 1)) Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long If Target.Column = 2 And IsNumeric(Target.Value) Then If Target.Offset(0, 21) = 20 Then i = Target.Row Cells(i, 33) = 1 End If End If End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long If Target.Column = 2 And IsNumeric(Target.Value) Then 'also in der gleichen Zeile zwanzig Spalten weiter rechts!? If Target.Offset(0, 21) = 20 Then ' i = Target.Row ... geht auch kürzer ... ' Cells(i, 33) = 1 ... geht auch kürzer ... Cells(Target.Row,33) = 1 'das ist Spalte AG! End If End If End Sub

Hallo Born,
target ist ein Range-Objekt, also ein Bereich an sich, das der Ereignisprozedur bei der Auslösung mitgegeben wird. Es kann verwendet werden oder auch nicht. Beim Ereignis Worksheet_Change ist es der Bereich, der geändert wurde.
target.address ist eine Zeichenkette, die die Adresse des Bereichs darstellt, also etwa "$C$17".
target.row ist die (oberste) Reihe des Bereiches, also etwa 17.
target.column ist die (erste) Spalte des Bereiches, also etwa 3.
target.value ist der Wert, der in dem Bereich steht. Also der Inhalt von Zelle C17, z.B. 100 oder "Horst".
Wenn Du nur target schreibst, kann das z.B. bedeuten:
- target.select wählt den Bereich aus
- x = target bedeutet, x nimmt den Wert von target.value (die Standardeigenschaft!) an. Sofern der Datentyp passt.
- set y = target (wenn dim y as range) heißt allerdings, dass y nun auf den gleichen Bereich wie target verweist, denn hier wird nicht der Wert, sondern der Bereich selbst zugewiesen. Aber das interessiert uns hier nicht.
Denke dich da nochmal rein, denn ich verstehe nicht ganz, was Du machst. target kannst Du nicht verändern, es IST halt der Bereich (i.d.R. die Zelle), die verändert wurde und das Ereignis ausgelöst hat.
Falls Du meinst "Ich gebe in Zelle GW7 eine 5 ein, daraufhin soll in Zelle U6 und AC6 etwas geprüft oder gemacht werden, dann bist Du mit cells(target.value + 1, 20) und cells(target.value + 1, 33) richtig.
Sicher, dass Du nicht target.row meinst?
Um eine Reihe von sieben Zahlen einzutragen, baust Du eine For..next-schleife:


[dim i as long]
For i = 1 to 7
cells(target.value + i,33) = i
Next i

Gruß, Wolli

Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Range("$D$1").Select Selection.Copy Cells(Target.Row, Target.Column - 1).Select Selection.PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Cells(Target.Row + 1, Target.Column).Select End If End Sub

Beliebteste Forumthreads (12 Monate)

Statisch reagieren auf dynamische Werte

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread