Office: nur gefüllte Zellen in Spalte ermitteln und kopieren

Hallo Leute bräuchte wieder eure Hilfe
ich möchte in der beigefügten Datei folgendes mit VBA lösen
im Tabellenblatt1 sollen in der Spalte P nur die gefüllten Zellen ermittelt werden
und in das Tabellenblatt 2 ab Zelle A3 Inhalte einfügen nur Wert
kopiert werden
habe leider im Forum über die Suche noch nichts gefunden hoffe es erbarmt sich jemand.
vg
Bernd

:)

 

Hi Bernd,

Code:

 

Hallo
Kompakter Code
Am Schluss hat sich noch ein Schreibfehler eingeschlichen

Code:

Ich verstehe nicht warum du:
Code:

verwendest.
Den mit
Code:

kriegst du dasselbe Resultat.

Gruss,

Tinker Bell

 

Hi,

danke für die Korrektur des Schreibfehlers.

Zu deiner anderen Frage: schreibe in die letzte Zelle der Spalte etwas und vergleiche dann die Ergebnisse beider Codevarianten.

 

Hi!
Mal ein hypothetisches Beispiel:
Gehe in Zelle A1 eines leeren Blatts,
Drücke Umschalt+Strg+PfeilUnten
Gebe die Formel =ZEILE() ein und schließe mit Strg+Enter ab ...
Danach lass mal folgendes Makro laufen:
Code:

Du wirst bei Zeile 1 enden!
Überflüssig? Mag sein!
Genau so überflüssig wie ein Sechser im Lotto! *cool.gif*

Gruß Ralf

 

Hallo
Danke für die Antworten.
Das heisst diese Form wähle ich wenn ich damit rechnen muss, dass die letzte Zeile verwendet wird?
Sollten alle Zellen belegt sein in der Prüfspalte kriege ich 1 zurück.
Ist die letzte Zelle belegt und dann gibt es Leerzellen in der Prüfspalte wird die zweitletzte Zeile zurückgegeben, korrekt?

Gruss,

Tinker Bell

 

Hi!
Test, then rest ... *tongue.gif*
Gruß Ralf

 

Hi,

mit meiner Variante erhältst du - wenn in der letzten Zelle etwas steht - die letzte Zeile der Spalte, und das gleichgültig ob zwischendurch Leerzellen vorkommen oder nicht. Das ist nichts anderes als eine WENN-Abfrage: WENN(ISTLEER(letzteZelle);Strg+Pfeil nach oben von letzter Zelle aus;letzte Zeile)