Datum

Titel

25.04.2024 12:56:25

Werte von Kunden und Artikel stehen untereinander

25.04.2024 12:55:42

Funktionsparameter auslesen

25.04.2024 11:49:37

Array verwenden

25.04.2024 10:38:52

Bedingte Formatierung per VBA / MaxPoint

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1172to1176

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Array in Zelle schreiben

Forumthread: Array in Zelle schreiben
7 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

ChrisAugsburg

Hallo Excelianer
ich habe eine Arrayformel z.B. {=WENN(B1:B5="";A1:B5;0)} diese liefert das z.B. Ergebnis {1;0;3,0;5}
Gibt es eine Möglichkeit um die arrayformel eine weitere Formel zu bauen die mir das ergebnis "1;3;5" als Text ausgibt.
Sprich gibt es eine Möglichkeit das Array in einer einzigen Zelle komplett anzeigen zu lassen und dabei 0- bzw. Fehlerwerte auszulassen?
Gruss Chris

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

{=WENN(B1:B5="";A1:A5;0)} soll natürlich so heisse

ChrisAugsburg
per UDF

Rudi
AW: per UDF

ChrisAugsburg
Text in Zelle schreiben, kein Array

Erich
AW: Text in Zelle schreiben, kein Array

ChrisAugsburg
Formel ist ohne Hilfsspalte

Erich
AW: Formel ist ohne Hilfsspalte

ChrisAugsburg

{=WENN(B1:B5="";A1:A5;0)} soll natürlich so heisse

30.08.2010 12:15:23

ChrisAugsburg

{=WENN(B1:B5="";A1:A5;0)} soll natürlich so heissen, sorry

per UDF

30.08.2010 13:00:35

Rudi

Hallo,
anstatt deiner Formel:
=Chris(B1:B5;"";A1:A5;0)

Function Chris(rKrit, sMatch, rDann, sSonst)
Dim arrTmp, i As Long, n As Integer, arr()
ReDim arrTmp(rKrit.Cells.Count)
For i = 1 To rKrit.Cells.Count
If rKrit(i) = sMatch Then
arrTmp(i - 1) = rDann(i)
Else
arrTmp(i - 1) = sSonst
End If
Next
For i = 0 To UBound(arrTmp)
If Not IsError(arrTmp(i)) Then
If arrTmp(i)  0 Then
ReDim Preserve arr(n)
arr(n) = arrTmp(i)
n = n + 1
End If
End If
Next
Chris = Join(arr, ";")
End Function

Gruß
Rudi

AW: per UDF

30.08.2010 16:21:17

ChrisAugsburg

Perfekt, 1000 Dank.

Text in Zelle schreiben, kein Array

30.08.2010 13:05:32

Erich

Hi Chris,
also Matrixformel kenne ich das nicht. Aber so ginge es:

	A	B	C	D
1	1		1	1;3;5
2	2	x	0
3	3		3
4	4	x	0
5	5		5

Formeln der Tabelle

Zelle	Formel
C1	{=WENN(B1:B5="";A1:A5;0)}
D1	=TEIL(WENN(ISTFEHLER(A1)+ISTFEHLER(B1); "";WENN(B1="";";"&A1;"")) &WENN(ISTFEHLER(A2)+ISTFEHLER(B2); "";WENN(B2="";";"&A2;"")) &WENN(ISTFEHLER(A3)+ISTFEHLER(B3); "";WENN(B3="";";"&A3;"")) &WENN(ISTFEHLER(A4)+ISTFEHLER(B4); "";WENN(B4="";";"&A4;"")) &WENN(ISTFEHLER(A5)+ISTFEHLER(B5); "";WENN(B5="";";"&A5;"")); 2;9^9)
C2	{=WENN(B1:B5="";A1:A5;0)}
C3	{=WENN(B1:B5="";A1:A5;0)}
C4	{=WENN(B1:B5="";A1:A5;0)}
C5	{=WENN(B1:B5="";A1:A5;0)}

Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!

Matrix verstehen

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

AW: Text in Zelle schreiben, kein Array

30.08.2010 16:24:20

ChrisAugsburg

Auch dir vielen Dank, werde jedoch die UDF von Rudi nehmen, da ich mir dann die Hilfsspalte sparen kann.

Formel ist ohne Hilfsspalte

30.08.2010 16:34:39

Erich

Hi Chris,
sicher ist Rudis UDF geschickter und universeller einsetzbar, aber deine Begründung stimmt nicht:
In meiner Formel in D1 kommt Spalte C nicht vor, also auch damit kannst du dir die Hilfsspalte sparen.
In Spalte C steht einfach nur deine bisherige Formel.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: Formel ist ohne Hilfsspalte

30.08.2010 16:53:11

ChrisAugsburg

stimmt du hast recht, tut mir leid.