Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1220to1224
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
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige