Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 21:30:42
Bilder aus URL in Zelle einfügen - Code anpassen
07.05.2024 20:36:09
xverweis / name Funktion
07.05.2024 20:10:42
Datum z.B. 1897 wird nicht als Datum angezeigt
07.05.2024 19:47:07
Excel Lohnabrechnung anhand 2 Suchkriterien
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1896to1900
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1896to1900
1896to1900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellbereich fortlaufend in Tabelle

Zellbereich fortlaufend in Tabelle
01.09.2022 15:03:57
Stephan
Hallo zusammen,
leider für mich ohne VBA-Kenntnisse nicht machbar, obwohl das Thema trivial ist: In der angehängten Datei soll im Tabellenblatt "Eingabe" der Bereich B27:D46 kopiert und dann im Tabellenblatt "DB" in der nächsten freien Zeile unter die bestehenden Daten eingefügt werden.
Danke schon mal und VG
Stephan
Datei liegt hier: https://www.herber.de/bbs/user/154926.xlsx

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

Betreff
Datum
Anwender
Anzeige
AW: Zellbereich fortlaufend in Tabelle
01.09.2022 16:00:08
Herbert_Grom
Hallo Stephan,
wenn du den Bereich B27:D46 in eine intelligente Tabelle mit dem Namen "DatenTabelle" umwandelst, funktioniert das so:

Option Explicit
Sub til()
Range("DatenTabelle").Copy
Sheets("DB").Range("A" & Sheets("DB").Cells(Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub
Servus
AW: Zellbereich fortlaufend in Tabelle
01.09.2022 16:09:02
GerdL
Hallo Stephan!

Sub Unit()
Dim Quelle As Range, Ziel As Range
Set Quelle = Worksheets("Eingabe").Range("B27:D46")
With Worksheets("DB")
Set Ziel = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0)
End With
Call Quelle.Copy(Destination:=Ziel)
Set Quelle = Nothing: Set Ziel = Nothing
End Sub
Sub Unit2()
Worksheets("Eingabe").Range("B27:D46").Copy _
Worksheets("DB").Cells(Worksheets("DB").Rows.Count, 1).End(xlUp).Offset(1)
End Sub
Gruß Gerd
Anzeige
AW: Zellbereich fortlaufend in Tabelle
01.09.2022 16:14:30
Stephan
Hallo zusammen,
vielen Dank für die schnellen Vorschläge, mit Helmuts Lösung klappt es einwandfrei!
VG
Stephan
AW: Zellbereich fortlaufend in Tabelle
01.09.2022 16:17:49
Herbert_Grom
Falls du mit "Helmut" mich meinst, ist es auch OK! ;o)=)
AW: Zellbereich fortlaufend in Tabelle
01.09.2022 16:19:49
Stephan
Dicke Finger, sorry:-)
AW: Zellbereich fortlaufend in Tabelle
01.09.2022 16:15:00
Stephan
Hallo zusammen,
vielen Dank für die schnellen Vorschläge, mit Herberts Lösung klappt es einwandfrei!
VG
Stephan

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige