Office: Erste bis letzte gefüllte Zelle in Zeile finden und kopieren

Hallo,

wieder einmal bitte ich um eure Hilfe.

Wie mache ich es mit VBA möglich in ein Worksheet zu springen dort, in einer bestimmten Zeile die erste gefüllte Zelle zu finden und den Inhalt bis zur letzten gefüllten Zelle der Zeile zu kopieren und wieder in ein anderes Worksheet zu kopieren?

:)

 

Moin, Helphelp,

aufgezeichnete Makros springen, VBA braucht das nicht - vielleicht solltest Du Dein doch sehr abstrakt gehaltenes Beispiel um einige Details erweitern (woher weiß ich, welche bestimmte Zeile in welcher Tabelle und kann das dann VBA mitteilen)

Code:

Darf ich fragen, was wieder heißt?

 

Arbeite an einer Datenbank und nun soll die Zeile 1 aus der Tabelle "Tests" ausgelesen und in die Tabelle "Daten" eingetragen werden, dazu möchte ich einfach auf einen Button klicken und schon soll das von statten gehen.

Mein Problem ist wie gesagt, dass die Spalte ab der der erste Eintrag kommt varriert und wenn ich einen festen Bereich vorgebe, dass dann leere Zellen mitkopiert werden und unschöne Lücken in der Tabelle "Daten" entstehen.

 

Dankeschön, dein Code hat mir schon genug geholfen.

Für alle die es noch wissen wollen, habs jetzt wie folgt gelöst:

Range(Cells(1, 1).End(xlToRight), Cells(1, Columns.Count).End(xlToLeft)).Select

 

Ehm, eine bitte habe ich noch.
Range(ActiveCell.Offset(0, 3), ActiveCell.Offset(0, 15)).Select
Er soll hier nicht nach 15 Zellen aufhören sondern wenn die letzte gefüllte Zelle erreicht ist?

Kriege das irgendwie nicht eingebaut mit ActiveCell und dann End(xlleft)

 

Moin, HelpHelp,

ActiveCell - fast genauso sicher in der Anwendung wie der Gebrauch von SendKeys... *grins

Code: