Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Werte in nächst freie Spalte

Werte in nächst freie Spalte
13.10.2020 17:19:42
David
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in nächst freie Spalte
13.10.2020 17:29:08
Werner
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
AW: Werte in nächst freie Spalte
13.10.2020 17:33:47
Beverly
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


Anzeige
AW: Werte in nächst freie Spalte
13.10.2020 17:42:54
David
Super, Vielen Dank. Hat tiptop geklappt.

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige