Werte aus Zellen in neue Zellen Archivieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Range("N4:N26").Copy Range("U1").End(xlUp).Offset(1).PasteSpecial _ Paste:=xlPasteValuesAndNumberFormats, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=True Application.CutCopyMode = False Range("N4:N26").ClearContents Range("H26").Select End Sub

Hallo

die Antwort wurde dir bereits gegeben, mit einem kleinen Schönheitsfehler. Der musste nur ausgebaut werden!

VBA Wissen: mit xlDown sucht man die letzte Zelle nach unten, mit xlUp die Letze Zelle nach oben!
Man kann beides benutzen, beide Befehle haben ihre Tücken! - Excel kann nicht denken, nur Befehler befolgen!
Ist die Zelle "U5" leer, ergibt der Befehlt Range("U4").xlDown die allerletzte Zelle im Sheet > 1 Million! Klassischer Fehler!
ralf_b, ein fachlich guter Kollege, hatte Range("U1").End(xlUp) programmiert. Was kann dabei nur herauskommen? Zelle U1

Sein Code ist richtig, aber die Suche nach LastZell musste mit Cells(Rows.Count,"U").End(xlUp).Row beginnen.
Ich lade mir die LastZell lieber in eine Variable, benutze dafür lz1, das kann aber jeder machen wie es ihm gefällt!

mfg Piet

Private Sub CommandButton1_Click()

    Dim lz1 As Long

    'LastZell vorher suchen. in Variable laden

    lz1 = Cells(Rows.Count, "U").End(xlUp).Row + 1

    If lz1  4 Then lz1 = 4  'Fehler Korrektur!

    Range("N4:N26").Copy

    Range("U" & lz1).PasteSpecial _

      Paste:=xlPasteValuesAndNumberFormats

    Application.CutCopyMode = False

    Range("N4:N26").ClearContents

    Range("H26").Select

End Sub

Ein frohes neues Jahr an alle,
Vielen Dank für die Antwort.
Leider funktioniert es noch nicht wie gewünscht.
Durch drücken des CommandButton wird es brav in Zelle U4 eingefügt.
Aber beim weiteren drücken des CommandButton springt es nicht in Zelle U5 (als nächst mögliche freie Zelle) sondern bleibt bei Zelle U4 und überschreibt was es nicht machen soll.
Nach jedem drücken des CommandButton soll es Kopieren und in neue freie Zelle einfügen.

Private Sub CommandButton1_Click()
Range("N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15,N16,N17,N18,N19,N20,N22,N23,N24,N25,N26").Select
Selection.Copy
Range("U4").End(xlUp).Offset(1).PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=True
Application.CutCopyMode = False
Range("F27").Select
ActiveCell.FormulaR1C1 = ""
End Sub

Kann mir jemand helfen das zu vervollständigen?

Beliebteste Forumthreads (12 Monate)

Werte aus Zellen in neue Zellen Archivieren

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Werte aus Zellen in neue Zellen Archivieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread