Supportnet / Forum / Tabellenkalkulation
Werte von einer Tabelle in eine andere übertagen
Frage
Hallo,
kann man mit Funktionen in Excel Werte aus einer Tabelle in eine andere Tabelle in die nächste freie Zelle zu übertragen.
z..B
A1=Tabelle2!B nächste freie Zelle
Ich hoffe ihr habt eine Idee dazu.
Gruß
fedjo
Antwort 1 von coros
Hi fedjo
kopiere nachfolgendes Makro in ein StandardModul und starte es über eine Befehlsschaltfläche.
Das Makro kopiert Dir den Wert aus dem aktiven Tabellenblatt Zelle A1 in das Blatt "Tabelle2" in die erste freie Zelle in Spalte B.
Ich hoffe, Du kommst klar. bei Fragen melde Dich bitte.
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 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()
Sheets("Tabelle2").Range("B" & Sheets("Tabelle2").Range("B65536").End(xlUp).Offset(1, 0).Row) _
= Range("A1")
End SubDas Makro kopiert Dir den Wert aus dem aktiven Tabellenblatt Zelle A1 in das Blatt "Tabelle2" in die erste freie Zelle in Spalte B.
Ich hoffe, Du kommst klar. bei Fragen melde Dich bitte.
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 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 fedjo
Hi Oliver,
danke für die Antwort, das Makro funktioniert prima.
Ich wollte aber gerne die Daten durch Funktionen in Zellen übertragen, damit die Werte gleich automatisch übernommen werden. Ich habe ein Beispiel aus einer anderen Seite gefunden, das aber so keinen Erfolg bringt. Vielleicht könntest du den Cote
mal überprüfen.
Danke
fedjo
Nächste freie Zelle in Spalte ohne VBA
ich würde das mit einer Hilfsspalte, für mein Beispiel die Spalte X, lösen.
Schreibe in Zelle X1 =WENN(ISTLEER(A1);ZEILE(A1);0), in Zelle X2
schreibst Du =WENN(B1<1;WENN(ISTLEER(A2);ZEILE(A2);0);B1).
Diese Formel ziehst Du bis zur letzten Zeile des Arbeitsblatts, also X65536.
Danach kannst Du diese Spalte ausblenden und schreibst in B1 = X65536
danke für die Antwort, das Makro funktioniert prima.
Ich wollte aber gerne die Daten durch Funktionen in Zellen übertragen, damit die Werte gleich automatisch übernommen werden. Ich habe ein Beispiel aus einer anderen Seite gefunden, das aber so keinen Erfolg bringt. Vielleicht könntest du den Cote
mal überprüfen.
Danke
fedjo
Nächste freie Zelle in Spalte ohne VBA
ich würde das mit einer Hilfsspalte, für mein Beispiel die Spalte X, lösen.
Schreibe in Zelle X1 =WENN(ISTLEER(A1);ZEILE(A1);0), in Zelle X2
schreibst Du =WENN(B1<1;WENN(ISTLEER(A2);ZEILE(A2);0);B1).
Diese Formel ziehst Du bis zur letzten Zeile des Arbeitsblatts, also X65536.
Danach kannst Du diese Spalte ausblenden und schreibst in B1 = X65536

