Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1032to1036
1032to1036
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Rückgabewert einer selbstgebauten Funktion

Forumthread: Rückgabewert einer selbstgebauten Funktion

Rückgabewert einer selbstgebauten Funktion
18.12.2008 08:26:00
Mike
Hallo,
ich habe eine Funktion geschrieben, die den Wert der letzten, nichtleeren Zelle von links ermittelt. Der Funktionswert wird aber immer nur dann aktualisiert, wenn ich sie über die Eingabezeile 'bestätige'. Was mache ich falsch?
Beispiel eines Aufrufs, wobei ab Zelle S3 links gesucht wird...
=LetzterWert(S3)

Function LetzterWert(Zelle As Range)
LetzterWert = Range(Zelle.End(xlToLeft).Address)
End Function


Vielen Dank
Mike

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Rückgabewert einer selbstgebauten Funktion
18.12.2008 09:14:04
Hajo_Zi
Hallo Mike,
vielleicht hilft die Zeile
Application.Volatile

AW: Rückgabewert einer selbstgebauten Funktion
18.12.2008 10:10:00
Mike
Danke an Euch! es funktioniert nun perfekt!
1. Zeile Application.Volatile (owT)
18.12.2008 09:18:00
RS

Anzeige

Forumthreads zu verwandten Themen

Initialwert bei string * 10
Eddie

Hallo,
ich habe ein kleines Problem mit der Type Anweisung.
Ich definiere in der Struktur u.a.
Type TestTest teststring As String * 10 End Type Dim Test(500) As TestTest
Zu meinem erstaunen, steht in z.B. Test.teststring, bevor die Variable das erste mal beschrieben wurde, 10...
15.08.2008 11:03:00
Thread-ID: 1002107
4 Beiträge
Anzeige
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
@ Tino wg. 100 Excellisten durchsuchen
Jessi

Hallo Tino,
Du hast nachträglich auf mein vorheriges Posting folgenden Code gepostet:
Option Explicit
Sub Test() Dim Fso, Ordner, varDatei Dim DateiName As String Dim i As Long 'ab welcher Zeile einfügen i = 2 Set Fso = CreateObject("Scripting.FileSystemObject") 'hier Pfad angeben...
20.11.2008 08:20:00
Thread-ID: 1026299
16 Beiträge
Anzeige
Laufzeitfehler 1004 bei Formeleinfügen in Zelle
Werner

bei folgender Formel
ActiveCell.FormulaR1C1 = "=RC[-2]*100/RC[-1]"
erhalte ich Laufzeitfehler 1004. Woran kann es liegen?
Gruß Werner.
26.11.2008 14:31:29
Thread-ID: 1028037
7 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
KGrößte mit Nebenbedingung
chrissey

Hallo Leute,
habe folgendes Problem:
Habe in Spalte A Kosten und in Spalte B das Jahr in dem diese aufgeschlagen sind.
Ich bräucht jetzt die Top 5 Kosten jedoch nur im Jahr 2009. z.B.:
Spalte A Spalte B
10,00 2009
20,00 2010
30,00...
08.02.2010 10:23:49
Thread-ID: 1136695
5 Beiträge
Zellen löschen die mit 10 oder 11 beginnen
Fenja

Hallo nochmal Excelgemeinde,
ich möchte nur die Zellen (nicht Zeilen) in Spalte K löschen, die mit den Zellinhalt 10 oder 11 beginnen.
Nur auf den Bebinn des Zellinhalts kommt es dabei an, der Rest muss unbedingt stehen bleiben.
Vilen Dank an euch.
Gruß F.
12.02.2010 09:16:24
Thread-ID: 1137963
2 Beiträge
KGROESSTE / LARGE in VBA moeglich ?
Helge

Hallo,
eigentlich laeft mein Programm, wie ich das will. Wenn ihr die Tabelle oeffnet, seht ihr einen gelb makierten Bereich, der eigentlich 365 Tage lang ist. Die liste Bsp. Tabelle ist stark verkuerzt.
Hier das Bsp: https://www.herber.de/bbs/user/68036.xls
wenn ihr die zwei roten...
16.02.2010 10:45:11
Thread-ID: 1138824
2 Beiträge
OWC10.Objekt:Graph um einen Datenpunkt erweitern
Marc

Guten Morgen zusammen ..
da der Topic etwas limitiert ist werde ich hier versuchen mein Problem einwenig zu verdeutlichen .. folgendes stellt sich mir dar :
ich stelle eine Unmenge an Daten mittels eines OWC10.Objektes innerhalb einer Userform garphisch dar. Die Darstellung ansich ist k...
17.06.2010 09:57:00
Thread-ID: 1162361
3 Beiträge
Late Binding mit Outlook2010 scheitert
Thomas

Hallo,
ich bin von Office2007 auf Office2010 umgestiegen und kann seitdem nicht mehr von Excel auf Outlook zugreifen.
Hier mein Code (Ausschnitt):
- - - -
Dim objApp As Object
Set objApp = GetObject("", "Outlook.Application")
- - - -
objApp liefert nichts zurück, was...
17.07.2010 19:50:21
Thread-ID: 1167575
13 Beiträge
Excel 2010 - Abhängige Zellen finden
Peter

Guten Tag
Finde mich in Excel 2010 noch nicht ganz zurecht (Version ist bei "Excel-Version" im Eingabeformular noch nicht vorhanden).
Wie kann ich herausfinden, welche Zellen z.B. auf Zelle B10 in Tabelle "Uebersicht" zugreifen (Vorgänger / Nachfolger, "tracing"?)?
Danke für eine An...
01.10.2010 14:17:27
Thread-ID: 1180239
4 Beiträge
Makro 2003 bringt 2010 zum Absturz
Jens

Hallo zusammen,
nachstehendes Makro läuft in 2003 tadellos.
Sheets("Kurzüberblick").Select
Dim zelle As Range
Application.ScreenUpdating = False
Set zelle = Range("A15:A" & Cells(Rows.Count, 1).End(xlUp).Row).Find(0, LookAt:=xlWhole)
Rows(zelle.Row & ":" & Ce...
28.02.2011 15:47:21
Thread-ID: 1203420
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige