Supportnet / Forum / Tabellenkalkulation
daten aus spalte in jede zweite zeile übernehmen
Frage
Hallo Zusammen,
Ich möchte Daten aus einer Spalte in jede zweite Zeile auf einem anderen Blatt übertragen: von
A1 nach B1
A2 nach B3
A3 nach B5 usw
Vielen Dank im Vorraus
Antwort 1 von coros
Hi Andreas,
kopiere nachfolgendes Makro in ein "StandardModul" und starte es über eine Befehlsschaltfläche.
Dieses Makro kopiert Werte aus Tabellenblatt "Tabelle1" Spalte A und fügt sie in Tabellenblatt "Tabelle2" in Spalte B in jede zweite Zeile wieder ein. Wenn Deine Blätter andere Namen als "Tabelle1" als Blatt aus dem kopiert und "Tabelle2" als Blatt, in das kopiert werden soll, dann musst Du die Namen in dem Makro anpassen.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte wieder.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 und 4 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
kopiere nachfolgendes Makro in ein "StandardModul" und starte es über eine Befehlsschaltfläche.
Option Explicit
Sub Daten_kopieren()
Dim Wiederholungen As Long, nächste_Zeile As Long
Application.ScreenUpdating = False
nächste_Zeile = 1
For Wiederholungen = 1 To Range("A65536").End(xlUp).Row
Sheets("Tabelle2").Cells(nächste_Zeile, 2) = Sheets("Tabelle1").Cells(Wiederholungen, 1)
nächste_Zeile = nächste_Zeile + 2
Next
End SubDieses Makro kopiert Werte aus Tabellenblatt "Tabelle1" Spalte A und fügt sie in Tabellenblatt "Tabelle2" in Spalte B in jede zweite Zeile wieder ein. Wenn Deine Blätter andere Namen als "Tabelle1" als Blatt aus dem kopiert und "Tabelle2" als Blatt, in das kopiert werden soll, dann musst Du die Namen in dem Makro anpassen.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte wieder.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 und 4 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von rainberg
Hallo Andreas,
eine Formelalternative wäre:
=WENN(REST(ZEILE();2)=1;INDIREKT("Tabelle1!A"&AUFRUNDEN(ZEILE()/2;0));"")
Gruß Rainer
eine Formelalternative wäre:
=WENN(REST(ZEILE();2)=1;INDIREKT("Tabelle1!A"&AUFRUNDEN(ZEILE()/2;0));"")
Gruß Rainer
Antwort 3 von AndreasKrueger
Vielen Dank Leute,
Ihr habt mir sehr geholfen wobei die AW von rainberg
genau das ist wonach ich gesucht habe.
schönen Tag noch
Gruß
Andreas
Ihr habt mir sehr geholfen wobei die AW von rainberg
genau das ist wonach ich gesucht habe.
schönen Tag noch
Gruß
Andreas
Antwort 4 von AndreasKrueger
Hallo Rainberg,
Nochmals vielen Dank
Bei meinem Beispiel (vereinfacht Dargestellt) sollte es so sein das ich die Daten von zB. A5-A15 an belibiger Stelle zB. ab B25 zweizeilig einfügen kann, sodaß A5 nach B25, A6 nach B27 usw eingefügt wird.
Leider sind bei Deinem Bspl. ja auf Zelle A1 bzw. B1fixiert.
Gruß
Andreas
Nochmals vielen Dank
Bei meinem Beispiel (vereinfacht Dargestellt) sollte es so sein das ich die Daten von zB. A5-A15 an belibiger Stelle zB. ab B25 zweizeilig einfügen kann, sodaß A5 nach B25, A6 nach B27 usw eingefügt wird.
Leider sind bei Deinem Bspl. ja auf Zelle A1 bzw. B1fixiert.
Gruß
Andreas