Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1544to1548
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
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Copy Excel cell via VBA

Copy Excel cell via VBA
06.03.2017 20:05:59
Frank
Hallo,
ich benötige Hilfe. Ich habe eine Exceldatei, bei der die Daten nebeneinander enthalten sind. Ich möchte nun die hinteren Daten untereinander haben und auf einem neuen Tabellenblatt und komme damit nicht weiter. Ich würde mich sehr freuen, wenn mir hierbei jemand weiterhelfen könnte. Ich versuche noch eine Datei hochzuladen, da diese es besser veranschaulicht als wenn ich es hier weiter beschreiben würde. Danke und Gruss Frank

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Copy Excel cell via VBA
06.03.2017 20:21:08
Hajo_Zi

Tabelle2
 ABCDEFGHI
1123456789
24        
35        
46        
57        
68        
79        

verwendete Formeln
Zelle Formel Bereich N/A
A2:A7=INDEX($A$1:$I$1;ZEILE()+2)  
Excel-Inn.de
Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 25.01 einschl. 64 Bit



Anzeige
AW: Copy Excel cell via VBA
07.03.2017 07:05:33
Rainer
Hallo Frank,
du meinst also "kopieren und in neues Tabellenblatt transponiert einfügen"?
Das kannst du (wenn es denn unbedingt VBA sein muss) mit dem Makrorekorder aufzeichnen und bekommst als Lösung (mit Hajos Beispiel Daten):

Range("A1:I1").Select
Selection.Copy
Sheets.Add After:=ActiveSheet
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Hajos Lösung ist auch praktikabel außer dass es vermutlich richtigerweise am Ende 

;ZEILE(A2))
statt 

;ZEILE()+2)
sein müsste. In seinem Beispiel fehlt die 2 und 3.
Aber am schnellsten geht das echt von Hand: Kopieren, transponiert einfügen, fertig.
Gruß,
Rainer
Anzeige
AW: Copy Excel cell via VBA
07.03.2017 11:28:48
Frank
Hallo Rainer,
Hallo Hajo,
zuerst einmal super vielen Dank für die zügige Antwort und Hilfestellung. Leider schaffe ich es noch nicht, die Vorgehensweise auf meinen Fall anzuwenden. Konntet Ihr meine Datei im Anhang sehen? Ich muss nicht nur Spalten A-C transpondieren sondern auch noch die transpondierten Zeilen vervielfachen. Anschliessend müssen die Spalten D-K, L-S, T-AA entsprechend dem FG angehängt werden.
Danke und Gruss
Frank
AW: Copy Excel cell via VBA
08.03.2017 02:44:24
Rainer
Hallo Frank,
wenn du eine Datei hochladen willst, dann klicke auf den Button "Zum File-Upload" und poste dann den Link hier.
Gruß,
Rainer
Anzeige
AW: Copy Excel cell via VBA
08.03.2017 10:34:47
Rainer
Hallo Frank,
du transponierst doch garnichts!
Ist die Spaltenzuordnung in der Tabelle echt und fix? Also sind es immer die gleichen 27 Spalten?
Dann könnte man es über eine Schleife im VBA machen.
Wieviele Zeilen hat deine Tabelle?
Gruß,
Rainer
AW: Copy Excel cell via VBA
08.03.2017 14:40:57
Frank
Hallo Rainer,
die Spalten sind fix, die Struktur der Tabelle hinsichtlich der Spalten ist standartisiert. Es können aber bis zu 10TZeilen enthalten sein, sprich danach 30TZeilen.
Gruss
Frank
Anzeige
AW: Copy Excel cell via VBA
08.03.2017 22:23:00
Frank
Hallo Rainer,
Hallo Hajo,
bitte wenn möglich, kann mir einer mit meinem Problem evtl. weiterhelfen.
Danke und Gruss
Frank
AW: Copy Excel cell via VBA
09.03.2017 11:20:18
Rainer
Hallo Frank,
natürlich können wir dir helfen, aber stell dir mal vor, wir machen das freiwillig und müssen es mit anderen zeitfressenden Aktivitäten (Familie, Arbeit, Freizeit, Schlaf, ...) koordinieren!
Probier mal diesen Code. Ich bin bezüglich VBA ein blutiger Anfänger, das geht vermutlich auch viel kürzer, aber es funktioniert anhand deines Beispiels. Haben die anderen wenigstens was zu lachen! :-)

Sub Datentransfer()
Dim i As Integer
Dim x As Integer
Dim letzteZeile As Integer
letzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
QSheet = ActiveSheet.Name
Sheets.Add After:=ActiveSheet
ZSheet = ActiveSheet.Name
Sheets(QSheet).Select
Sheets(QSheet).Range("A1:K2").Select
Selection.Copy
Sheets(ZSheet).Select
Sheets(ZSheet).Range("A1").Select
ActiveSheet.Paste
Z = 3
For i = 3 To letzteZeile
Sheets(QSheet).Range("A" & i & ":C" & i).Copy
Sheets(ZSheet).Range("A" & Z).Select
ActiveSheet.Paste
Sheets(ZSheet).Range("A" & Z + 1).Select
ActiveSheet.Paste
Sheets(ZSheet).Range("A" & Z + 2).Select
ActiveSheet.Paste
Sheets(QSheet).Range("D" & i & ":K" & i).Copy
Sheets(ZSheet).Select
Sheets(ZSheet).Range("D" & Z).Select
ActiveSheet.Paste
Sheets(QSheet).Range("L" & i & ":S" & i).Copy
Sheets(ZSheet).Select
Sheets(ZSheet).Range("D" & Z + 1).Select
ActiveSheet.Paste
Sheets(QSheet).Range("T" & i & ":AA" & i).Copy
Sheets(ZSheet).Select
Sheets(ZSheet).Range("D" & Z + 2).Select
ActiveSheet.Paste
Z = Z + 3
Next i
End Sub
Gruß,
Rainer
Anzeige
AW: Copy Excel cell via VBA
09.03.2017 16:39:35
Gunter
Ich hätte auch einen Vorschlag:
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Integer
Dim k As Integer
Dim letzteZeile As Integer
letzteZeile = Worksheets("Test").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Test").Range("A2:K2").Copy _
Destination:=Worksheets("Tabelle1").Range("A1")
For k = 1 To letzteZeile
Worksheets("Test").Range("A" & k + 2 & ":C" & k + 2).Copy _
Destination:=Worksheets("Tabelle1").Range("A" & 3 * k - 1 & ":C" & 3 * k + 1)
Next k
For i = 1 To letzteZeile
Worksheets("Test").Range("D" & i + 2 & ":K" & i + 2).Copy _
Destination:=Worksheets("Tabelle1").Range("D" & 3 * i - 1)
Worksheets("Test").Range("L" & i + 2 & ":S" & i + 2).Copy _
Destination:=Worksheets("Tabelle1").Range("D" & 3 * i)
Worksheets("Test").Range("T" & i + 2 & ":AA" & i + 2).Copy _
Destination:=Worksheets("Tabelle1").Range("D" & 3 * i + 1)
Next i
End Sub
Gruss
Gunter
Anzeige
AW: Copy Excel cell via VBA
10.03.2017 13:27:20
Frank
Hallo Rainer,
Hallo Gunter,
ich möchte mich nochmal herzlich für Eure Unterstützung bedanken.
Beide Codes funktionieren zielführend, wobei der letztere (Gunter) schneller durchläuft.
Danke und Gruss
Frank

13 Forumthreads zu ähnlichen Themen

per VBA Range finden, die im cutcopy-mode ist
anugyan

Hi Leute,
gibt es eine Möglichkeit in Excel die Range zu finden (und in eine Variable zu speichern), die sich im cutcopy-mode befindet, wenn nach SelectionsChange schon eine andere Zelle markiert ist?
Über eine schnelle Hilfe würde ich mich sehr freuen. Danke
Anugyan
14.07.2002 12:46:57
Thread-ID: 136397
3 Beiträge
Anzeige
Cells in Range bei VBA
Ulrich

Hallo,
ich hoffe ihr könnt helfen
folgende Zeile geht
Worksheets("vorl").Range("H34:BK34").Copy
gewandelt in cells geht nicht
Worksheets("vorl").Range(Cells(34, 8), Cells(34, 63)).Copy
benutzt in
Worksheets("vorl").Range(Cells(34, 8), Cells(34, 63)).Copy
Range...
06.05.2015 10:03:50
Thread-ID: 1424850
26 Beiträge
Laufzeitfehler mit Range(cells(),cells()).copy
Norbert

Hallo!Kann mir bitte jemand erklären, weshalb Code_1 funktioniert, aber Code_2 den Laufzeitfehler '1004': "Anwendungs- oder objektdefinierter Fehler" generiert? Eigentlich müßten doch beide Codes zum gleichen Ergebnis kommen.Code_1:Worksheets("Blatt1").Range("F5:H46").Copy Destination:=Workshee...
09.06.2003 15:00:13
Thread-ID: 266608
7 Beiträge
Anzeige
VBA Problem - Copy Destination
Daniel
Hallo XL-Folks & Friends

Ich habe ein Skript welches wenn eine Zelle auf A steht dann gewisse Zelle in ein andere Zellen kopiert (siehe Skript). Ich möchte dieses Skript nun wiederholen und für andere Zellen auch verwenden. Doch nun funktioniert das untere Skript nicht. Das obere (alte) fun...
30.10.2003 13:30:55
Thread-ID: 331051
10 Beiträge
Range(Cells, Cells).Copy tut nicht...
Janine

Hallo Forumsteilnehmer,

ich bin in einer Schleife und benötige die erste Aktion:
(1) WB.Worksheets("Dokumentationsplanung").Range(Cells(a, 78), Cells(a, 83)).Copy

sie funktioniert aber leider nicht: "Anwendungs- oder Objektdefinierter Fehler".
Ich dachte es liegt an meiner...
07.11.2003 12:33:31
Thread-ID: 334796
7 Beiträge
Copy Range VBA
Frank
Hallo Leute,
ich will per VBA immer zwei bestimmte Zellen kopieren um diese dann in ein anderes Sheet zu pasten. Hier der Code: Was ist falsch?
Sub Coefficients() ' Coefficients Macro Dim Coefficients As Worksheet Dim Regressions As Worksheet Set Coefficients = Sheets("Coefficients") Set Re...
25.08.2004 15:22:44
Thread-ID: 475104
6 Beiträge
Cells range variablen.... in VBA
der

Hallo ihr Cracks!
was mache ich falsch?
Worksheets("LOP").PageSetup.PrintArea = "$A$1:(cells(endpunkt))"
will den Druckbereich festlegen mit der dynamischen Zellmarkierung -
A1 bis endpunkt (wird automatisch gesucht und ist z.B. dann N3)
Der markierte Bereich ist immer 14 Sp...
02.09.2005 10:00:05
Thread-ID: 661545
2 Beiträge
VBA - Copy Value - autom. Aufrunden unterdrücken
Guest
Hallo,
ich habe das Problem, dass ich bei unten stehendem Code als Value für 0,007 € den Wert 0,010 € erhalte, d.h. Excel rundet automatisch auf. Hat jemand einen Tipp, wie das unterbunden werden kann?
Sub SaveCopy() Application.ScreenUpdating = False Dim WBS As Workbook Dim WS As Worksheet...
01.03.2021 10:32:27
Thread-ID: 1816411
4 Beiträge

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
25
6
3
9
6
5
1
3
5
5
5