Spalte auslesen und in neue Mappe übertragen
10.01.2005 13:05:14
Markus
ich habe ne schwierige Kiste...
Mein bisheriger Code sieht wie folgt aus:
Private Sub CommandButton1_Click()
Dim myFile As String
myFile = Application.GetOpenFilename("Excel Dateien (*.xls; *.xlt; *.xla)," & _
"*.xls; *.xlt; *.xla")
If myFile = "Falsch" Then Exit Sub
Range("Temp!A1") = myFile
Workbooks.Open Filename:=myFile
lgLfdNr = ActiveWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
End Sub
Wenn man auf den Commandbutton 1 drückt, kann man im ganz normalen öffnen Fenster eine Excelarbeitsmappe öffnen. Bei der geöffneten Mappe wird dann in Spalte 1 Tabelle 1 die letzte beschriebene Zeile gesucht....
Ich möchte nun folgendes:
Die Daten aus Spalte 1 (von der gerade geöffneten Arbeitsmappe) sollen in Spalte 1 der Arbeitsmappe übertragen werden (in der das oben stehende Makro steht) Sie sollen natürlich erst ab Zeile 3 bis eben zur letzten Zeile (lgLfdNr) übertragen werden.
Geht so was?
Danke für die Hilfe
Markus
Anzeige