excel vba

Hallo Liebe Leute
hoffe ihr koennt mir bei meinem Anliegen weiterhelfen.
Ich sollte von Arbeitsmappe 1, ausgewaehlte Zeilen, z.B. "B7" & "B11" & usw. in eine andere Arbeitsmappe (die auf dem Laufwerk abgespeichert ist) kopieren. Die Zellen B7, B11, usw. sollen jedoch hier nacheinander in einer Zeile eingegben werden, desweiteren sollte es immer vorher ueberpruefen ob schon etwas in der Zeile steht, wenn ja, zur naechsten springen und Daten einfuegen.
Desweiteren sollte es jeweils die Zellen immer vom aktiven Sheet (Arbeitsmappe 1) beziehen, da ich naemlich in Arbeitsmappe 1 mit mehreren verschiedenen Sheets arbeiten will.
Zusaetzlich die neu abgerufene Arebistmappe 2, sollte nun abgespeichert & wieder geschlossen werden.
Vielen dank fuer die Hilfe im voraus.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: excel vba

27.06.2018 13:26:48

Torsten

AW: excel vba

27.06.2018 14:18:42

Luke

AW: excel vba

28.06.2018 13:10:15

Torsten

AW: excel vba

29.06.2018 18:30:37

Robert

AW: excel vba

02.07.2018 14:14:02

Luke

Gerne und Danke für die Rückmeldung (owT)

02.07.2018 16:28:33

Robert

sollen jedoch hier nacheinander in einer Zeile eingegben werden, desweiteren sollte es immer vorher ueberpruefen ob schon etwas in der Zeile steht, wenn ja, zur naechsten springen und Daten einfuegen.

Hallo Luke,
nachstehendes Makro öffnet die Datei Mappe2.xlsx und ermittelt dort die erste Zeile ohne Inhalt in Spalte A. Dann werden die Daten der in dem Array arrZ festgelegten Zellen von der aktiven Tabelle der ersten Datei in die Zellen ab der Spalte A der Tabelle1 der Mappe2 übertragen.
Die zu kopierenden Zellen, der Pfad und Dateiname der Zieltabelle sowie der Zieltabellenname müssen ggfs. angepasst werden.

Sub DatenUebertragen()
Dim wkbZiel As Workbook, wksZiel As Worksheet, strZiel As String
Dim wbkQuelle As Workbook, i As Integer, arrZ
Dim nZeile As Long
Set wbkQuelle = ActiveWorkbook
'zu kopierende Zellen festlegen, bitte anpassen
arrZ = Array("B7", "B9")
'Pfad und Name der Zieldatei, bitte anpassen
strZiel = "C:\Test\Mappe2.xlsx"
'Öffnen der Zieldatei
Set wkbZiel = Workbooks.Open(strZiel)
'Festlegen der Zieltabelle, bitte anpassen
Set wksZiel = wkbZiel.Sheets("Tabelle1")
'Ermitteln der ersten Zeile in Spalte A ohne Inhalt
nZeile = wksZiel.Range("A" & Rows.Count).End(xlUp).Row + 1
'Übertragen der Daten
For i = 0 To UBound(arrZ)
wksZiel.Cells(nZeile, i + 1) = wbkQuelle.ActiveSheet.Range(arrZ(i))
Next
'Zieldatei speichern und schließen
wkbZiel.Save
wkbZiel.Close
Set wbkQuelle = Nothing
Set wkbZiel = Nothing
Set wksZiel = Nothing
End Sub

Gruß
Robert

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread