AW: Zeilen variabel kopieren
25.01.2010 15:52:22
Space
Hallo,
habe eure Tipps versucht zu beherzigen, bin aber nicht sehr schlau daraus geworden. Habe das Problem jetzt mit folgendem Code gelöst:
Private Sub CommandButton9_Click()
Dim wks As Worksheet
'Excel Datei Kundendaten.xls öffnen
Set wks = Workbooks.Open(Filename:= _
"H:-Pfad-\Datei.xls").Sheets(1)
'Benötigte Zellen kopieren und im Tabellenblatt "Kundenkontakte" einfügen
'Kopieren aus Kundendaten
With wks
.Range(.Cells(5, 9), .Cells(5, 9).End(xlDown)).Resize(, 1).Copy
Workbooks("Data Generator.xls").Sheets("Partner Kontakte").Range("C18").Insert
.Range(.Cells(5, 11), .Cells(5, 11).End(xlDown)).Resize(, 1).Copy
Workbooks("Data Generator.xls").Sheets("Partner Kontakte").Range("D18").Insert
.Range(.Cells(5, 7), .Cells(5, 7).End(xlDown)).Resize(, 1).Copy
Workbooks("Data Generator.xls").Sheets("Partner Kontakte").Range("E18").Insert
.Range(.Cells(5, 8), .Cells(5, 8).End(xlDown)).Resize(, 1).Copy
Workbooks("Data Generator.xls").Sheets("Partner Kontakte").Range("F18").Insert
End With
'Schließen der Kundendaten
wks.Parent.Close
End Sub
jetzt ergeben sich 2 Probleme:
1) es wir nur bis zur ersten leeren Zelle kopiert. Da die Liste aber immer mal wieder 1-2 leere Zellen hat, wird nicht die ganze Spalte sondern nur ein Teil kopiert ;(
2) es werden mal wieder alle Formatierungen übertragen
Bitte um Hilfe!
Gruß
Space