Office: Zellen in nächste freie Spalte kopieren

Hallo,
ich habe folgende "kleine" Herausforderung zu meistern.

Nach Ausführung eines Makros sollen die kopierten Zellen aus Arbeitsblatt 1 (Range("E10:F109")) - in Arbeitsblatt 2 ("M4:N103") eingefügt werden.
Wenn die Zellen M4:N103 allerdings bereits gefüllt sind, sollen die kopierten Werte in O4:P103 eingefügt werden, dann in Q4:R103, usw....

Bisher wird M4:N103 logischerweise immer überschrieben:

"Range("E10:F109").Select
Selection.Copy
Sheets("Arbeitsblatt2").Select
Range("M4").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False"

Über eure Hilfe wäre ich sehr dankbar!

Gruß
Jan

:)

 

Hi Jan,

Code:

 

Das ist ja absolut großartig! :-)
Vielen Dank.

Folgende (eigentlich identische Zusatzaufgabe) habe ich allerdings trotzdem selbst noch nicht hinbekommen:
In Arbeitsblatt 1 steht in Zelle C3: D3 ein Datum, dessen Wert in Arbeitsblatt 2 in die nächsten freien Zellen M2:N2 oder O2:P2 oder Q2:R2; usw.... eingetragen werden soll.

Könntest du mir auch dafür bitte noch schnell den Code nennen!? ;-)

Folgendes habe ich probiert, allerdings hat er mir immer eine Formel kopiert (auch nicht immer mit dem identischen Zellbezug) und in Arbeitsblatt 2 in die falsche Spalte eingefügt!?

Dim Spalte1 As Integer
Spalte1 = Sheets("Arbeitsblatt2").Cells.Find("*", Sheets("Arbeitsblatt2").[A1], , , xlByColumns, xlPrevious).Column + 1
With Sheets("Arbeitsblatt1")
.Range("C3: D3").Copy
Sheets("Arbeitsblatt2").Cells(2, Spalte1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
Application.CutCopyMode = False

Vielen Dank für die schnelle, wunderbare Hilfe!

 

OK - meine Frage war etwas verfrüht!
HAbe es hinbekommen!!

Vielen Dank noch mal!!


Dim Spalte1 As Integer
Spalte1 = Sheets("Arbeitsblatt2").Cells.Find("*", Sheets("Arbeitsblatt2").[A1], , , xlByColumns, xlPrevious).Column
With Sheets("Arbeitsblatt1")
.Range("C3").Copy
Sheets("Arbeitsblatt2").Cells(2, Spalte1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
Application.CutCopyMode = False

 

Hi,

wenn Du explizit die letzte gefüllte Spalte in einer Zeile suchst, um einen Inhalt einzufügen, geht es auch so:

Spalte1 = Sheets("Arbeitsblatt2").Cells(2, Columns.Count).End(xlToLeft).Column + 1