Office: (Office 365) Berücksichtigen von nur 1 Zelle und mehr als 1 Zelle

Guten Abend zusammen,

der nachfolgende Code läuft nur, wenn es mindestens 2 Zellen gibt.
Wie müsste der Code angepasst werden, wenn es als Möglichkeit nur eine Zelle gibt ?

Danke für Deine Antwort im Voraus.
Jens

Sheets("Data").Select
Sheets("Data").Range("V2").Select
Sheets("Data").Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Angebot").Select
Range("B29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

Hallo,

das könnte man auch ohne Makro lösen, optimiert würde das so aussehen:

Code:

Sub Uebertrag()
    Sheets("Angebot").Range("B29") = Sheets("Data").Range("V2")
 End Sub

Den Hintergrund deiner Frage habe ich allerdings nicht verstanden.

 

Zu Deinem Rekorder-Code hat Klaus-Dieter ja bereits etwas geschrieben.

Na ja, wenn nur V1 (Überschrift) und V2 beschrieben sind, läuft Range("V2").End(xlDown) auf V1048576
Diese 1048575 Zellen kannst Du nicht nach B29 kopieren, denn so viele Zeilen hat Excel nicht.

 

Guten Morgen,

ich hab mir nun so beholfen das wenn es nur 1 Zelle mit Inhalt gibt NUR diese kopiert und wenn es mehrere Zellen mit Inhalt gibt, nach dem oben genannten Code verfahren wird.

 

Hi,

such doch einfach mal nach "VBA letzte ausgefüllte Zelle" oder so ähnlich...
Da gibt es durchaus elegante Möglichkeiten. Eine davon:

Code:

With Sheets("Data")
    .Range(.Cells(2,"V"), .Cells(.Rows.Count, "V").End(xlUp)).Copy
End with
Sheets("Angebot").Range("B29").PasteSpecial xlPasteValues

 

Danke für den Tipp lieber Helmut, schaue ich mir an.
Wünsche Dir und all den anderen einen besinnlichen 1. Advent.