Office: Tabelle kopieren aber nur bis letzte beschriebene Zeile

Hallo,

ich würde gerne eine Tabelle von einem Blatt in das nächste an eine gewisse Stelle kopieren. Dabei soll die Tabelle nur so weit kopiert werden, bis zum letzten Wert in Spalte A.
Das Makro soll also die letzte beschriebene Zeile in A finden, dort die Tabelle abschneiden und kopieren.
Hab ein Beispiel angehängt.

Am besten den Code für VBA hier einstellen und für Dummis erklären *Smilie Danke!!!!*Smilie *Smilie *Smilie *Smilie

:)

 

Hi,

Bedingung ist, dass in Spalte A keine Leerzellen vorkommen:

Code:

 

Hallo,

erstmal Danke schon mal.

Es funktioniert noch nicht ganz so wie es soll *eek.gif*

Die letze Zeile in Spalte A ist deswegen leer, weil dort im richtigen Dokument eine Formel steht, die sich die Daten aus einer anderen Tabelle beschafft. Steht in der anderen Tabelle kein Wert, so bleibt die Zeile leer. Und genau da soll abgeschnitten werden.

Beim Ausführen des Makros (siehe Bild), wird die ganze Tabelle mit 0er gefüllt und leider nicht abgeschnitten*eek.gif*
Kannst du mir nochmal helfen *rolleyes.gif* *rolleyes.gif* *rolleyes.gif* Danke*Smilie *Smilie *Smilie

 

Hi,

dann lade die Mappe so hoch wie im Original.

 

Hier in der Art.

Original kann ich nicht hochladen, ist ein sehr sensibles Dokument von der Arbeit... tut mir leid *frown.gif*

Hoffe du verstehst nun worauf ich hinaus will

 

Das Original muss man nicht unbedingt hochladen, aber ein Beispiel, welches die Originalbedingungen 1:1 widerspiegelt... *wink.gif*


Da deine zu kopierende Tabelle auf Formelbezügen basiert stellt sich die Frage: sollen in der kopierten Tabelle ebenfalls Formelbezüge sein oder reicht es wenn nur die Werte kopiert werden?

 

Die Bedingungen sind damit ziemlich abgedeckt*rolleyes.gif*
Die letzte Zeile von A zeigt normal nichts an also auch keine 0

Mir genügt es wenn VBA die Tabelle bei der letzten Zeile von Spalte A abschneidet und mit den Werten kopiert werden.

Bin leider absoluter VBA Neuling *rolleyes.gif* *rolleyes.gif* *rolleyes.gif*

 

Code:

 

Diesen Code muss ich so eingeben in VBA oder?
Danke*Smilie *Smilie *Smilie *Smilie

 

Erstelle ein Standardmodul und kopiere den Code in das betreffende Codefenster.

 

Was meinst du damit *rolleyes.gif* *rolleyes.gif* *rolleyes.gif* ?

Sorry bin eben noch blutiger Anfänger*entsetzt
Könntest du mir also bitte den ganzen Code schreiben *Smilie *Smilie *Smilie

 

Wie man in die VBA-Umgebung gelangt weißt du? Alt+F11

 

Ja das weiß ich schon *rolleyes.gif*

Vielen Dank schon mal für deine Hilfe, werde es morgen auf Arbeit mal testen und dir berichten *tongue.gif*

 

Hallo,

also habe das Ganze getestet.

- Werte werden übertragen*biggrin.gif*
- Tabelle wird leider nicht abgeschnitten *boah
- Wenn ich den Button für das Übertragen auf deine andere Seite will, als da wo die Tabelle liegt wo muss ich das in den Befehl einfügen, und vor allem wie lautet der *rolleyes.gif* *rolleyes.gif* *rolleyes.gif* ?
Die Tabelle auf der der Button liegt nennt sich "Ergebnis für Prüfbericht"

Sub Deutsch_PB()
'
' Deutsch_PB Makro
'

'
Dim ingLetzte As Long
ingLetzte = Application.CountA(Columns(1))
Range(Cells(1, 1), Cells(ingLetzte, 7)).Copy
Worksheets("Tabelle2").Range("A29").PasteSpecial Paste:=xlValues
End Sub

Danke*mrcool

 

Vielleicht hilft es dir zu wissen warum die Zellen leer sind *rolleyes.gif*
Die Ausgangstabelle holt sich die Daten aus einer Datenbank, und wenn in der Datenbank nichts vorhanden ist, wird doch eine Formel mit =WennFehler... die Zelle leer dargestellt.*rolleyes.gif*