UDF in Zelle eintragen und durch Wert ersetzen od.

Guten Abend
Ich habe mir ein UDF geschrieben, das ausgehend von der aktuelle Tabelle und Zeile zu den vorigen Tabellen geht, bis in der Zelle, die aus der entsprechenden Zeile und der mit der Funktion übergebenen Spalte ermittelt wird, ein Wert gefunden wird. Sobald dies der Fall ist, wird der Tabellenname zurückgegeben, wo der Wert gefundne wurde.
Die UDF gibt "" zurück, wenn eine Spalte links von der aufrufenden Zelle nichts in der Zelle steht. Steht erstmals etwas in der Zelle (kein Eintrag in einer frühere Tabelle), wird "Neu" ausgegeben.
Das funktioniert grundsätzlich.
Nicht ganz klar ist mir, ob es nun "elegant" ist, diese UDFs in den Zellen einzutragen und dann in Werte umzuwandeln (letztendlich will ich als Ergebnis ein Wert in der Zelle).
Oder ist es sinnvoller, den Wert schon im VBA zu berechnen und nur diesen einzutragen?
Wenn ja, wie müsste ich das anpacken - mit Application.Caller würde das dann ja nicht laufen.
Danke für eine Antwort.
Gruss, Peter
https://www.herber.de/bbs/user/75333.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Peter,
probier Mal diesen Code unter "DieseArbeitsmappe".

' **********************************************************************
' Modul: DieseArbeitsmappe  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Dim lngIndex As Long
  On Error GoTo ErrExit
  Application.EnableEvents = False
  With Target
    If .Count = 1 Then
      If .Column < 3 And .Row > 3 Then
        If Sh.Cells(.Row, 1) <> "" And Sh.Cells(.Row, 2) <> "" Then
          If Sh.Index < Me.Worksheets.Count Then
            For lngIndex = Sh.Index + 1 To Me.Worksheets.Count
              If Me.Sheets(lngIndex).Cells(.Row, 3) <> "" Then
                Sh.Cells(.Row, 3) = Me.Sheets(lngIndex).Name
                Exit For
              End If
            Next
            If Sh.Cells(.Row, 3) = "" Then Sh.Cells(.Row, 3) = "Neu"
          End If
        Else
          Sh.Cells(.Row, 3) = ""
        End If
      End If
    End If
  End With
  ErrExit:
  Application.EnableEvents = True
End Sub

« Gruß Sepp »

' ********************************************************************** ' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim lngIndex As Long On Error GoTo ErrExit Application.EnableEvents = False With Target If .Count = 1 Then If .Column < 3 And .Row > 3 Then If Sh.Cells(.Row, 1) <> "" And Sh.Cells(.Row, 2) <> "" Then If Sh.Index > 1 Then For lngIndex = Sh.Index - 1 To 1 Step -1 If Me.Sheets(lngIndex).Cells(.Row, 3) <> "" Then Sh.Cells(.Row, 3) = Me.Sheets(lngIndex).Name Exit For End If Next If Sh.Cells(.Row, 3) = "" Then Sh.Cells(.Row, 3) = "Neu" End If Else Sh.Cells(.Row, 3) = "" End If End If End If End With ErrExit: Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

UDF in Zelle eintragen und durch Wert ersetzen od.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

336 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UDF in Zelle eintragen und durch Wert ersetzen od.

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

336 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread