Herbers Excel/VBA-Archiv

Werte in nächst freie Spalte

• Werte in nächst freie Spalte von David Kohli vom 13.10.2020 17:19:42
• AW: Werte in nächst freie Spalte - von Werner am 13.10.2020 17:29:08
• AW: Werte in nächst freie Spalte - von Beverly am 13.10.2020 17:33:47
  • AW: Werte in nächst freie Spalte - von David Kohli am 13.10.2020 17:42:54

Betrifft: Werte in nächst freie Spalte von: David Kohli
Geschrieben am: 13.10.2020 17:19:42

Hey


Ich versuche gerade Werte aus Zellen C5-C7 über eine Schaltfläche zu kopieren um sie dann in Tabelle 2 einzufügen, dabei sollen die Dateien ab C6 eingefügt werden und beim nächsten mal in die nächst freie Spalte (also D6). Hab mal das File unten angehängt.


Besten Dank schonmal


https://www.herber.de/bbs/user/140870.xlsx

  

Betrifft: AW: Werte in nächst freie Spalte
von: Werner
Geschrieben am: 13.10.2020 17:29:08

Hallo,

Public Sub Kopieren()

Worksheets("Tabelle1").Range("C5:C7").Copy
With Worksheets("Tabelle2")
    .Cells(.Cells(.Rows.Count, "D").End(xlUp).Offset(1).Row, "D") _
    .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With

Application.CutCopyMode = False
End Sub

Gruß Werner

  

Betrifft: AW: Werte in nächst freie Spalte
von: Beverly
Geschrieben am: 13.10.2020 17:33:47

Hi,

z.B. so:

Sub Kopieren()
    Dim intLetzte As Integer
    With Worksheets("Tabelle2")
        intLetzte = IIf(IsEmpty(.Cells(6, Columns.Count)), _
            .Cells(6, Columns.Count).End(xlToLeft).Column, Columns.Count)
        Range("C2:C7").Copy .Cells(6, intLetzte + 1)
    End With
End Sub

---

  

Betrifft: AW: Werte in nächst freie Spalte
von: David Kohli
Geschrieben am: 13.10.2020 17:42:54

Super, Vielen Dank. Hat tiptop geklappt.