Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1724to1728
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
Inhaltsverzeichnis

VBA - Zellen in andere Datei kopieren

VBA - Zellen in andere Datei kopieren
05.12.2019 19:03:32
Oli
Guten Abend liebe VBA-Freunde,
ich habe ein kleines Problem mit einer Excel-Datei.
Und zwar wie folgt:
Ich möchte das der VBA-Code prüft ob die Zellen in der Spalte D leer sind, wenn dies nicht der Fall ist, soll er diese Daten kopieren und über eine OpenFileDialog-Anfrage in eine weitere Excel-Datei kopieren. Ich muss leider mit Variablen arbeiten, da die Zieldatei unterschiedlich sein kann. Das Tabellenblatt dagegen hat immer den selben Namen.
Als Fehler kommt derzeit in der Zeile Windows(Datei.Name).Activate immer das ein Objekt fehlt. Wenn ich jedoch den Test zum Datei.Name mache mit einer Msg.Box bekomme ich immer den richtigen Namen ausgegeben.
Anbei mal der Code dazu, den ich derzeit zusammengebastelt habe.
Ich würde mich freuen wenn mir jemand helfen kann :)

Sub OeffneDatei()
Dim varDatei As Variant
Dim Datei
Dim str, strPfad, str2 As String
Dim i As Integer
strPfad = ThisWorkbook.Name
varDatei = Application.GetOpenFilename()
If varDatei = False Then
MsgBox "Der Benutzer hat abgebrochen.", vbInformation
Else
Set Datei = GetObject(varDatei)
Workbooks.Open varDatei
Windows(Datei.Name).Activate
Sheets("Projektliste").Select
Sheets("Projektliste").Unprotect
Windows(strPfad).Activate
For i = 1 To 50
If Not Sheets("Übertrag").Cells(i, 4) = "" Then
Sheets("Übertrag").Cells(i, 4).Copy
Windows(Datei.Name).Activate
Sheets("Projektliste").Cells(i + 5, 1).PasteSpecial xlPasteValues
Windows(strPfad).Activate
End If
Next i
End If
Windows(Datei.Name).Activate
Sheets("Projektliste").Protect
Workbooks(Datei.Name).Close savechanges = yes
End Sub


		

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Zellen in andere Datei kopieren
05.12.2019 19:22:23
Rudi
Hallo,
versuch das mal so:
Sub OeffneDatei()
Dim varDatei As Variant
Dim Datei As Workbook
Dim str, strPfad, str2 As String
Dim i As Integer
strPfad = ThisWorkbook.Name
varDatei = Application.GetOpenFilename()
If varDatei = False Then
MsgBox "Der Benutzer hat abgebrochen.", vbInformation
Else
Set Datei = Workbooks.Open(varDatei)
With Datei.Sheets("Projektliste")
.Unprotect
For i = 1 To 50
If Not ThisWorkbook.Sheets("Übertrag").Cells(i, 4) = "" Then
ThisWorkbook.Sheets("Übertrag").Cells(i, 4).Copy
.Cells(i + 5, 1).PasteSpecial xlPasteValues
End If
Next i
.Protect
End With
End If
Datei.Close True
End Sub

Gruß
Rudi
Anzeige
AW: VBA - Zellen in andere Datei kopieren
05.12.2019 19:52:54
Oli
Hallo Rudi,
Super genial, das funktioniert auf anhieb. Vielen Vielen Dank. Da merkt man glatt das man noch in einigen Dingen blutiger Anfänger ist :D

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige