Zeile aus anderer Datei mit Pfadauswahl copy&paste

Liebe Gemeinde,
ich habe eine große Herausforderung, die ich leider momentan noch nicht gemeistert bekomme. Ich hoffe hier auf Eure kompetente Hilfe. Im vorraus schon einmal vielen Dank (wie immer ;-)
Folgendes Problem:
Ich habe eine Datei (Datei A) und eine beliebige andere (Datei B). Ich möchte mittels eines Makros nun per Klick auf eine Schaltfläche in der Datei A den Öffnen Dialog erhalten, die gewünschte Exceldatei auswählen und in dieser die komplette Zeile 1 in eine Zeile der Datei A einfügen. Schön wäre auch wenn sich die Datei öffnet und ich angeben kann welche Zeile (1,2,3...) ich für das kopieren verwenden möchte. Wenn sich nach dem Vorgang die Datei B wieder schließt und ich wieder in der Datei A auf einem bestimmten Blatt bin.
Ich hoffe Ihr könnt mir helfen.
Vielen Dank
LG Henni

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
probier mal


Sub kopieren()
Dim strDatei As String, wkb As Workbook, vntZeile
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "c:\Test\" 'anpassen oder ganz weg
.Title = "Datei wählen"
If .Show = -1 Then
strDatei = .SelectedItems(1)
End If
End With
If strDatei  "" Then
Set wkb = Workbooks.Open(strDatei)
vntZeile = Application.InputBox("Zeile kopieren", , 1, , , , , 1)
If vntZeile = False Then
'Abbruch
wkb.Close False
Exit Sub
End If
wkb.Sheets(1).Rows(vntZeile).Copy _
ThisWorkbook.Sheets("Auswertung der Felder").Cells(Rows.Count, 1).End(xlUp).Offset(1)
wkb.Close False
Sheets("Auswertung der Felder").Activate
End If
End Sub

Gruß
Rudi

Sub kopieren() Dim strDatei As String, wkb As Workbook, vntZeile With Application.FileDialog(msoFileDialogFilePicker) .InitialFileName = "c:\Test\" 'anpassen oder ganz weg .Title = "Datei wählen" If .Show = -1 Then strDatei = .SelectedItems(1) End If End With If strDatei "" Then Set wkb = Workbooks.Open(strDatei) vntZeile = Application.InputBox("Zeile kopieren", , 1, , , , , 1) If vntZeile = False Then 'Abbruch wkb.Close False Exit Sub End If wkb.Sheets(1).Rows(vntZeile).Copy _ ThisWorkbook.Sheets("Auswertung der Felder").Cells(2, 1) wkb.Close False Sheets("Auswertung der Felder").Activate End If End Sub

Beliebteste Forumthreads (12 Monate)

Zeile aus anderer Datei mit Pfadauswahl copy&paste

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile aus anderer Datei mit Pfadauswahl copy&paste

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

319 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread