Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1576to1580
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
Zellen kopieren und in Liste einfügen
04.09.2017 11:40:07
Philip
Hallo zusammen
Ich habe eine Tabelle aus der ich eine andere Excel datei per Commandbutton öffne, nun möchte ich, dass wenn ich auf den Button klicke mir auch gleich aus der Markierten Zeile den Inhalt der Spalten C,E,G,H kopiert und in die neu geöffnete Datei einfügt. Die geöffnete datei ist auch eine Tabelle die immer weitergeführt wird das heisst die kopierten Zellen müssten immer in die erste freie Zeile angehängt werden. Die Zelle der Spalte C müsste dabei in die Spalte F, E in H, G in i, H in E.
Ich habe Googel schon gefragt aber bin auf keinen Code gestossen den ich für mich abändern könnte.
Für eure Hilfe Danke ich euch.
Gruss psch

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen kopieren und in Liste einfügen
04.09.2017 12:46:59
ChrisL
Hi Philip
Sub Makro1()
Dim WB As Workbook, WS As Worksheet, lZ As Long
Application.ScreenUpdating = False
Set WS = ThisWorkbook.Worksheets("Tabelle1")
Set WB = Workbooks.Open("C:\Pfad\Mappe1.xlsx")
With WB.Worksheets("Tabelle1")
lZ = .Cells(Rows.Count, 6).End(xlUp).Row + 1
.Cells(lZ, 6) = WS.Cells(ActiveCell.Row, 3)
.Cells(lZ, 8) = WS.Cells(ActiveCell.Row, 5)
.Cells(lZ, 9) = WS.Cells(ActiveCell.Row, 7)
.Cells(lZ, 5) = WS.Cells(ActiveCell.Row, 8)
End With
WB.Close True
End Sub

cu
Chris
AW: Zellen kopieren und in Liste einfügen
04.09.2017 12:49:10
ChrisL
Korrektur:
Sub Makro1()
Dim WB As Workbook, WS As Worksheet, lZ As Long, lR As Long
Application.ScreenUpdating = False
lR = ActiveCell.Row
Set WS = ThisWorkbook.Worksheets("Tabelle1")
Set WB = Workbooks.Open("C:\Pfad\Mappe1.xlsx")
With WB.Worksheets("Tabelle1")
lZ = .Cells(Rows.Count, 6).End(xlUp).Row + 1
.Cells(lZ, 6) = WS.Cells(lR, 3)
.Cells(lZ, 8) = WS.Cells(lR, 5)
.Cells(lZ, 9) = WS.Cells(lR, 7)
.Cells(lZ, 5) = WS.Cells(lR, 8)
End With
WB.Close True
End Sub

Anzeige
AW: Zellen kopieren und in Liste einfügen
04.09.2017 13:48:17
Philip
Hallo Chris
Danke für deine schnelle Antwort, funktioniert einwandfrei.
Gruss Philip

363 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige