Hallo,
ich habe eine Liste von Daten am linken Rand eines Excel-Tabellenblattes (eigentlich OpenOffice Calc, aber die mögliche Lösung müßte die gleiche sein) wie folgt:
A
B
C
D
E
F
Dazu links daneben eine Pyramide wie diese:
A
B C
D E F
Die hier vorhandenen Werte sind mit = aus den Zellen links übernommen worden.
Wenn ich jetzt zwischen C und D ein X einsetzen möchte und D bis F runter ziehe, sollen sich die Inhalte Pyramide entsprechend ändern, tun sie aber nicht. Der Einsatz von $ hat hier auch nicht geholfen…weiß jemand Rat?
Vielen Dank schon mal,
Susanne
Hallo Susanne
Beispiel
Mal schauen ob ich das richtig verstanden habe
Gruß Holger
Hallo Holger,
wenn ich auf Deinen Beispiel-Link gehe, kommt ein Fenster, das mich zum Download einer setup.exe auffordert…?
Viele Grüße
Susanne
Ich habe eine Datei die heißt TempJean.htm hochgeladen,
einfach auf Download > öffnen klicken.
Die Datei wird im Browser angezeigt
Hallo Holger,
ah, okay, jetzt habe ich’s gefunden…und nein, gemeint ist das so wie hier: https://docs.google.com/spreadsheet/ccc?key=0Aln6yBK…
Wenn ich auf der linken Seite Zellen nach unten verschiebe und neue Namen einfüge, sollen die sich in der Pyramide auch ändern.
Viele Grüße
Susanne
achso…und die Zellen am linken Rand können unterschiedliche Farben haben…wenn die in der Pyramide mit übernommen werden würden, wäre das natürlich auch klasse… 
das so wie hier:
https://docs.google.com/spreadsheet/ccc?key=0Aln6yBK…
Wenn ich auf der linken Seite Zellen nach unten verschiebe und
neue Namen einfüge, sollen die sich in der Pyramide auch
ändern.
Hallo Susanne,
das ist die Formelansicht (Strg+#):
Tabellenblatt: [Mappe1]!Tabelle1
│ B │ C │ D │ E │ F │ G │ H │
───┼────────┼────────┼────────┼────────┼────────┼────────┼────────┤
12 │ │ │ │ =Zei1 │ │ │ │
───┼────────┼────────┼────────┼────────┼────────┼────────┼────────┤
13 │ │ │ =Zei2 │ =Zei3 │ =Zei4 │ │ │
───┼────────┼────────┼────────┼────────┼────────┼────────┼────────┤
14 │ │ =Zei5 │ =Zei6 │ =Zei7 │ =Zei8 │ =Zei9 │ │
───┼────────┼────────┼────────┼────────┼────────┼────────┼────────┤
15 │ =Zei10 │ =Zei11 │ =Zei12 │ =Zei13 │ =Zei14 │ =Zei15 │ =Zei16 │
───┴────────┴────────┴────────┴────────┴────────┴────────┴────────┘
Zei1 : =LINKS(INDIREKT("A2");1)
Zei2 : =LINKS(INDIREKT("A3");1)
Zei3 : =LINKS(INDIREKT("A4");1)
usw.
B12:H15
haben das Zahlenformat: Standard
Tabellendarstellung erreicht mit dem Code in FAQ:2363
Du kannst auch den nachstehenden Code benutzen, der erstellt das automatisch.
Gruß
Reinhard
Alt+F11, Einfügen—Modul, Code reinkopieren, Editor schließen.
Alt+F8, das Makro tt ausführen lassen.
Option Explicit
Sub tt()
Dim N As Integer
For N = 1 To 16
ThisWorkbook.Names.Add Name:="Zei" & N, RefersToR1C1:="=LEFT(INDIRECT(""A" & N + 1 & """),1)"
Next N
Call Pyramide(1, 12, 1, 0)
Call Pyramide(2, 13, 3, -1)
Call Pyramide(5, 14, 5, -2)
Call Pyramide(10, 15, 7, -3)
End Sub
Sub Pyramide(ByVal N As Integer, ByVal Zei As Long, ByVal Anz As Long, ByVal offSpa As Long)
Dim S As Long
Const Spalte As Long = 5
For S = 0 To Anz - 1
Cells(Zei, Spalte + offSpa + S).Formula = "=Zei" & N
N = N + 1
Next S
End Sub
Hallo Reinhard,
danke für den Versuch Deiner Hilfestellung.
Aber schon Deine Beschreibung einer manuellen Umsetzung ist leider zu hoch für mich, geschweigen denn die Einbindung von Code zur Automatisierung…immerhin scheint es so zu sein, dass ich mit der Indirekt-Funktion zum Ziel kommen könnte. Ich werde da mal weiter recherchieren…
Viele Grüße
Susanne
danke für den Versuch Deiner Hilfestellung.
Aber schon
Deine Beschreibung einer manuellen Umsetzung ist leider zu
hoch für mich, geschweigen denn die Einbindung von Code zur
Automatisierung…immerhin scheint es so zu sein, dass ich
mit der Indirekt-Funktion zum Ziel kommen könnte. Ich werde da
mal weiter recherchieren…
Hallo Susanne,
okay.
Wenn dich mein Beitrag erschreckt hat, schon vorstellbar
,
wer/was hindert dich daran in Zelle E12 zu schreiben
=Zei1
Und in Excel den Namen Zei1 für diese Formel zu vergeben:
=LINKS(INDIREKT(„A2“);1)
Nur das müßtest du für E12 tun.
Wo hängst genau?
Und der Code, der macht das für dich automatisch.
Auch in D11, D12, usw, er erspart dir nur die manuelle Eingabe
und Namensdefinition.
D.h. du mußt ihn nur starten, wie das geht habe ich beschrieben.
Gehe bitte die „Sache“ nochmal neu an…
Gruß
Reinhard