online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon ponscho vom 11.08.2021, 14:52 Options

Lösung

Werte in Spalten nebeneinander sollen untereinander

Hallo @ all,

Gibt es ein Makro das mir die Werte, die in Spalten nebeneinander stehen
http://img229.imageshack.us/i/aufnahme1k.jpg/

im nächsten Tabellenblatt 'Ergebnis', in Spalte A mit jeweils einer Leerzeile nach jedem Block untereinander bringt, und mir dies im Anschluss als Textdatei speichert?

internette grüsse
ponscho


Antwort schreiben

Antwort 1 von rainberg vom 11.08.2021, 15:40 OptionsLösung

Lösung
Hallo ponscho,

das geht auch mit folgender Formel, welche Du in A1 des
Ergebnisblattes einträgst und nach unten ziehst.


=WENN(ZEILE()<=ZÄHLENWENN(Tabelle1!$A$1:$G$3;"*")+3;INDEX
(Tabelle1!A$1:G$3;KÜRZEN((ZEILE(Tabelle1!A1)-
1)/7)+1;REST(ZEILE(Tabelle1!A1)-1;7)+1);"")


Anstatt einer Leerzelle zwischen den Blöcken wird eine 0 ausgegeben,
welche Du evtl mittels Zelformatierung unterdrücken kannst.


Gruß
rainberg

Antwort 2 von rainberg vom 11.08.2021, 16:15 Options

Hallo ponscho,

wenn Du es anders herum meinst, also die bestehenden Spaltenwerte
untereinander, dann nimm diese Formel

=WENN(REST(ZEILE();4)=0;"";INDIREKT(ADRESSE(REST(ZEILE();4
);AUFRUNDEN(ZEILE()/4;0);;;"Tabelle1")))


Gruß
Rainer

Antwort 3 von ponscho vom 11.08.2021, 17:00 Options

Hallo Rainer,

Vielen Dank für Deinen Lösungsvorschlag mit den Formeln.

Würde dies auch mit einem Makro gehen?
Formel 1 funktioniert nicht und Formel 2 ist nicht mein gewünschtes Ergebnis was am Ende so aussehen sollte:

[#1]
T=2
F=_ALL
1=& one
2=And One
3=0|0

[#81]
T=2
F=ARTIST
1=Ac/dc
2=AC/DC
3=0|0

[#82]
T=2
F=ALBUM
1=Ac/dc
2=AC/DC
3=0|0

Habe es schon probiert mit Kopieren -> Inhalt einfügen + Transponieren, was auch funktioniert. Nur müsste ich jede Zeile A-F per Hand markieren, in die nächste freie Zeile im neuen Tabellenblatt und einfügen + Leerzeile.

Könnte man dies nicht automatisieren bis der letzte Datenblock erreicht ist?

PS: Habe jetzt schnell dahin getippselt, da ich zur KG muss

internette grüsse
mick

Antwort 4 von rainberg vom 11.08.2021, 17:53 Options

Hallo mick,

die erste Formel ist an Dein Beispiel angepasst und funktioniert genau
so wie Du es willst.

siehe Anhang

Wenn Du eine andere Tabellenstruktur hast, muss die Formel natürlich
angepasst werden. Das kann man aber nur, wenn man sie kennt.

Übrigens sind hoch geladene Bilder nicht das geeignete Mittel, wenn
schon, sollte es eine Beispielmappe sein.

http://rapidshare.com/files/266228001/transponieren.xls.html

Gruß
Rainer

Antwort 5 von ponscho vom 11.08.2021, 23:13 Options

Hallo Rainer,

entschuldige bitte, dass ich behauptet habe die Formel funktioniere nicht. Ich muss mich berichtigen, Sie funtioniert ;o)
Vielen Dank für Deine Hilfe!

Habe mir jetzt ein Makro gebastelt inkl. Deiner Formel. Das Makro hat nur noch ein Manko: Wie muss der Code lauten um eine Datei zu speichern ohne Bestätigung?

internette grüsse
mick

Antwort 6 von ponscho vom 12.08.2021, 00:05 Options

Edit:

Habe den Code dafür gefunden

Application.DisplayAlerts = False

Application.DisplayAlerts = True

Antwort 7 von ponscho vom 12.08.2021, 11:17 Options

Guten Morgen Rainer!

Habe mich zu füh gefreut. Irgenwo knall ich einen Fehler in die Formel rein und sie überträgt mir nur einen Teil der Daten in das neue Tabellenblatt.

Hier mal die Testdatei

Wäre sehr nett, wenn du Sie Dir mal anschauen und mir helfen könntest.

internette grüsse
mick

Antwort 8 von rainberg vom 12.08.2021, 12:35 Options

Hallo mick,

die angepasste Formel für A1 lautet:

=WENN(ZEILE()<=ZÄHLENWENN('2 mta 
sortiert'!$A$1:$G$1500;"*")+ANZAHL2('2 mta sortiert'!A:A);INDEX('2 mta 
sortiert'!$A$1:$G$1500;KÜRZEN((ZEILE(A1)-1)/7)+1;REST(ZEILE(A1)-
1;7)+1);"")


Gruß
Rainer

Antwort 9 von ponscho vom 17.08.2021, 07:31 Options

Hallo Rainer,

Sorry, wegen so spät melden!
Die letzte Formel hat wunderbar funktioniert.
Vielen Dank für Deine Hilfe!

internette grüsse
mick

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026