UserForm / Dateiwechsel beim kopieren
11.01.2004 10:26:21
Erich M.
mit einer UserForm wähle ich Dateien und Tabellen aus,
innerhalb derer von einer Tabelle in eine ander Tabelle
kopiert wird.
Das funktioniert auch, wenn ich mich innerhalb der gleichen
Datei "bewege" mit (Lösung von Hajo); myName1 = Tabelle mit Kopierdaten:
Sheets(myName1).Rows(i).Copy Destination:=Sheets(Zieltabelle).Rows(i)
Wenn sich die "Zieltabelle" aber in einer anderen Datei befindet,
kriege ich es nicht hin; hier der vollständige Code in der UF:
Option Explicit
Private Sub CommandButton2_Click()
Dim LRowA As Integer, LRowG As Integer, i As Integer
Dim rgAnf As String, Zieltabelle As String
Dim myName1 As String, myName2 As String, myDatei As String, Zieldatei As String
Dim Workbooks As String
If ComboBox1.Text = "" Then MsgBox "Bitte Datei 2 auswählen.", 48, "Hinweis": Exit Sub
If ComboBox2.Text = "" Then MsgBox "Bitte Datei 1 auswählen.", 48, "Hinweis": Exit Sub
If ComboBox3.Text = "" Then MsgBox "Bitte Tabellenblatt auswählen.", 48, "Hinweis": Exit Sub
Zieldatei = ComboBox1.Text ' Zieldatei
Zieltabelle = ComboBox4.Text ' Zieltabelle
myDatei = ComboBox2.Text ' Abfrage-Datei
myName1 = ComboBox3.Text ' Abfrage-Tabelle
Sheets(myName1).Select
Application.ScreenUpdating = False
LZeile = RealLastCell(Sheets(myName1)).Row
Call initPB
For i = 1 To LZeile
Sheets(myName1).Rows(i).Copy Destination:=Sheets(Zieltabelle).Rows(i)
' Workbooks(Zieldatei).Activate ' Fehler: Datenfeld erwartet wenn Zieltabelle
' eine andere Datei
' Sheets(Zieltabelle).Rows (i)
' ActiveSheet.Paste
Application.CutCopyMode = False
Call refreshPB
Next i
Unload Me
Unload frmPB
Application.ScreenUpdating = True
Range("B1").Select
Windows(myDatei).Activate
Range("A1").Select
'If ActiveWorkbook.Saved = False Then ActiveWorkbook.Save ' = speichern
'ActiveWorkbook.Saved = True ' = nicht speichern
'ActiveWorkbook.Close
Windows(Zieldatei).Activate
ActiveWorkbook.Save
Unload Me
End Sub
Code eingefügt mit: Excel Code Jeanie
Ich habe mal die Musterdatei hochgeladen; beim Aufruf der UF sollten
zwei Dateien geöffnet sein, damit die Auswahlmöglichkeit besteht:
https://www.herber.de/bbs/user/2871.xls
Besten Dank für eine Hilfe!
mfg
Erich