Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1352to1356
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
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Formeln, die bestimmte Zellen ausgeben

2 Formeln, die bestimmte Zellen ausgeben
21.03.2014 20:46:59
Christian
Hallo alle zusammen,
ich bitte um eure Hilfe. Ist es denn möglich, dass 2 Formeln in 2 Spalten runterkopiert den Inhalt folgender Zellen ausgeben?
Die Logik die dahintersteckt ist folgende, die erste Formel soll den Text den sie ausgibt immer wiederholen und die zweite Formel immer eine Zelle nach rechts rücken.
Das Ganze, bis die zweite Formel eine Zelle erreicht hat, die leer ist. In meinem Beispiel wären P1, J2 und L3 leer). Statt die leere Zelle auszugeben, soll dann mit der nächsten Zeile von vorne angefangen werden.
Hat da jemand eine Idee ob und wie sich solche Formeln umsetzen lassen?
Gruß und schönes Wochenende
Chris
Tabelle1!A1 Tabelle1!G1
Tabelle1!A1 Tabelle1!H1
Tabelle1!A1 Tabelle1!I1
Tabelle1!A1 Tabelle1!J1
Tabelle1!A1 Tabelle1!K1
Tabelle1!A1 Tabelle1!L1
Tabelle1!A1 Tabelle1!M1
Tabelle1!A1 Tabelle1!N1
Tabelle1!A1 Tabelle1!O1
Tabelle1!A2 Tabelle1!G2
Tabelle1!A2 Tabelle1!H2
Tabelle1!A2 Tabelle1!I2
Tabelle1!A3 Tabelle1!G3
Tabelle1!A3 Tabelle1!H3
Tabelle1!A3 Tabelle1!I3
Tabelle1!A3 Tabelle1!J3
Tabelle1!A3 Tabelle1!K3
usw.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Formeln, die bestimmte Zellen ausgeben
21.03.2014 21:04:07
anderer
Hallo Christian,
Bsp.:
 AB
1test _1Test 1

Formeln der Tabelle
ZelleFormel
A1=INDEX(Tabelle1!A:A;GANZZAHL((ZEILE()-1)/9)+1)
B1=INDEX(Tabelle1!G:O;GANZZAHL((ZEILE()-1)/9)+1;REST(ZEILE()-1;9)+1)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
MfG Christian

Anzeige
AW: 2 Formeln, die bestimmte Zellen ausgeben
21.03.2014 21:30:10
Christian
Hallo Namensvetter,
zuerst einmal vielen Dank.
Leider ist es nicht ganz das, was ich gesucht habe. Die Zeilen in denen in Spalte B eine 0 steht in meiner angehangenen Datei sind zuviel. Die anderen Zeilen sind das was ich gesucht habe.
Gruß
Christian
PS: Habe jetzt statt Text wie im Original Zahlen benutzt, lassen sich einfacher erzeugen.
https://www.herber.de/bbs/user/89788.xlsx

AW: 2 Formeln, die bestimmte Zellen ausgeben
21.03.2014 22:34:18
anderer
Hallo Christian,
dann so:
 AB
10,928096030,68394385
20,928096030,75534752
30,928096030,75317496
40,928096030,3035258
50,928096030,97743665
60,596693010,73637534
70,596693010,63746392
80,596693010,42761839
90,805113590,43256433
100,805113590,41600735

Formeln der Tabelle
ZelleFormel
A1=Tabelle1!A1
B1=WENN(A1="";"";INDEX(Tabelle1!$G$1:$O$12;VERGLEICH(A1;Tabelle1!A:A;0); ZÄHLENWENN($A$1:A1;A1)))
A2=WENN(ZEILE()>ANZAHL(Tabelle1!$G$1:$O$12); "";WENN(ZEILE()>ANZAHL(BEREICH.VERSCHIEBEN(Tabelle1!$G$1:$O$1;;;VERGLEICH(A1;Tabelle1!A:A;0); )); INDEX(Tabelle1!A:A;VERGLEICH(A1;Tabelle1!A:A;0)+1); A1))
B2=WENN(A2="";"";INDEX(Tabelle1!$G$1:$O$12;VERGLEICH(A2;Tabelle1!A:A;0); ZÄHLENWENN($A$1:A2;A2)))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Formel in A2 nach unten kopieren, B1 dito!
MfG Christian

Anzeige
geht auch mit INDEX()
21.03.2014 23:01:30
anderer
Hallo Christian,
geht auch mit INDEX(), sonst kommen hier von den Formelexperten wieder hinweise zu "bösen" volatilen Formeln ;-)
 AB
10,928096030,68394385
20,928096030,75534752
30,928096030,75317496
40,928096030,3035258
50,928096030,97743665
60,596693010,73637534
70,596693010,63746392
80,596693010,42761839
90,805113590,43256433
100,805113590,41600735

Formeln der Tabelle
ZelleFormel
A1=Tabelle1!A1
B1=WENN(A1="";"";INDEX(Tabelle1!$G$1:$O$12;VERGLEICH(A1;Tabelle1!A:A;0); ZÄHLENWENN($A$1:A1;A1)))
A2=WENN(ZEILE()>ANZAHL(Tabelle1!$G$1:$O$12); "";WENN(ZEILE()>ANZAHL(Tabelle1!$G$1:INDEX(Tabelle1!O:O;VERGLEICH(A1;Tabelle1!A:A;0))); INDEX(Tabelle1!A:A;VERGLEICH(A1;Tabelle1!A:A;0)+1); A1))
B2=WENN(A2="";"";INDEX(Tabelle1!$G$1:$O$12;VERGLEICH(A2;Tabelle1!A:A;0); ZÄHLENWENN($A$1:A2;A2)))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
MfG Christian

Anzeige
AW: geht auch mit INDEX()
22.03.2014 07:20:29
Christian
Hallo Namensvetter,
sieht gut aus, vielen Dank für deine Mühe und noch ein schönes Wochenende
Christian

AW: 2 Formeln, die bestimmte Zellen ausgeben
21.03.2014 21:27:16
Dieter
Hallo Christian,
du kannst das mit dem folgenden VBA-Programm machen: Sub Umordnen() Dim letzteZeileQ As Long Dim spalteQ As Long Dim wb As Workbook Dim wsQ As Worksheet ' Quelle Dim wsZ As Worksheet ' Ziel Dim zeileQ As Long Dim zeileZ As Long Set wb = ThisWorkbook Set wsQ = wb.Worksheets("Quelle") Set wsZ = wb.Worksheets("Ziel") wsZ.UsedRange.ClearContents letzteZeileQ = wsQ.Cells(wsQ.Rows.Count, "G").End(xlUp).Row zeileZ = 1 For zeileQ = 1 To letzteZeileQ spalteQ = 7 Do Until IsEmpty(wsQ.Cells(zeileQ, spalteQ)) wsZ.Cells(zeileZ, "A") = wsQ.Range("A1") wsZ.Cells(zeileZ, 2) = wsQ.Cells(zeileQ, spalteQ) zeileZ = zeileZ + 1 spalteQ = spalteQ + 1 Loop Next zeileQ wsZ.Activate End Sub
Ich lade die zugehörige Mappe hoch
https://www.herber.de/bbs/user/89789.xls
Viele Grüße
Dieter

Anzeige
AW: 2 Formeln, die bestimmte Zellen ausgeben
21.03.2014 21:41:01
Christian
Hallo Dieter,
auch dir erstmal vielen Dank.
Leider ist da ein Haken drin, vielleicht habe ich mich ja auch nicht deutlich genug ausgedrückt. Der Text in SpalteA ist nicht fest, auch der ändert sich mit jeder Zeile. Das heißt auf dein Beispiel bezogen, in Ziel!A1:A9 müsste jedesmal Quelle!A1 stehen, in Ziel!A10:A15 müsste jedesmal Quelle!A2 stehen, in Ziel!A16:A20 müsste jedesmal Quelle!A3 stehen, usw.
Wäre dir sehr verbunden, wenn du es schaffst das Makro so umzuschreiben, dass es auch das berücksichtigt.
Vielen Dank
Christian

AW: 2 Formeln, die bestimmte Zellen ausgeben
21.03.2014 23:20:45
Dieter
Hallo Christian,
das ist nur eine kleine Änderung. Hier das neue Programm: 
Sub Umordnen()
Dim letzteZeileQ As Long
Dim spalteQ As Long
Dim wb As Workbook
Dim wsQ As Worksheet ' Quelle
Dim wsZ As Worksheet ' Ziel
Dim zeileQ As Long
Dim zeileZ As Long
Set wb = ThisWorkbook
Set wsQ = wb.Worksheets("Quelle")
Set wsZ = wb.Worksheets("Ziel")
wsZ.UsedRange.ClearContents
letzteZeileQ = wsQ.Cells(wsQ.Rows.Count, "G").End(xlUp).Row
zeileZ = 1
For zeileQ = 1 To letzteZeileQ
spalteQ = 7
Do Until IsEmpty(wsQ.Cells(zeileQ, spalteQ))
wsZ.Cells(zeileZ, "A") = wsQ.Cells(zeileQ, 1)
wsZ.Cells(zeileZ, 2) = wsQ.Cells(zeileQ, spalteQ)
zeileZ = zeileZ + 1
spalteQ = spalteQ + 1
Loop
Next zeileQ
wsZ.Activate
End Sub
Ich lade das noch einmal hoch:
https://www.herber.de/bbs/user/89792.xls
Viele Grüße
Dieter

Anzeige
AW: 2 Formeln, die bestimmte Zellen ausgeben
22.03.2014 07:26:47
Christian
Hallo Dieter,
das sieht sehr gut aus, vielen Dank.
Ich hätte nur noch eine Frage, mangels VBA Kenntnissen.
Was muss ich ändern, falls mal noch Spalten hinzukommen, also Q als Grenze nicht ausreicht?
Zeilen sind ja wenn ich richtig sehe, kein Problem, wenn es mehr werden als bislang.
Gruß
Chris

AW: 2 Formeln, die bestimmte Zellen ausgeben
22.03.2014 11:46:08
Dieter
Hallo Christian,
das Programm hat keine Beschränkung bzgl. der Anzahl der Spalten. Es arbeitet in jeder Zeile bis zur ersten Leerzelle.
Falls dich der Buchstabe Q auf den Gedanken gebracht, das Programm würde nur bis Spalte Q arbeiten, Q steht bei mir für "Quelle".
zeileQ ist die Zeilennummer im Blatt "Quelle"
entsprechend spalteQ die Spaltennummer.
Wenn du das Programm in deiner eigenen Arbeitsmappe verwendest, musst du ggf. die Blattnamen "Quelle" und "Ziel" durch deine eigenen Namen ersetzen.
Das betrifft nur die beiden Statements: 
  Set wsQ = wb.Worksheets("Quelle")
Set wsZ = wb.Worksheets("Ziel")
Viele Grüße
Dieter
Anzeige

300 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Bitte um Excel Hilfe / Wenn & Leere Zellen
Hans

Hallo Leute,
ich hoffe mir kann hier jemand helfen, da ich vergeblich versucht habe dahinter zu kommen.
Folgendes, ich habe eine Arbeitszeitübersicht in der ich die Arbeitszeit ausrechnen will und der Übersichtlichkeit wegen an Tagen an denen ich nicht arbeite die Zelle leer bleibt.
02.09.2008 15:53:00
Thread-ID: 1006840
7 Beiträge
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Anzeige
Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Inhalt einer Zelle aufteilen in Zellen untereinand
thorsten

Hallo,
bitte schaut Euch mal die Liste an
https://www.herber.de/bbs/user/56516.xls
Es geht darum, dass in einer Zelle mehrere email Adressen angegeben sind - getrennt durch ein Semikolon.
Gibt es eine Möglichkeit diese untereinander darzustellen - je eine Adresse in einer zelle...
05.11.2008 12:35:00
Thread-ID: 1021856
4 Beiträge
SowDataForm, Fehler wenn Zeile 1 leer
Reinhard

Hallo Wissende,
der Fehler 1004, "ShowDataForm-Methode des Worksheet-Objekts konnte zu nicht ausgeführt werden" kommt nicht wenn A1 die erste Zelle der Tabelle ist. Bei A9 als erste Zelle kommt der Fehler.
Was kann ich dagegen tun?
Microsoft empfiehlt auf http://support.microsoft....
06.11.2008 11:19:00
Thread-ID: 1022202
3 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
5
2
6
15
5
4
5
2
3
2
6
2
7
5
4
8
3
5
4
7
9
1
11
3
4