Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array in Funktion

Array in Funktion
04.11.2005 14:03:52
Daniel
Hallo Excel Freunde,
Ich will in einer Funktion ein Array erzeugen und das auch aus der Funktion zurückgeben. So sieht meine Funktion aus, aber die Funzt leider net...
Public 

Function getShorts() As Variant
With DialogStundenNachweis.MitarbeiterList
Dim i As Integer
ReDim getShorts(80)
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
getShorts(j) = .List(i, 2)
End If
Next i
End With
End Function

Danke!

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

Betreff
Datum
Anwender
Anzeige
AW: Array in Funktion
04.11.2005 14:34:05
Heiko
Hallo Daniel,
du mußt erst mit einem Array in der Funktion das ganze abarbeiten und dann der Funktion dieses Array in "einem Rutsch" zuweisen. Hier ein Beispiel:
Bei der Funktionsdeklaration sollte (oder darf sogar nicht ) Variant nicht angegeben werden.

Function FunctionMitArray(z As Integer, s As Integer)
Dim M As Variant
ReDim M(z, s)
Dim j As Integer, I As Integer
For I = 0 To z
For j = 0 To s
M(I, j) = CInt((Rnd() * 49) + 1)
Next
Next
FunctionMitArray = M
End Function

Gruß Heiko

PS: Rückmeldung wäre nett !
AW: Array in Funktion
04.11.2005 15:08:09
Daniel
OK, Danke. Musste es noch bisschen umbasteln, aber es ging.
Anzeige
AW: Array in Funktion
04.11.2005 15:20:59
Heiko
Hallo Daniel,
wenn es läuft dann braucht die Frage ja nicht mehr als offen markiert sein.
Ich schließe sie mal.
Gruß Heiko
AW: Array in Funktion
04.11.2005 14:43:01
Rolf
Hallo Daniel,
woher kommt denn so plötzlich das j?
fG
Rolf
Option Explicit

Function getShorts() As Variant
Dim Arr(80)
Dim i%
With DialogStundenNachweis.MitarbeiterList
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Arr(i) = .List(i, 2)
End If
Next i
End With
getShorts=Arr
Erase Arr
End Function

36 Forumthreads zu ähnlichen Themen

Tabellenarray an Tag der Ufrm übergeben
Peter

Hallo Forum,
ich möchte bestimmte Tabellenblätter, die als Array zusammengefasst sind,
einer Variable zuordnen.
Diese Variable soll bei Aufruf der Ufrm durch eine
Schaltfläche der Tag Eigenschaft der Ufrm übergeben werden und entsprechende
Tabellenblätter ein bzw. ausblenden...
06.12.2009 10:29:57
Thread-ID: 1122029
3 Beiträge
Anzeige
Arraylist-Methode insert() funktioniert nicht
Jörg

Hallo,
was ist am folgenden Code falsch? Ich möchte an zweiter Stelle ein Item mit dem Wert 1 einfügen.
Private Sub test() Dim x As Object Set x = Nothing Set x = CreateObject("System.Collections.ArrayList") x.add 5 x.add 2 x.add 10 x.insert (1,"1") End Sub
Bei der letzten Zeile...
14.02.2010 23:22:13
Thread-ID: 1138543
6 Beiträge
Array an ParmaArray übergeben
Schattenkirchner

Hallo Spezialisten,
ich habe eine Prozedur mit einem ParamArray: Sub TEST (ParamArray Number()) End Sub Der Aufruf
TEST 1, 6, 9, 55, 1000
funktioniert einwandfrei, sofern sich die Anzahl der Numbers in grenzen hält. Wenn ich aber ca. 250 Argumente eintippen muss, wirds schon müssi...
30.05.2010 18:01:45
Thread-ID: 1159471
7 Beiträge
Anzeige
Objekt an Funktion übergeben
Dirk

Hallo liebes Forum,
Ich habe lange rumprobiert aber es will nicht gelingen...
... Wie kann ich ein Objekt an eine Funktion übergeben?
Hier der Aufruf Private Sub CommandButton1_Click() Call createarray("Tabelle1", 2, 1, 35, Userform1.ListBox1) End Sub Hier die Funktion
Function...
20.07.2010 21:18:45
Thread-ID: 1167962
6 Beiträge
Tabelle in Funktion übergeben
Dirk

Hallo zusammen!
Frage ist folgendes möglich?
Auf einem Tabellenblatt Tabelle1 befinden sich Images als control
in einer Funktion
function imageoption(ctl as string, wks as Worksheet)
wks(ctl).picture = load picture (blabla)
End Function
Ein Click ereignis soll die W...
30.10.2010 16:14:42
Thread-ID: 1184523
3 Beiträge
Reihe eines Arrays an neues Array übergeben
Dennis

Hallo zusammen,
ich würde gerne wissen ob es möglich ist eine komplette Reihe eines Arrays an ein neues Array zu übergeben ohne dabei auf schleifen zurück greifen zu müssen.
Also das man direkt sagt
z.B. Array1(800,149)
und nun möchte ich in dem Array2 die komplette Reihe 350 zu...
20.06.2011 17:06:24
Thread-ID: 1219008
8 Beiträge
Daten aus einer Funktion in Array
Guybrush

Hallo!
Folgendes Problem:
Ich gebe in einer Funktion (Variant) ein Array in ein Worksheet aus.
Im Worksheet ist der Bereich mit SHIFT+CTRL+ENTER markiert.
Die Daten aus der Funktion sind teilweise Datum, Zeit und Zahlen:
z.B.: ab A1:
13.05.2012 00:06:03 140 2
16.05.2...
22.08.2012 19:22:43
Thread-ID: 1276090
5 Beiträge
Data Strucute an Funktion übergeben
Benni

Hallo,
ich habe ein kleines Problem bei der Übergabe von Daten Strukturen an eine Funktion, folgender Aufbau liegt vor:
Ich möchte in der unten S ub "berechnen" die Datenstrukur werte2 übergeben, allerdings sollen in dieser Datenstruktur auch die Werte von der Struktur werte1 enthalten...
28.12.2012 14:50:44
Thread-ID: 1292251
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
9
5
6
6
5
2
7
4
4
8
3
7
12
2
2
2
13
21
4
6
4
9
22
3