Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
Anzeige
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.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige