Funktion im Direktmodus zum Laufen bringen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Ilka Maria,
zunächst mal zu den Bezeichnungen:
WURZEL(Zahl)
ist eine Funktion, Zahl ist dabei ein Argument, der Funktionsname ist WURZEL.
=7*WURZEL(2)+5
ist eine Formel, die in einer Zelle stehen kann. Eine Formel beginnt mit einem Gleichheitszeichen "=".
An dem Beispiel siehst du auch schon: In Formeln können Funktionen verwendet werden.
Du hst eine benutzerdefinierte Funktion, in VBA definiert?
Wo steht der Code dazu?
Wie heißt die Funktion, welche Argumente (Parameter) braucht sie?
Welchen Typ hat der Funktionswert? (Wie sieht das Ergebnis der Fkt. aus?
Deine Funktion willst du in einer Formel in einer Tabellenzelle verwenden.
Nehmen wir an, deine Fkt. heißt meineFkt, braucht zwei Zahlen als Argumente und liefert eine Zahl als Ergebnis.
Dann kannst du z. B. diese Formel in eine Zelle schreiben:
=1+meineFkt(7;8)
Alles klar?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Function VERKETTEN_neu(ByRef bereich As Range, Trennzeichen As String) As String Dim rng As Range For Each rng In bereich If rng "" Then VERKETTEN_neu = VERKETTEN_neu & rng & Trennzeichen End If Next If Len(VERKETTEN_neu) > 0 Then _ VERKETTEN_neu = Left(VERKETTEN_neu, Len(VERKETTEN_neu) - Len(Trennzeichen)) End Function

Hi Ilka Maria,
eine meiner Fragen blieb unbeantwortet: Wo steht der Code deiner Funktion?
Noch eine Frage:
Wo genau steht die Formel =verketten_neu(A6:J6), in welcher Zelle?
Könnte es sein, dass bei dir eine Zirkelbezug-Warnung angezeigt wird?
(Mit so einem Zirkelbezug habe ich die 0 als Funktionswert hinbekommen.)
Der Code ist m. E. nicht fehlerhaft. Ich würde es etwas anders schreiben, aber das ist nicht wesentlich.
Hier gibt es einen Zirkelbezug in A3, in A8 funzt die Funktion prima:

	A	B	C
1	Y	X	W
2
3	0
4
5
6	Y	X	W
7
8	Y;X;W

Formeln der Tabelle

Zelle	Formel
A3	=VERKETTEN_neu(A1:C3;";")
A8	=VERKETTEN_neu(A6:C7;";")

zu b) Probiers mal mit Public vor dem Code der Funktion.
zu c) Das könnte man so schreiben (Code in einem "normalen" Modul):


Option Explicit
Public Function VERKETTEN_neu(ByRef rngBer As Range, strTrennz As String) As String
Dim rng As Range
For Each rng In rngBer
If rng  "" Then VERKETTEN_neu = VERKETTEN_neu & rng & strTrennz
Next rng
If Len(VERKETTEN_neu) > 0 Then _
VERKETTEN_neu = Left(VERKETTEN_neu, Len(VERKETTEN_neu) - Len(strTrennz))
End Function
Sub Test()
Dim strT As String
strT = VERKETTEN_neu(ActiveWorkbook.Worksheets(1).Range("A1:J1"), "_")
MsgBox strT
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Funktion im Direktmodus zum Laufen bringen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread