Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich untereinander kopieren

Forumthread: Bereich untereinander kopieren

Bereich untereinander kopieren
Sascha
Hallo,
ich möchte gerne die Werte aus den Zellen B12 + C12 + D12
aus dem Tabellenblatt Tabelle1 zum Tabellenblatt Ergebnis
in die Zellen B2 + C2 + D2 kopiert werden. Sollten diese
gefüllt sein dann müssen sie B3 + C3 + D3 kopiert usw.
kopiert werden.
Hat für mich jemand hier eventuell einen Lösungsansatz.
Würde mich über jegliche Hilfestellung sehr freuen.
Vorab vielen Dank
Sascha
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Bereich untereinander kopieren
06.07.2011 16:29:43
JoWE
Hallo Sascha,
so vllt: 
Private Sub cpRange()
Dim shSource, shDest As Worksheet
Set shSource = Sheets("Tabelle1")
Set shDest = Sheets("Ergebnis")
shSource.Range("B12:D12").Copy Destination:= _
shDest.Cells(shDest.Cells(1, 2).End(xlDown).Row + 1, 2)
End Sub

Gruß Jochen
Anzeige
AW: Bereich untereinander kopieren
06.07.2011 16:48:07
Sascha
Hallo Jochen,
das funktioniert nicht ganz. Kannst du dir vielleicht mal an meinem begefügten Beispiel angucken.
Vorab nochmals vielen Dank.
https://www.herber.de/bbs/user/75616.xls
Gruß
Sascha
AW: Bereich untereinander kopieren
06.07.2011 18:12:11
jowe
Hm
da Deine Zelle B1 in der Tabelle 'Ergebnis' leer ist geht's natürlich nicht.
Nimm daher mal dies: 
Sub Kopieren()
' Kopieren Makro
' Tastenkombination: Strg+b
Dim shSource, shDest As Worksheet
Set shSource = Sheets("Tabelle1")
Set shDest = Sheets("Ergebnis")
shSource.Range("B12:D12").Copy Destination:= _
shDest.Cells(Cells(shDest.Rows.Count, 2).End(xlUp).Row + 1, 2)
End Sub

Gruß
Jochen
Anzeige
AW: Oder so, wenn Die die Werte brauchst...
06.07.2011 18:29:02
JoWE 

Sub Kopieren()
Dim shSource, shDest As Worksheet
Dim lz As Long
Set shSource = Sheets("Tabelle1")
Set shDest = Sheets("Ergebnis")
lz = shDest.Cells(shDest.Rows.Count, 2).End(xlUp).Row + 1
shSource.Range("B12:D12").Copy
shDest.Range("B" & lz).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Anzeige
AW: Nur Werte dann auch so ..
06.07.2011 19:30:19
Gerd
Hallo
Sub d()
Sheets("Ergebnis").Cells(Sheets("Ergebnis").Rows.Count, 2).End(xlUp).Offset(1).Resize(1, 3) =  _
Sheets("Tabelle1").Range("B12:D12").Value
End Sub
Grüße Gerd
AW: Nur Werte dann auch so ..
11.07.2011 10:46:21
Sascha
Hallo Gerd,
sorry für die späte Rückmeldung. Hat super funktioniert.
Vielen Dank
Gruß
Sascha
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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