Function soll Zellwert ändern

Function SuchenUndFinden(Ausdruck As String) Dim Zelle As Range Dim Bereich As Range Dim CounterSpalte As Long Dim CounterZeile As Long Set Bereich = Range("K8:L12") Set Zelle = Bereich.Find(what:=Ausdruck, LookIn:=xlValues, lookat:=xlWhole) If Not Zelle Is Nothing Then CounterZeile = Zelle.Row CounterSpalte = Bereich.Columns.Count + Bereich.Column + 1 SuchenUndFinden = CounterZeile & "/" & CounterSpalte ' Die Zelle (CounterZeile,CounterSpalte) soll um 1 hochgezählt werden Else SuchenUndFinden = "nix gefunden" End If End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub worksheet_change(ByVal Target As Excel.Range) Application.EnableEvents = False If Not Counter Is Nothing Then Counter.Value = Counter.Value + 1 Set Counter = Nothing Application.EnableEvents = True End Sub

…Barbara,
dass du unbedingt eine UDF zu ungewöhnlichem Tun veranlassen willst. Meine 1.Versuche mit Derartigem liefen vor Jahren auch auf einen von der UDF gesetzten bzw ausgelösten Trigger hinaus (RECHERCHE-Stichwort physische Entkopplung). Aber inzwischen habe ich längst eine Möglichkeit zur direkten Veranlassung einer Fernwirkung einer Fml gefunden und weiterentwickelt (RECHERCHE-Stichwort selbstkorrigierende Eingabezelle).
ABER, ich halte das eigentlich alles, wie zuvor vermutet, schlicht für überflüssig! Immerhin bist du ja inzwischen auch, wie weiland ich, auf ein Ereignis verfallen. Warum dann noch der Aufwand mit der eigenen UDF? Mit einer meiner Standard-UDFs könnte das Land leicht mit einer singularen (1zellig-1wertigen) MatrixFml ermittelt wdn:
{=INDEX($B4:$B7;--VJoin(WENN(B10=Tabelle1[[Stadt1]:[Stadt3]];ZEILE(1:4);"");"";-1))}
(VJoin: letztpublizierte Version 1.4 in hochgeladenenen Dateien - kein Link, weil zZ am Laptop)
Aber wahrscheinlich läuft das Ganze doch nur auf einen KlickZähler hinaus. Dann wären auch diese beiden Zeilen überflüssig und es könnte ja auch in der defTab geklickt wdn!
Nichtsdestotrotz habe ich mal beide Varianten vorgesehen und noch dazu 2 Ereignisse verkoppelt. Was du nicht benötigst, könntest du ja entfernen bzw ändern (falls es dir nicht primär um deine Idee, sondern um das Ergebnis geht):

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Const adSuLaBer$ = "B4:B7", adSuStBer$ = "B10:D10", adTaStBer$ = "D4:F7"
Dim ZNr As Long, xZ As Range, zV As Range
If Not Intersect(Target, Me.Range(adSuStBer)) Is Nothing Then
For Each xZ In Target
ZNr = WorksheetFunction.Match(xZ.Offset(1, 0), Me.Range(adSuLaBer), 0)
Set zV = Me.Range(adSuLaBer).Cells(ZNr).Offset(0, 1)
zV = zV + 1
Next xZ
ElseIf Target.Cells.Count = 1 Then
If Not Intersect(Target, Me.Range(adTaStBer)) Is Nothing Then
If Not IsEmpty(Target) Then Set zV = Me.Cells(Target.Row, 3): zV = zV + 1
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Worksheet_Change(Target)
End Sub

Übrigens, onurs Variante bleibt mir beim Öffnen auf der OnTime-Anweisung hängen (zZ Win7.2, Xl14/2010)! Ansonsten fktioniert sie, ebenso wie deine, auch gut!
Gruß + FrOst @all, Luc :-?

…Barbara,
sondern Konstanten, die im PgmVerlauf nicht geändert wdn können. Man kann sie aber inhaltlich leicht an konkrete Bedingungen anpassen und muss dazu nicht erst das ganze Pgm durchsuchen. Ihre Namen sind dagegen nur Kürzel → ad für Adresse, Su für Such(en), La für Land und St für Stadt. ZNr, xZ und zV sind aber tatsächlich Variablen → ZNr beinhaltet die ermittelte Zellen- bzw Zeilennr; xZ ist ein Objekt, das in einer objekt- (und variant-)orientierten For Each-Schleife quasi die LaufVariable vertritt (x.Zelle), mit dem Vorteil, dass ein konkretes Objekt, auf das sie gerade referenziert, direkt über sie geändert wdn kann (call by reference) und mit ihr auch alle Eigenschaften des Originals verwendet wdn können (hier zB .Offset); zV ist einfach nur ein Objekt, das auf die jeweils richtige ZählZelle referenziert (hätte ich auch zZ nennen können). Die „Systematik“ ist nur meine und die Namen könnten auch (und auch bei mir mal) anders lauten.
VJoin ist eine UDF (wie auch deine Fkt), für die lange eine vglbare Xl-Fkt fehlte, während VBA so etwas seit Xl9/2000 kennt. Inzwischen hat MS in den Versionen > Xl14/2010 2 ähnliche Fktt hinzugefügt (TEXTKETTE und TEXTVERKETTEN), die aber nicht allen Nutzern dieser Versionen z.V. stehen (und wohl auch nicht so flexibel sind).
Link VJoin: https://www.herber.de/bbs/user/99024.xlsm (BspDatei mit UDFs)
Im Übrigen bin ich aber immer noch der Meinung, dass ein einfacher Klick-Zähler reichen würde…
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread